<% '// Check if a user tries to send PM to himself or if a user isnt logged in LanguageParser.IncludeSection "sendpm" If Clng(Request("to")) = Clng(userid) then %>

<% =LanguageParser.GetKey("errors", "ErrorSendPm") %>

<% = LanguageParser.GetKey("errors", "ErrorSendPmToSelf") %>

<% Response.End Elseif inside = 0 then %>

<% =LanguageParser.GetKey("errors", "ErrorSendPm") %>

<% =LanguageParser.GetKey("errors", "ErrorSendPm") %>

<% Response.End End if %> <% '/// Check if this is an reply then draw the form Dim intToId, intReplyTo, arrPM intToId = Clng(Request("to")) intReplyTo = Clng(Request("replyto")) If intReplyTo = 0 Then strSQL = "Select muser FROM aspbb_members WHERE mid ={0}" Else 'strSQL = "Select aspbb_members.muser, aspbb_PM.pmSubject, aspbb_PM.pmText, aspbb_PM.pmId, aspbb_members.mid FROM aspbb_members INNER JOIN aspbb_PM ON aspbb_PM.pmId={1} WHERE aspbb_members.mid ={0}" strSQL = "Select aspbb_members.muser, aspbb_PM.pmSubject, aspbb_PM.pmText, aspbb_PM.pmId, aspbb_members.mid FROM aspbb_members, aspbb_PM WHERE aspbb_members.mid ={0} and aspbb_PM.pmId={1}" End if objDAL.open arrPM, strSQL, array(intToId, intReplyTo) If not EOF(arrPM) Then %>

<% =langSendTo %> <% =arrPM(0,0) %>
<% =langSubject %>	<% If intReplyTo then Response.Write "" Else Response.Write "" End if %>
<% = langMSG %>	<% If intReplyTo then Response.Write "" & vbcrlf & vbcrlf & "[quote=" & arrPM(0,0) & "] "& arrPM(2,0) & "[/quote]" Else Response.Write "" End if %>

<% Else If len(Request.QueryString("sendpm")) = 0 then %>

<% =LanguageParser.GetKey("errors", "ErrorGeneral") %>

<% = LanguageParser.GetKey("errors", "ErrorGeneralLong") %>

<% End if End if %> <% '/// Send PM IF len(Request.QueryString("sendpm")) <> 0 AND userid <> 0 Then dim strSubject if chkstring(Request.Form("subject"),0) = "" then strSubject = "-" else strSubject = chkstring(Request.Form("subject"),0) End if strSQL = "INSERT INTO aspbb_PM (pmFromId,pmToId,pmSubject,pmText,pmDate) VALUES ({0},{1},{2},{3},{4})" objDAL.Execute strSQL, array(userid,intToId,strSubject,Request.Form("text"), cTimeStamp(now())) If len(intReplyTo) <> 0 then strSQL = "UPDATE aspbb_PM SET pmReplied={0}, pmStatus=2 WHERE pmId={1}" objDAL.Execute strSQL, array(cTimeStamp(now()), intReplyTo) End if Response.Write langSendOK End if %>