arabul

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 %>