<% strBlank = " " strDate = DateAdd("m", -1, Date) 'strDate = Format(strDate,"mm-dd-yyyy") set dbCon = Server.CreateObject("ADODB.Connection") File = "../db/peerreg.mdb" DSNtest = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtest = DSNtest & "DBQ=" & Server.MapPath(File) dbCon.Open DSNtest Set dbSet = Server.CreateObject("ADODB.Recordset") sqlQuery = "SELECT Datum,Id, Text1,Text2 From Pågång " sqlQuery = sqlQuery + " WHERE Datum > #" & strDate & "# ORDER BY Datum DESC" dbSet.Open sqlQuery,dbCon %>

Föreningsaktiviteter


from <%=strDate %>


<% If dbSet.BOF and dbSet.EOF Then Response.Write("Tyvärr inga aktuella uppgifter bland föreningsaktiviteterna!


") else Do While Not dbSet.EOF Response.Write("

" & dbSet("Datum") & " / " & dbSet("Id") & "

") Response.Write("" & dbSet("Text1") & "
" & dbSet("Text2")) Response.Write("

Början av sidan
") dbSet.MoveNext Loop End If dbSet.Close dbCon.Close Set dbSet = Nothing Set dbCon = Nothing %>