Programalama > ASP

<%	
Dim conn, rs, strSQL, DB

DB = "DBQ=" & Server.Mappath("database.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"

Set rs = Server.CreateObject("ADODB.Recordset")
Set conn = Server.CreateObject("ADODB.Connection")

conn.open DB

strSQL = "SELECT * FROM tabloadi"
rs.open strSQL,conn,1,3

Do While Not rs.EOF
	Response.Write rs("field_adi") & "<br>"
	rs.MoveNext
Loop
%>