<html>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=pasitoldata"
conn.Open(Server.MapPath("bibleNosound.dat"))
set rs = Server.CreateObject("ADODB.recordset")
rs.Open "SELECT * FROM bible where VolumeSN = 1", conn
do until rs.EOF
for each x in rs.Fields
Response.Write(x.name)
Response.Write(" = ")
Response.Write(x.value & "<br>")
next
Response.Write("<br>")
rs.MoveNext
loop
rs.close
conn.close
%>
</body>
</html>