<%
submitted = Request("submitted")
parentid = Request("parentid")
if parentid="" THEN parentid=0
if submitted<>"" THEN
Response.Cookies("forum")("fullname") = request("fullname")
Response.Cookies("forum").Expires = Date + 365
end if
If submitted="" Then
If parentid>0 Then
sql = "SELECT subject FROM message WHERE messageid=" & parentid
Set rs = myConn.Execute(sql)
subject = "RE: " & rs("subject")
End If
fullname = Request.Cookies("forum")("fullname")
Else
fullname = Request.Form("fullname")
subject = Request.Form("subject")
body = Request.Form("body")
math = Request.Form("math")
if Len(fullname)=0 Then error = error & "
Please fill in a name"
if Len(subject)=0 Then error = error & "
Please fill in a subject"
if Len(body)=0 Then error = error & "
Please fill in Body"
If math<>"112" Then error = error & "
Do the math!"
if error="" THEN
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "message", myConn, 1, 3, 2
rs.AddNew
rs("fullname") = fullname
rs("body") = body
rs("subject") = subject
rs("parentid") = parentid
rs("sendemail") = 0
rs.Update
id = rs("messageid")
if parentid>0 Then
sql = "UPDATE message set replies=replies+1 WHERE messageid=" & parentid
myConn.Execute(sql)
response.redirect "show.asp?parentid=" & parentid
else
response.redirect "show.asp?parentid=" & id
End If
Else
response.write ""
response.write ""
response.write "| " & error & " | "
response.write "
"
response.write "
"
response.write "
"
End If
End If
If parentid=0 Then
button = "Post New Thread"
else
button = "Reply"
sql = "SELECT subject, body, [date], messageid, parentid, fullname, url, email, hits FROM message"
sql = sql & " WHERE messageid=" & parentid
Set rs = myConn.Execute(sql)
response.write "| Date | " & csHTML(rs("date")) & " |
"
response.write "| Name | " & csHTML(rs("fullname")) & " |
"
response.write "| Subject | " & csHTML(rs("subject")) & " |
"
response.write " | " & csHTML(rs("body")) & "
|
"
response.write "
|
"
End If
response.write "Back"
response.write "
"
%>