<% Function prepStringForSQL(sValue) Dim sAns sAns = Replace(sValue, Chr(39), "''") sAns = "'" & sAns & "'" prepStringForSQL = sAns End Function MessageID = Request("MessageID") if MessageID = "" then MessageID = request.QueryString("MessageID") ThreadID = request("ThreadID") if ThreadID = "" then ThreadID = request.QueryString("ThreadID") sOrigAuthor = request("OrigAuthor") if sOrigAuthor = "" then sOrigAuthor = request.QueryString("OrigAuthor") bValid = MessageID <> "" if bValid then sSQL = "SELECT TOPIC,COMMENTS FROM FORUM_MESSAGES WHERE ID = " & Request("MessageID") cmd.CommandText = sSQL set rs = cmd.Execute sOrigMessage = replace(rs("comments"), vbcrlf, "
") sOrigMessage = replace(sOrigMessage, " ", "  ") sOrigTopic = rs("Topic") conn.execute sSQL iCategory = request("Category") %> <% iTopic = Request("Category") end if 'bValid Function isBlank(Value) if isNull(Value) then bAns = true else bAns = trim(Value) = "" end if isBlank = bAns end function Function FixNull(Value) if isNull(Value) then sAns = "" else sAns = trim(Value) end if FixNull = sAns end function %> <%'If not session("discussionlogin") Then ' 'End if%> <%=sitename%> : Message Reply Form <%=meta%> <% if not bValid then response.write "You cannot navigate to this page without selecting a forum message. Please " response.write "return to the forum index and try again." response.end end if %> <%searchbox%><%loginform%>
"> <%If session("discussionlogin") then%> <%Else%> <%End if%>
DISCUSSION FORUM: REPLY
UserNameLogged on as: <%=session("username")%>
Email<%=session("useremail")%>
Email
Password
Forgot password ? | Sign up now! | Remember
Topic
Message
 
In Response To
<%= sOrigMessage %>