yokmu bu koda yardım edebilecek birisi
arkadaşlar acil lazım index arttıracaz daha konumuz googlede aranan kelimeleri db ye kayıt
örnek maxialem aradım diyelim googlede out sayfanısnı buldu siteye tıkladım diyelim bana verdigi sonuç aynen şu
q=maxialem&me
me tetanın kısaltması sanırım
kodumuz hatalıdır bunu düzeltmemiz lazım
Alıntı
<%
page = Request.ServerVariables("URL")
ref = Request.ServerVariables("HTTP_REFERER")
refURL = Request.ServerVariables("HTTP_REFERER")
If refURL <> "" Then
silinecek = Instr(refURL,"q=")
yeni = mid(refURL,silinecek,len(refURL)-silinecek)
silinecek = Instr(yeni,"&")
kelime = mid(yeni,1,silinecek)
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
%>