% 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 %>