<% @language="vbscript"%> <% kelime=request.form("naam") key1=ucase(kelime) uz=len(key1) sonuc=request.form("Submit") dim dsn, veri set dsn=server.createobject("ADODB.Connection") dsn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("cgi_bin/data1.mdb") set veri2=Server.CreateObject("ADODB.Recordset") veri2.open "select * from telefoon",dsn,1,3 giris=0 %> Telefon Rehberi
Üyeler
Üyeler		 Sitenizi Önerin
Sitenizi Önerin
İlan Verin
İlan verin		 Hakkımızda
Hakkımızda
 

Yardım »
Ara :  
 
TELEFON REHBERİ
<% if not veri2.bof then veri2.movefirst end if do while not veri2.eof key2=ucase(left(veri2(1),uz)) if key1=key2 and uz>0 then yer=veri2(1) telefonno="("&veri2(2)&")"&veri2(3) kategori=veri2(4) sehir=veri2(5) %> <% end if veri2.movenext loop %>

Kişi/Kuruluş Adı :

 
Kişi/Kuruluş Adı Telefon Kategori Şehir
<%=yer%> <%=telefonno%> <%=kategori%> <%=sehir%>
 
Hakkımızda | Bize Ulaşın | İstihdam | Gizlilik| Kurallar | Sitenizi Önerin | Sık Sorulan Sorular | Ana Sayfa
© 2000 Promosyon.com   All Rights Reserved