kelime = mid(yeni,1,silinecek-3)
yap
eyvallah saol ben bir türlü eksiltemedim bu eksiyi yanlış yerde denemişim
bu arada kodda yine degişiklikle düzeldi ancak belki lazım olur birilerine kodun tamamı
Alıntı
<%
page = Request.ServerVariables("URL")
ref = Request.ServerVariables("HTTP_REFERER")
refURL = Request.ServerVariables("HTTP_REFERER")
If len(refURL) > 0 Then
silinecek = Instr(refURL,"q=")
yeni = mid(refURL,silinecek,len(refURL)-silinecek)
silinecek = Instr(yeni,"&")
kelime = mid(yeni,3,silinecek-3)
Kontrol="SELECT *FROM arama WHERE kelime='"&kelime&"'"
Set Kont=bag.Execute (Kontrol)
If Kont.EOF Then
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.Open "SELECT *FROM arama ", bag, 1, 3
Rs.addnew
Rs("kelime")=kelime
Rs("page")=page
Rs.Update
else
end if
end if
%>