<% ' Created on: 04/01/2008 %> <% Set Connection = OpenDatabase Set RS = Connection.Execute("SELECT * FROM tblRuns ORDER BY TheDate") While Not RS.EOF theDate = RS("Thedate") day = left(theDate,2) Response.Write day & "
" 'Response.Write "mysql_query(""INSERT INTO tblRuns (TheDate, GPSTrack, RouteName)" & "VALUES('" & RS("Thedate") & "','" & RS("GPSTrack") & "','" & RS("RouteName") & "')"");" 'Response.Write "
" Rs.MoveNext wend %>