<%
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
%>
<%
Set MyConn = Server.CreateObject("ADODB.Connection")
MdbFilePath = Server.MapPath("/fpdb/sif_forsideartikkel.mdb")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "SELECT * FROM Results WHERE inndate<=Date() AND outdate>=Date() ORDER BY inndate DESC"
Set RS = MyConn.Execute(SQL_query)
WHILE NOT RS.EOF
%>
![](<%=RS("bilde")%)
>
<%=RS("heading")%>
<%=RS("ingress")%>
<%=RS("innhold")%>
Ansv.:
<%=RS("signert")%>
<%
RS.MoveNext
WEND
%>
Kommende aktiviteter:
<%
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
%>
