İzdata Online Sözlük

<% Set bag = Server.CreateObject("ADODB.Connection") bag.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/db/dbbilgi.mdb") %><% Dim kel,dil dil= request.form("dil") kel = Request.QueryString("kel") Set kontrol = Server.CreateObject("Adodb.RecordSet") sql_kontrol = "Select * from tblbilgi where sorular like '%"&kel&"%'" kontrol.open sql_kontrol,bag,1,3 if kel ="" then response.write " Lütfen formu boş bırakmayınız" else if kel ="." then response.write "Sadece Nokta Kullanamazsinız" else if kel ="," then response.write "Sadece Virgül Kullanamazsinız" else if kel="sex" or kel="dallama" or kel="sik" or kel="SEX" or kel="am" or kel="AM" or kel="göt" or kel="ibne" or kel="yarrak" or kel="SIK" or kel="AMCIK" or kel="pust" Then response.write "Yasak cümleleri lütfen kullanmayınız! " else if kel ="ilhan" or kel ="sorunne" then response.write "### iLHAN WEBDESiGN ©® ###" else %> İzdata Online Sözlük

50.000 kelime İNGİLİZCE-TÜRÇE TÜRKÇE-iNGİLİZCE DEYİMLER SÖZLÜĞÜ

<% Dim sayfa sayfa = Request.QueryString("sayfa") if sayfa="" then sayfa = 1 end if Set yaz = Server.CreateObject("Adodb.RecordSet") sql_yaz = "Select * from tblbilgi where sorular like '%" &kel&"%'" yaz.open sql_yaz,bag,1,3 yaz.pagesize = 15 yaz.absolutepage = sayfa sayfa_sayisi = yaz.pagecount for i=1 to yaz.pagesize if yaz.eof then exit for %> <% yaz.movenext Next %> <% end if end if end if end if end if end if %>

Geri

<%if kontrol.recordcount = "0" then Response.write "Kelime Bulunamadı." else Response.write "Toplam "&kontrol.recordcount&" kelime bulundu" %>

ingilizce

Türkçe

<%=yaz("sorular")%>

<%=yaz("cevap")%>

Sayfa No : <% for z=1 to sayfa_sayisi if sayfa=z then response.write z else response.write "["&z&"]" end if next %>