<%
If request.queryString("replyTo") <> "" then
' we use this in a hidden field on the page
parentID = request.queryString("replyTo")
elseif Request.Form("Submit") = "Add" then
' k, let's add away!
dim name, email, title, message, parentID
name = Request.Form("txtName")
email = Request.Form("txtEmail")
title = Request.Form("txtTitle")
message = Request.Form("txtMessage")
if not isNumeric(Request.form("replyTo")) then
parentID = 0
else
parentID = Request.form("replyTo")
end if
dim cn, cm
set cn = server.createObject("ADODB.Connection")
set cm = server.createObject("ADODB.Command")
cn.open "multiply", "multiply", "mult1ply"
cm.activeConnection = cn
cm.commandText = "INSERT INTO pluralboard (poster, posteremail, parentID, title, message) VALUES ('" & name & "', '" & email & "'," & parentID & " , '" & title & "', '" & message & "')"
cm.execute
cn.close
set cm = nothing
set cn = nothing
response.redirect "board.asp"
end if
%>
plural :: chit chat