<HTML>
<HEAD>
<TITLE>GET DATA FROM ACCESS USING ASP</TITLE>
</HEAD>
<BODY>
<%
Dim MyConnection
Dim MyRecordset
Set MyConnection =Server.CreateObject("Adodb.Connection"

With MyConnection
.open "Provider=microsoft.jet.oledb.4.0" & _
"datasource =c:\MyDatabase.mdb"
End With
MyRecordset.open "table_name",MyConnection,3,3
MyRecordset.movefirst
Response.Write "<table><tr><td>Name</td></RollNo</td></tr>"
While not MyRecordset.eof
Response.Write "<tr><td>"
Response.Write Myrecordset!name & "</td>"
Response.Write "<td>" & Myrecordset!rollno & "</td>"
Response.Write "</tr>"
Myrecordset.movenext
Wend
%>
</table>
</body>
</html>