<%
Response.ContentType = "text/html" 
Response.Charset = "UTF-8" 
%>

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
</head>
<body>
<!--#include file ="../veriables.asp"-->
<%
'Veritabanı bağlantımızı oluşturuyoruz
Set conn = Server.CreateObject("ADODB.Connection")
dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db/"&datayol&".mdb")
conn.open dsn

'Formdan gelen veriyi alıyoruz
aranan = Request.Form("queryString")
'Recordset açılıyor
Set RS=Server.CreateObject("ADODB.Recordset")
'Gelen veriyi veritabanında sorgulayacak sql cümlesini yazıyoruz
Sql = "Select * From emails Where mail Like '" & aranan & "%' Order By mail"
RS.Open Sql, conn, 1, 3

If RS.RecordCount > 0 Then 'Veritabanından dönen kayıt sayısı sıfırdan büyükse
	i = 1
	'Toplam 10 kayıt listeliyoruz
	Do While Not RS.EOF And i < 11
		Response.Write ("<li onClick=""fill('"&RS("mail")&"');"">"&RS("mail")&"</li>")
		i = i + 1
		RS.MoveNext
	Loop
End If
RS.Close
conn.Close
%>
</body>
</html>