% 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öreningsaktiviteterfrom <%=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 %> |