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