<%@ Language=VBScript %> <%Option Explicit%> <%=maintitle%>

user entered comments

<% dim mrs, sqlcode, recordcount set mrs = server.createobject("adodb.recordset") sqlcode = "select * from comments where approve <> 1 order by cdate DESC" mrs.open sqlcode, mconn,1,3 recordcount = mrs.recordcount response.write "

" & recordcount & " new comments

" if recordcount > 0 then %> <% While not mrs.EOF %> <% mrs.MoveNext Wend response.write("
Date Title IP Comment Approve Delete
<%=mrs("cdate")%><%=mrs("moviename")%><%=mrs("IP")%><%=mrs("comment")%>&approvecomment=1" title="Click to Approve">approve&deletecomment=1" title="Click to Delete" onclick="return confirm('Are you sure you want to delete?')">delete
") end if closemrs() closeconn() %>