<% End If
End If
Case "reply"
If Request.Form("Submit") <> "" Then
'// Here we need to do all the database processing
'// and updating.
strName = CheckFields
strMessage = FilterGeneralMessage
strMessage = IsBanned(strMessage)
strMessage = ApplyBuiltInCommands(strMessage)
strMessage = ApplyEmoticons(strMessage)
strMessage = AttachSig(strMessage)
strMessage = Replace(strMessage,"'","''")
If len(strMessage) > 3000 Then
strMessage = Left(strMessage,3000)
strMessage2 = Right(strMessage, Len(strMessage)-3000)
If len(strMessage2) > 3000 Then
strMessage2 = Left(strMessage2,3000)
strMessage3 = Right(strMessage2, Len(strMessage2)-3000)
If len(strMessage3) > 3000 Then
strMessage3 = Left(strMessage3,3000)
strMessage4 = Right(strMessage3, Len(strMessage3)-3000)
If len(strMessage4) > 3000 Then
strMessage4 = Left(strMessage4,3000)
strMessage5 = Right(strMessage4, Len(strMessage4)-3000)
If len(strMessage5) > 3000 Then
strMessage5 = Left(strMessage5,3000)
strMessage6 = Right(strMessage5, Len(strMessage5)-3000)
end if
end if
end if
end if
end if
Con.Execute "INSERT INTO MessageDB(Poster,Subject,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','" & strMessage & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ")"
Set rsQuery = Con.Execute("SELECT ID FROM MessageDB WHERE Poster='" & strName & "' AND Subject='" & strTopic & "' AND LastPoster='' And ReplyID=" & intID & " ORDER BY ID DESC")
If not rsQuery.Eof Then
TmpintID = rsQuery("ID").Value
'Log statement
Con.Execute "INSERT INTO LogDB(Username, IP, MsgID, SubmitCmd, Action, Admin, Comments) VALUES('" & strName & "', '" & Request.ServerVariables("REMOTE_ADDR") & "' , " & intID & ", '" & strSubmit & "', '" & strAction & "','" & Session("Admin") & "','Posted Message No. " & TmpintID & "')"
If strMessage2 <> "" Then
Con.Execute("INSERT INTO MessageDB(Poster,Subject,LastPoster,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','','" & strMessage & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ") ")
End if
If strMessage3 <> "" Then
Con.Execute("INSERT INTO MessageDB(Poster,Subject,LastPoster,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','','" & strMessage & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ") ")
end if
If strMessage4 <> "" Then
Con.Execute("INSERT INTO MessageDB(Poster,Subject,LastPoster,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','','" & strMessage & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ") ")
end if
If strMessage5 <> "" Then
Con.Execute("INSERT INTO MessageDB(Poster,Subject,LastPoster,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','','" & strMessage & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ") ")
end if
If strMessage6 <> "" Then
Con.Execute("INSERT INTO MessageDB(Poster,Subject,LastPoster,Message,ReplyID, IP, Icon) VALUES('" & strName & "','" & strTopic & "','','" & strMessage & "'," & IntID & ",'" & Request.ServerVariables("REMOTE_ADDR") & "'," & Request.Form("Icon") & ") ")
end if
end if
set rsQuery = Con.Execute("SELECT Replies FROM MessageDB Where ID=" & intID)
intReplies = rsQuery("Replies").Value
intReplies = intReplies + 1
Con.Execute("UPDATE MessageDB SET Replies=" & intReplies & ", LastPoster='" & strName & "',[Time]='" & Now() & "' WHERE ID=" & intID)
Response.Redirect "discussion_forum.asp"
Else
Set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE ID=" & intId)
If Not rsQuery.EOF Then
strTopic = "RE: " & rsQuery("Subject").Value
%>
<%=rsQuery("Subject").Value%>
<%=rsQuery("Poster").Value%>
<%=rsQuery("Time").Value%>
<%=rsQuery("Message").Value%>
<%
Set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE ReplyID=" & intId & " ORDER BY Time DESC")
WHILE NOT rsQuery.EOF
%>
<%=rsQuery("Subject").Value%>
<%=rsQuery("Poster").Value%>
<%=rsQuery("Time").Value%>
<%=rsQuery("Message").Value%>
<%
rsQuery.MoveNext
WEND
Else
Response.write "Error has occured: Invalid Post"
End If
End If
Case Else
Set rsQuery = Con.Execute("SELECT * FROM MessageDB WHERE ReplyID=0 ORDER BY Time DESC")
%>
Topic:
Replies:
Started by:
Last contributor:
Latest post:
<% If Session("Admin") = "True" Then
Response.Write "
"
End if
Response.write "
"
WHILE NOT rsQuery.EOF
strTemp = ""
If rsQuery("Locked") = True Then
strTemp = ""
End If
If Color = 1 Then
Response.write "
"
Color = 0
Else
Response.write "
"
Color = 1
End If
Response.write "
"
If rsQuery("Replies") > 14 Then
If rsQuery("Time").Value > Session("LastLogin") Then
Response.Write ""
Else
Response.Write ""
End if
Else
If rsQuery("Time").Value > Session("LastLogin") Then
Response.Write ""
Else
Response.Write ""
End if
End If
Response.Write "
"
Response.write "
"
If strTemp <> "" Then
Response.Write ""
Else
Response.Write ""
End If
Response.Write "