<%@ Language=VBScript %> <%Dim Conn, RS Set Conn = Server.CreateObject("ADODB.Connection") Set RS = Server.CreateObject("ADODB.Recordset") DSNName = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" DSNName = DSNName & Server.MapPath("/db/college.mdb") Conn.Open DSNName sql = "SELECT * FROM feedback" RS.Open sql, Conn, 3, 3%> <% while not rs.eof=true %> <% rs.movenext wend %>

Person Name	Address	City	Phone	E-Mail
<% Response.Write(RS("name")) %>	<% Response.Write(RS("address")) %>	<% Response.Write(RS("city")) %>	<% Response.Write(RS("phone")) %>	<% Response.Write(RS("emailid")) %>