"
END SELECT
next
' response.write ("SendPMNotify("&memLogin&","&PMID&","&delEmails&")")
Call SendPMNotify(memLogin,PMID,delEmails,subject,body)
end if
objCon.close
Set objCon = nothing
end if
%>
<%= Application(dbName&"forumtitle") %>
<%= NoScript() %>
<%= OutputCSS() %>
<%= PMFinalMessage %>
<%
else
toMemID = request.queryString("toMemID")
toMem = request.queryString("toMem")
r_do = request.queryString("do")
allforum = Application(dbName&"foruminfo")
PMID = request.queryString("PMID")
PMAlwaysSave = request.cookies(dbName&"PMAlwaysSave")
if PMID = "" then PMID = 0' new private message (not reply)
if isPostAllowed then
if r_do="reply" then
set objRS = server.createobject("adodb.recordset")
objRS.open dbOwnerPrefix&"spPMPreSend("& MemID &", "& PMID &")", datastore, , ,adCmdStoredProc
if not (objRS.EOF and objRS.BOF) then' test if allowed to use private message
sig = objRS(0).value
alwaysSig = objRS(1).value
set objRS = objRS.nextrecordset
arrReply = objRS.getRows
objRS.close
else
isPostAllowed = false
end if
set objRS = nothing
if isPostAllowed then
subject = SQLout(arrReply(0,0))
bodyquote = vbcrlf & "[quote]" & quotePrefix & " " & HTMLEncode(""&toMem) & vbcrlf & vbcrlf & SQLout(arrReply(1,0)) & vbcrlf &"[/quote]"& vbcrlf
end if
elseif r_do="event" then
Dim EventSubject
set objRS = server.createobject("adodb.recordset")
with objRS
.CacheSize = 150
.open "SELECT subject FROM pgd_events WHERE eventID="&request.queryString("eventID"), datastore, , , adCmdText
If not (.EOF or .BOF) then
EventSubject = SQLOut(.fields(0))
End if
.close
end with
set objRS=nothing
else
set objRS = server.createobject("adodb.recordset")
objRS.open dbOwnerPrefix&"spPMPreSend("& MemID &", "& PMID &")", datastore, , ,adCmdStoredProc
if not (objRS.EOF and objRS.BOF) then
sig = objRS(0).value
alwaysSig = objRS(1).value
else
isPostAllowed = false
end if
objRS.close
set objRS = nothing
' if r_do="report" then toMemID = "0,"&Application(dbName&"foruminfo")(11,request.queryString("appid"))
end if
End if
if isPostAllowed then
if not (isnull(sig) or sig="") then sig = SQLout(sig)
end if
if isPostAllowed and toMemID<>"" and toMem = "" and r_do <> "report" then
'response.write "yes"
toMemID = CheckDelimitedFormat(toMemID,",")
set objRS = server.createobject("adodb.recordset")
With objRS
.open "SELECT Login FROM pgd_members WHERE Mem in ("&toMemID&")", datastore, , , adCmdText
if not (.eof and .bof) then toMem = .getString(adClipString,,"",",","")
.close
End With
set objRS = nothing
toMem = CheckDelimitedFormat(toMem,",")
end if
if trim(toMem)<>"" then toMem = toMem&","
allowUpload = Application(dbName&"enablePMUpload")
Dim key, language
%>
<%= Application(dbName&"forumtitle") %>
<%= NoScript() %>
<%= OutputCSS() %>
<% Dim onload %>
<%
if isPostAllowed then
if r_do="reply" then
onload = "onload=""document.forms[0].body.focus(); "
else
onload = "onload=""document.forms[0].subject.focus(); "
end if
onload = onload & "if (opener.document.selectedText && opener.document.selectedText.selectedText.value!=''){document.forms[0].body.value += '[quote]'+opener.document.selectedText.selectedText.value+'[/quote]'};"""
end if
%>
<%= tablealt %> <%= Application(dbName&"bodyoption") %> style="margin:0px 0px 0px 0px">
"
Dim failPMPic:failPMPic = "
"
SELECT Case PMreturnedValue' = 1 then delEmails = delEmails & .parameters("@email") & ";"
Case 1
delEmails = delEmails & PMSuccessEmail & ";"
PMFinalMessage = PMFinalMessage &"