<%Dim Rs Dim DB Set DB = Server.CreateObject ("ADODB.Connection") DB.Mode = adModeReadWrite DB.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&server.mappath(".")&"\marathon.mdb" Set Rs = Server.CreateObject ("ADODB.Recordset") Rs.Open "select * from marathon order by lastname",DB,1,3 If RS.EOF And RS.BOF Then 'Response.Write "There are 0 records." Else RS.MoveFirst While Not RS.EOF pointer =pointer + 1%> <%RS.MoveNext Wend End If%>

Pos	Num	Time	Name	Nationality	Category	Cat. Pos.	Pace
1	160	03:50:14	JANICE AL NAIF	BRITISH	F 35 - 49	1	05:29
2	101	03:50:56	LAMA HATTAB	JORDANIAN	F 16 - 34	1	05:30
3	135	03:54:29	ROSAMARIA PEREZ	SPANISH	F 16 - 34	2	05:35
4	140	04:27:54	ISABEL PUIG	SPANISH	F 50+	1	06:23
5	159	05:01:32	SIGRID EICHNER	GERMAN	F 50+	2	07:11