Test Blog
 

Bir Aşk Öyküsü

Aşk Öyküleri, Aşk Şiirleri, Genel, Genel Şiirler 2 Comments »

DENEME-AHMNET

arama

<% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb") isim = request.querystring("isim") set objRS = Server.CreateObject("ADODB.Recordset") sql = "select * from isimler where isim like '%" & isim & "%' " objRS.open sql,conn,1,3 if objRS.eof then response.write "Hiç kayıt bulunamadı." response.end else do while not objRS.eof response.write "Bulunan Sonuçlar" response.write "
" response.write objRS("isim") objRS.movenext loop end if %>

mIRC Powered by Wptr ve WordPress
Bu site Tatil ve Gece Gündüz Teması ile guclendirilmistir
 
Bu web sitesi ücretsiz olarak Bedava-Sitem.com ile oluşturulmuştur. Siz de kendi web sitenizi kurmak ister misiniz?
Ücretsiz kaydol