<%@language=vbscript%> <% dim con set con = server.createobject("adodb.connection") con.provider = "Microsoft.jet.oledb.4.0" con.connectionstring = server.mapPath("alpine.mdb") con.open dim rs set rs = server.createobject("adodb.recordset") rs.open "select * from Make", con do until rs.eof response.write("" & rs.fields("Name") & "") response.write("
") rs.movenext loop %>