<% Response.expires=0 dim array_Anmeldung(1000) dim index1, index1_max, Key_Alt, Key_Neu dim connect,rs,data dim akt_Datum, akt_Jahr, akt_Monat, akt_Tag 'Datumsformat einstellen Session.LCID=1031 'aktuelles Datum ermitteln akt_Datum = left(CDate(now()), 10) akt_Jahr = right(akt_Datum, 4) akt_Monat = Mid(akt_Datum, 4, 2) akt_Tag = left(akt_Datum, 2) akt_vgl_Datum = akt_Jahr & "-" & akt_Monat & "-" & akt_Tag set db = server.CreateObject("ADODB.Connection") connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("../mdb/lauf.mdb") db.Open connect %> Schmidataler Laufcup

     ONLINE - Lauf-Anmeldung

Herzlich Willkommen bei der Online - Lauf-Anmeldung - Schmidatal!

Sie können sich nun für folgende fünf Läufe im Schmidatal anmelden:


<% 'Auflisten aller noch ausständigen Läufe für die man sich noch anmelden kann sql = "Select * From BEWERBE WHERE LAUFDATUM >= '" & akt_vgl_Datum & "' AND LETZTANMELD >= '" & akt_vgl_Datum & "'ORDER BY LAUFDATUM;" set rs = db.Execute(sql) zaehler = 0 s_nochanmelden = "N" do until rs.eof index1 = 0 zaehler = zaehler + 1 s_nochanmelden = "J" %> <%rs.MoveNext loop%>
  • <%=rs("LAUFDATUM")%> - <%=rs("LAUFBEZEICHNUNG")%>

    		•  value=Anmeldung>
    <% db.Close set db=Nothing set rs=Nothing %>