Comments and feedback
Type in your comments here - HTML allowed (and no "quotes"). Submissions are reviewed before they are published:
<%If Request.QueryString("antispam") = "true" Then Response.Write "
Incorrect Antispam code!" %>
Here are your comments - the good ones of course!
<%
Set commentsRS = Server.CreateObject("ADODB.RecordSet")
commentsSQL= "Select ID, name, comment, DATE_FORMAT(date,'%D %b %Y at %T hrs') AS date FROM tblcomments WHERE active = -1 ORDER BY ID DESC"
commentsRS.Open commentsSQL, whtConn, 1
commentsRS.MoveFirst
Do while NOT commentsRS.EOF
Response.Write "
"
Response.Write commentsRS("date")
Response.Write "
"
Response.Write commentsRS("comment")
Response.Write "
"
Response.Write commentsRS("name")
Response.Write "
"
commentsRS.MoveNext
Loop
'close connections,etc..
commentsRS.Close
Set commentsRS = Nothing
%>