<% DIM listdate, listuser, listemail, listwebsite, listmessage, displaymessage, trackcolor trackcolor = 000000 Set ListConn = Server.CreateObject("ADODB.Connection") ListConn.Open "underoathdb" Set rsListing = Server.CreateObject("ADODB.Recordset") strSQL = "Select * FROM gbk WHERE invis <> True ORDER BY id" rsListing.Open strSQL, ListConn, 1, 1 While NOT rsListing.EOF listdate = rsListing("dateadded") listuser = rsListing("user") listemail = rsListing("email") listwebsite = Replace(rsListing("website"), "http://", "") listmessage = rsListing("message") displaymessage = Server.htmlEncode(listmessage) displaymessage = replace(listmessage, chr(10), "
") IF rsListing("invis") <> "True" THEN %> <% END IF IF trackcolor = 000000 THEN trackcolor = 333333 ELSE trackcolor = 000000 rsListing.MoveNext WEND rsListing.Close Set rsListing = Nothing ListConn.Close Set ListConn = Nothing %>

Posted on <%=listdate%> By: <%=listuser%> Website: <%=listwebsite%> Message: <%=displaymessage%>