Nästa post vid "utgått" datum/tid

Hej! Jag har sökt och tittat här på forumet, men hittar ingenting som kan förklara för mig hur jag löser mitt problem..

Det är så att jag hämtar ut den nästkommande träningstiden från min access databas, men jag måste radera för att få fram nästa (något jag givetvis gör efter träningstiden är "över").

Hur gör jag för att inte behöva radera, utan att den hämtar nästa tr.tid automatiskt när dagen är över (alltså te.x. onsdagens träning byts över till fredagens träning vid midnatt,onsdag/torsdag, eller ännu bättre vid "20.00", onsdag, då träningen är över).

På förhand tack! :)

Koden jag använder är förresten, om ni behöver den:

<%
Dim objConn
Set objConn = Server.CreateObject("adodb.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("databasen.mdb")

Dim objRs
Set objRs = objConn.Execute("SELECT TOP 1 * FROM traning ORDER BY datum ASC")

Do until objRs.EOF
     Response.Write "<b>Datum:</b> " & FormatDateTime(objRs("datum"),1)
    Response.Write " <br> "
    Response.Write "<b>Tid:</b> " & (objRs("tid"))
    Response.Write " <br> "
	Response.Write "<b>Plats:</b> " & (objRs("plats"))
If objRs("ovrigt") <> "" Then
	 Response.Write " <br> "
	Response.Write "<b>Övrigt:</b> " & (objRs("ovrigt"))
	 End If
	 objRs.MoveNext
Loop

Set objRs = Nothing
Set objConn = Nothing
%>