User Comments For Story
<% Dim myid, myname, mycomment, myerror myid = clng(form("id")) myname = form("name") mycomment = form("comment") SET rs = Server.CreateObject("ADODB.Recordset") command = "SELECT * FROM GWWNews WHERE id = " & myid rs.Open command, conn, adOpenForwardOnly, adLockReadOnly if rs.EOF then response.write("
No matches were found for your query.
") end if do while not rs.EOF response.write("

" & rs("title") & "

" & rs("info") & "

") rs.MoveNext loop rs.close set rs = nothing %>

All of the comments above are owned by whoever posted them. We are not responsible for the contents of any comments.
<% myname = "" mycomment = "" myerror = "" if form("type")="0" then if Request.Cookies("posted") = "done" then myerror = "There was an error posting your comment.
You can not post more than one comment every 60 seconds.
" else Response.Cookies("posted") = "done" Response.Cookies("posted").Expires = dateadd("m",1,now) Response.Cookies("posted").path="/" myid=clng(form("id")) myhash = MD5(Request.ServerVariables("HTTP_X_CLIENT_IP")) myname = Left(StripHTML(form("name")),100) mycomment = Left(StripHTML(form("comment")),4000) IsValid = TRUE if (myname="") Then myerror="Please include your name in the name field.
" IsValid = FALSE end if if (mycomment="") Then myerror="You can not write a blank comment. Please write something.
" IsValid = FALSE end if if (len(mycomment)>4000) Then myerror="Your comment is to long. Please make it less than 4000 characters.
" IsValid = FALSE end if if (IsValid=TRUE) then SET rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM GWWComs WHERE 1=0", conn, adOpenStatic, adLockOptimistic rs.AddNew rs.fields("item") = myid rs.fields("name") = myname rs.fields("uid") = myuid rs.fields("comment") = mycomment rs.update rs.close SET rs = nothing if (len(err.description) = 0) then sqlt("UPDATE GWWNews SET comments = comments + 1 WHERE id = " & myid) end if end if end if end if %>
<% SET rs = Server.CreateObject("ADODB.Recordset") command = "SELECT * FROM GWWComs WHERE item = " & myid & " ORDER BY TimeStamp ASC" rs.Open command, conn, adOpenForwardOnly, adLockReadOnly if rs.EOF then response.write("") end if do while not rs.EOF if colcount=1 then cachetext=cachetext&"" colcount=0 else cachetext=cachetext&"" colcount=1 end if rs.MoveNext loop rs.close set rs = nothing %>

There are currently no comments on this news item.


Posted by " & rs("name") & " (UID: " & rs("uid") & ")
" & rs("comment") & " on " & rs("timestamp") & "
Posted by " & rs("name") & " (UID: " & rs("uid") & ")
" & rs("comment") & " on " & rs("timestamp") & "

<%=myerror%>
Name (optional):

Comment:

(HTML is stripped out and links are not linked.)