<% '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
 
=> Daha kayıt olmadın mı?
Siz Online Oyunlar hakkında ne düsünüyorsunuz ?

Forum - Knight Online-usko

Burdasın:
Forum => Online Oyunlar => Knight Online-usko

<-Geri

 1 

Devam->


refrm
(şimdiye kadar 2 posta)
11.05.2008 09:56 (UTC)[alıntı yap]
Ben knight online'ı cok seviyorum ama biraz zor item ve ex kasmayı biraz kolaylastırırlarsa daha ii olr.

Cevapla:

Nickin:

 Metin rengi:

 Metin büyüklüğü:
Tag leri kapat


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 3 ziyaretçi (5 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