<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
Untitled Document
<%
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 TOP 1 * FROM Results WHERE arrdato<=Date() ORDER BY arrdato ASC"
Set RS = MyConn.Execute(SQL_query)
WHILE NOT RS.EOF
%>
Førstkommende SIF-arrangement:
<%=RS("arrangementsnavn")%>
<%=RS("dagsnavn")%>
<%=RS("dato")%>.
<%=RS("manedsnavn")%>
Kl. <%=RS("klokkeslett")%>
Sted: <%=RS("sted")%>
<%=RS("ingress")%>
<%=RS("fritekst")%>
Arr:
<%=RS("arransvarlig")%>
<%
RS.MoveNext
WEND
%>