<% ' create conn as adodb.connection and open it dim strconn dim conn dim rs strconn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\inetpub\wwwroot\Asp_Access_Tp\authors.accdb" & Server.MapPath("C:\inetpub\wwwroot") set conn = server.createobject("adodb.connection") conn.open strconn sql = "select * from Authors" set rs = conn.execute(sql)%>
<html><head><title></title></head><body><table border="1">
<% do while not rs.eof response.write "<tr> <td><b>" & rs("Field1") & "</td> <td>" & rs("Field2") & "</td> </tr>" rs.movenext loop conn.close Set conn = nothing set rs = nothing%></table></body></html>