<% Dim AusgabeDatum set db = Server.CreateObject("ADODB.Connection") connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("\cgi-bin\Gams.mdb") db.Open connect sql2 = "select * from Fernsehauftritte order by Datum DESC" set rs = db.Execute(sql2) %>
<% 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 %>

D' Gamskogler TV Auftritte
 

Datum Zeit TV Veranstaltung
<%=AusgabeDatum%> <%=(rs("Zeit"))%> <%=(rs("TV"))%> <%=(rs("Veranstaltung"))%>