%
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 "| Subject | "
response.write "Date | "
response.write "Name | "
response.write "Replies | "
response.write "
"
Do While Not rs.eof
response.write ""
response.write "| " & csHTML(rs("subject")) & " | "
response.write "" & csHTML(toString(rs("date"))) & " | "
response.write "" & csHTML(rs("fullname")) & " | "
response.write "" & csHTML(rs("replies")) & " | "
response.write "
"
rs.MoveNext
Loop
response.write "
"
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 "| Subject | "
response.write "Date | "
response.write "Name | "
response.write "
"
Do While Not rs.eof
parentid = rs("parentid")
if parentid=0 Then parentid = rs("messageid")
response.write ""
response.write "| " & csHTML(rs("subject")) & " | "
response.write "" & csHTML(toString(rs("date"))) & " | "
response.write "" & csHTML(rs("fullname")) & " | "
if ADMIN_MODE Then
response.write "Delete | "
End If
rs.MoveNext
Loop
response.write "
"
%>