<% Dim objConn Set objConn = Server.CreateObject("ADODB.Connection") ' Response.Write Server.MapPath("/fpdb/WCST-TM2001.mdb") 'ObjConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\inetpub\wwwroot\003026\xe10frsy2\fpdb\WCSTTMNew.mdb" ObjConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/fpdb/WCST-TM2001.mdb") %> WCST Stingrays Meet Results

 

2001WCST Stingrays Swimmer Statistics

Please select a swimmer to view results...

Select Swimmers Name: <% dim oRScl Dim strSQL strSQL = "Select Athlete, Last, First from Athlete order by Last, First;" set oRScl=server.createobject("ADODB.recordset") oRScl.Open strSQL, objConn oRScl.movefirst %>