<% On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str Dag = Day(Date) Maand = Month(Date) Jaar = Year(Date) x_datum = Maand & "-" & dag & "-" & Jaar 'Zoeken van items die vandaag gepost mogen worden. SQL ="SELECT * FROM tblCMS WHERE ([DatVan]<=#" & x_datum & "# AND [DatTot]>=#" & x_datum & "#) OR ([DatVan]<=#" & x_datum & "# AND [DatTot] Is Null) ORDER BY [DatVan] DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open SQL, conn If Not rs.Eof Then rs.MoveFirst Do Until rs.EOF key = rs("berichtID") Titel = rs("Titel") Intro = rs("Intro") IntroImage = rs("IntroImage") DatVan = rs("DatVan") %>
<%=Titel%>

<%=Titel%>
<%=DatVan%> - <%=Intro%> >>>

<% rs.MoveNext Loop End If rs.Close Set rs = Nothing Response.write "

" conn.close Set Conn = Nothing %>