<%@ Langauge="VBScript" %> <% Dim Cn Dim ADO Dim Sql Dim rs Cn="Provider=Microsoft.Jet.OLEDB.4.0.;" & "data source="& Server.MapPath("\DB\visitors.mdb") set ADO =server.CreateObject("ADODB.Connection") ADO.ConnectionString=Cn ADO.open sql="select *from info" set rs=ADO.execute(sql) %> <% do while not rs.eof %>

Name:	<% response.write(rs("name"))%>
Email	<% response.write(rs("name"))%>

<% rs.movenext loop ADO.close %>