%
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
%>
In Response To |
<%= sOrigMessage %> |