<% Response.expires=0 XFilter = request.querystring("Filter") %> Date calendar Gamskogler Ampass <% Dim AusgabeDatum set db = Server.CreateObject("ADODB.Connection") connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("\cgi-bin\Gams.mdb") db.Open connect if XFilter = "Alle" then sql2 = "select * from Termine where Status = 'Jugend' or Status = 'Erwachsene' order by datum" else sql2 = "select * from Termine where Status = '" & XFilter & "' order by datum" end if set rs = db.Execute(sql2) %>
Date calendar
 
<% do until rs.eof AusgabeDatum = Day(rs("Datum")) & "." & Month(rs("Datum")) & "." & Year(rs("Datum")) %> <% rs.MoveNext loop db.Close set db=Nothing set rs=Nothing %>
Date Time Meeting
<%=AusgabeDatum%> <%=(rs("Zeit"))%> <%=(rs("Veranstaltung_E"))%>