<% Function toString(v) toString = Year(v) & "-" & Right("0" & Month(v),2) & "-" & Right("0" & Day(v),2) End Function if ADMIN_MODE And Request("action")="delete" Then sql = "UPDATE message SET replies=replies-1 WHERE messageid IN (SELECT parentid FROM message WHERE messageid=" & request("id") & ")" Set rs = myConn.Execute(sql) sql = "DELETE FROM message WHERE messageid=" & request("id") Set rs = myConn.Execute(sql) end if if ADMIN_MODE And Request("action")="cleanup" Then sql = "SELECT subject, [date], messageid, parentid, fullname, url, email, replies, hits FROM message" sql = sql & " WHERE parentid=0 ORDER BY date DESC" Set rs = myConn.Execute(sql) Do While Not rs.eof sql = "SELECT count(*) from message WHERE parentid=" & rs("messageid") Set rs2 = myConn.Execute(sql) sql = "UPDATE message SET replies=" & rs2(0) & " WHERE messageid=" & rs("messageid") myConn.Execute(sql) rs.MoveNext Loop end if sql = "SELECT subject, [date], messageid, parentid, fullname, url, email, replies, hits FROM message" sql = sql & " WHERE parentid=0 ORDER BY date DESC" Set rs = myConn.Execute(sql) response.write "Post New Thread" response.write " | JavaTunes Main Page" response.write "
" response.write "
" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" Do While Not rs.eof response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" rs.MoveNext Loop response.write "

Subject	Date	Name	Replies
" & csHTML(rs("subject")) & "	" & csHTML(toString(rs("date"))) & "	" & csHTML(rs("fullname")) & "	" & csHTML(rs("replies")) & "

" sql = "SELECT top 5 subject, [date], messageid, parentid, fullname, url, email, hits FROM message" sql = sql & " ORDER BY date DESC" Set rs = myConn.Execute(sql) response.write "
" response.write "
" response.write "Latest..." response.write "
" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" Do While Not rs.eof parentid = rs("parentid") if parentid=0 Then parentid = rs("messageid") response.write "" response.write "" response.write "" response.write "" if ADMIN_MODE Then response.write "" End If rs.MoveNext Loop response.write "

Subject	Date	Name
" & csHTML(rs("subject")) & "	" & csHTML(toString(rs("date"))) & "	" & csHTML(rs("fullname")) & "	Delete

" %>