<% Dim blnMailSent, arrEmail, arrSender, strSubject, strBody, strFrom, objConfig LanguageParser.IncludeSection "mailform" blnMailSent = false strSQL = "SELECT muser, mmail FROM aspbb_members WHERE mid={0}" objDAL.GetRows arrEmail,1, strSQL, Array(Request("to")) If Request.Form("send") then //Get info about the sender strSQL = "SELECT muser,mmail, mid FROM aspbb_members WHERE mid={0}" objDAL.GetRows arrSender,1, strSQL, Array(userid) If not EOF(arrSender) Then strSubject = Request.form("subject") strBody = langEmailBodyHeader & arrSender(0, 0) & vbcrlf & vbcrlf & Request.form("body") & vbcrlf & vbcrlf & langEmailBodyFooter & "http://" & request.servervariables("http_host") & request.servervariables("url") & "?to=" & arrSender(2, 0) if request.form("showmail") = "on" then strFrom = arrSender(1, 0) else strFrom = strReplyAdress end if blnMailSent = aspbbEmail (strFrom,arrSender(0, 0), arrEmail(1, 0), arrEmail(0, 0), strSubject, strBody) End if End if if inside = 1 then %>

<%= langEmail & " " & arrEmail(0,0) %>
<% =langSubject %>
<% =langMSG %>
<% =langChoise%>	<% = langUseRealMail %>
<% =langSend %>	">

<% else LanguageParser.IncludeKey "errors", "ErrorGeneral" LanguageParser.IncludeKey "errors", "NotLoggedIn" %>

<%= langErrorGeneral %>
	<% =langNotLoggedIn %>

<% End if if blnMailSent = true then response.write langMailSent ENd if %>