<% openstr = "driver={Microsoft Access Driver (*.mdb)};" & _ "dbq=" & Server.MapPath("critters.mdb") Set cn = Server.CreateObject("ADODB.Connection") cn.Open openstr sql = "SELECT jersey, fname, sname, position " & _ "FROM roster " & _ "ORDER BY jersey; " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, cn, 3, 3 On Error Resume Next rs.MoveFirst Do While Not rs.EOF Response.Write Server.HTMLEncode(_ rs.Fields("jersey") & ", " & _ rs.Fields("fname") & " " & _ rs.Fields("sname") & ", " & _ rs.Fields("position")) & "
" & vbCrLf rs.MoveNext Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing %>