Aşağıdaki fonksiyon ile makale içerisinde bin karakterden sonraki ilk noktadan kesmeyi başardım. Ben bu bin karakterden sonraki noktadan kesildiği yere reklam kodu koymak ve sonra kaldığı yerden makalenin aynen devam etmek istiyorum


Kod:

<%
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")
else
 Response.Write GelSayfaDetay
end if
%>