<% 'Optimize eden varlik=Toygar Dundaralp 'e-Mail=tdundaralp@msn.com %> <% option explicit %> <% dim sol,sag,sayi,connobj,rsobj,sql,ara,sayiand,soland, sagand set connobj=server.createobject("adodb.connection") connobj.open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("denek.mdb")) set rsobj=server.createobject("adodb.recordset") ara=request.form("ara") if instr(ara,"'") then ara=replace(ara,"'","") end if if instr(ara," and ") then ara=replace(ara," and ","|") sayiand=instr(ara,"|") soland=left(ara,sayiand-1) sagand=mid(ara,sayiand+1) sql="select site,bilgi from denek where kelime1 like '"&soland&"' or kelime2 like '"&soland&"' or " &_ "kelime3 like '"&soland&"' or kelime4 like '"&soland&"' or kelime1 like '"&sagand&"' or " &_ "kelime2 like '"&sagand&"' or kelime3 like '"&sagand&"' or kelime4 like '"&sagand&"'" elseif instr(ara,"*") then sol=left(ara,1) sag=right(ara,1) sayi=len(ara)-1 if left(ara,1)="*" then ara=mid(ara,2) sql="select site,bilgi from denek where kelime1 like '%"&ara&"' or kelime2 like '%"&ara&"' or " &_ "kelime3 like '%"&ara&"' or kelime4 like '%"&ara&"'" elseif right(ara,1)="*" then ara=left(ara,sayi) sql="select site,bilgi from denek where kelime1 like '"&ara&"%' or kelime2 like '"&ara&"%'or " &_ "kelime3 like '"&ara&"%' or kelime4 like '"&ara&"%'" end if else sql="select site,bilgi from denek where kelime1 like '"&ara&"' or kelime2 like '"&ara&"' or " &_ "kelime3 like '"&ara &"' or kelime4 like '"& ara &"'" end if rsobj.open sql,connobj,2,3 do while not rsobj.eof response.write "" & rsobj(0) &"" &"
" & rsobj(1) &"

" rsobj.movenext loop %> <% rsobj.close set rsobj = nothing connobj.close set connobj = nothing %>


 

   
  Forumun Adresi
ReFrM
  Forum
 
Forum - Genel bakış

=> Daha kayıt olmadın mı?
Siz Online Oyunlar hakkında ne düsünüyorsunuz ?

Burdasın:
Forum

SınıfPostalarSon kayıt:
Online Oyunlar
Online oyunlar hakkında ne düsünüyorsunuz? Beğendiginiz online oyunlar hangileri?		2refrm
11.05.2008, 10:12 (UTC)


Bütün konular: 3
Bütün postalar: 2
Bütün kullanıcılar: 1
Şu anda Online olan (kayıtlı) kullanıcılar: Hiçkimse crying smiley
  
  Bugün 1 ziyaretçi (2 klik) kişi burdaydı!

 
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol