<% 'On Error Resume Next Dag = Day(Date) Maand = Month(Date) Jaar = Year(Date) x_datum = Maand & "-" & dag & "-" & Jaar Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str SQL ="SELECT * FROM tblCMS WHERE [DatVan]<=#" & x_datum & "# ORDER BY [DatVan] DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, conn If Not rs.Eof Then rs.MoveFirst CurMaand = rs("DatVan") Response.Write "

" Response.Write "" & vbCr Response.Write "" & vbCr Response.Write "" & vbCr Response.Write "" & vbCr Response.Write "" & vbCr Response.Write "" & vbCr Do Until rs.EOF key = rs("berichtID") Titel = rs("Titel") DatVan = rs("DatVan") If Month(CurMaand) = Month(rs("DatVan")) Then Response.Write "" & vbCr Response.Write "" & vbcr Response.Write "" & vbCr Else Response.Write "" & vbCr Response.Write "" & vbCr Response.Write "" & vbCr Response.Write "" & vbCr Response.Write "" & vbCr Response.Write "" & vbCr Response.Write "" & vbCr Response.Write "" & vbcr Response.Write "" & vbCr CurMaand = rs("DatVan") End If rs.MoveNext Loop Response.Write "
 
 " & MonthName(Month(rs("DatVan"))) & " " & Year(rs("DatVan")) & "
" & Titel & "
 
 " & MonthName(Month(rs("DatVan"))) & " " & Year(rs("DatVan")) & "
" & Titel & "
" & vbCr End If rs.close Set rs = Nothing Set conn = Nothing %>