Arama Motoru yapmak
db.mdb adında bir veritabanımız olsun ve içinde isimler adında bir tablo olsun.ısimler tablosunun içindede ID(AutoNumber) ve isim(text) adlarında 2 tane alanımız olsun.
isimler adı altında frost ve lancelot gibi 2 tane isim olsun.şimdi form.html sayfamızı yapalım ki burdan aramak istediğimiz isimi yazacağız.
form.asp
-------------------------------------------------------------
<html>
<head>
<title>Form</title>
</head>
<body>
<form method="get" action="arabul.asp">
<input type="text" name="isim" size="20">
<input type="submit" value="Bul" name="cmd">
</form>
</body>
</html>-------------------------------------------------------------
evet formumuz tamam siz bu sayfadan giriş yapacaksınız ve bir isim yazacaksınız.
buda arabul.asp olsun
-------------------------------------------------------------
<%
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 "<br>"
response.write objRS("isim"
objRS.movenext
loop
end if
%>
Veritabanımızda girdiğimiz isimleri bulan ve sıralayan basit bir uygulama.