<% Dim Kayitlar kelime="1" if kelime="" then kelime="1" end if %>
<% yazi=cstr(request.form("yazi")) yazi=uCase(yazi) yazi_bul="" yazi_bul="(uCase(kelime) like '%"&yazi&"%' " yazi_bul=yazi_bul & "or uCase (url) like '%"&yazi&" %' or uCase (url) like '%"&yazi&"%') " if kelime<>"" THEN sqltext = "SELECT * FROM webw where kelime='"&kelime&"'" set rs = server.createobject("ADODB.Recordset") rs.open sqltext,bag,1,3 radet = rs.recordcount deste = 5 ' Kacar yazılacak. if radet=0 then response.write "Site Bulunamadı" else response.Write "Link verilen sitelerle ilgili " & radet &" kayit bulunmaktadır" end if if request("SayfaNo")<>"" then sayfa = cdbl(request("SayfaNo")) rs.move sayfa*deste else sayfa = 0 end if %>

<% for t=1 to deste if rs.eof then exit for if t mod 2 = 0 then bg = "#f7f7f7" else bg = "#ffffff" end if %> <% rs.movenext next rs.close set rs=nothing %> <% if radet/deste = int(radet/deste) then sayfaadet = radet/deste else sayfaadet = int(radet/deste) +1 for p=0 to sayfaadet-1 if sayfa = p then %> Sayfa <%=p+1%> <% else %> Sayfa <%=p+1%> <% end if next END IF %>