<% Session.LCID = 1043 Set db = Server.CreateObject("adodb.connection") Set Rs = Server.CreateObject("adodb.recordset") Session("danse_ConnectionString") = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Webroot\danse.nl\www\gastenboek.mdb;Persist Security Info=False" Db.Open Session("danse_ConnectionString") Rs.Cursortype = 3 Rs.LockType = 3 Sql = "Select * from gastenboek order by nr desc" Rs.Open Sql, Db Do while not rs.EOF If Rs("emailprive") = false then naam = Rs("naam") 'naam = "" & Rs("naam") & "" else naam = Rs("naam") end if 'Wissel roze en blauw af If sBgColor = "FF9393" then sBgColor = "99CCFF" 'blauw Else sBgColor = "FF9393" 'roze End if %>

Datum:	<%=formatdatetime(rs("datum"), 1)%>
Van:	<%=naam%>
Reactie:	<%=Replace(Rs("reactie"), chr(13) & chr(10), " ")%>

<% Rs.MoveNext Loop Rs.Close Db.Close set rs = nothing set db = nothing %>