<%
if len(GelSayfaDetay)>1000 Then
IlkBinKarakter = mid(GelSayfaDetay,1000,len(GelSayfaDetay))
NoktayiBUL = inStr(IlkBinKarakter,".")
IlkParagraf = Left(GelSayfaDetay,1000+NoktayiBUL)
Response.Write(IlkParagraf & " <br>REKLAM KODU<br>" & Mid(GelSayfaDetay,1000+NoktayiBUL,Len(GelSayfaDeta y)))
else
Response.Write GelSayfaDetay
end if
%>