<%
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("/fpdb/sif_medlemsarr.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "SELECT * FROM Results WHERE arrdato>=Date() ORDER BY arrdato ASC"
Set RS = MyConn.Execute(SQL_query)
WHILE NOT RS.EOF
%>
<%=RS("arrangementsnavn")%>
Kl. <%=RS("klokkeslett")%>
Sted: <%=RS("sted")%>
<%=RS("dagsnavn")%>
<%=RS("dato")%>.
<%=RS("manedsnavn")%>
<%=RS("ingress")%>
<%=RS("fritekst")%>
Arr:
<%=RS("arransvarlig")%>
<%
RS.MoveNext
WEND
%>
