<%@ Language=VBScript %>
<%
' ///////////////////////////////////////////////////////
' // Dimac CMS
' // Copyright 2004-2008 Dimac Development AB, Sweden
' // www.Dimac.net
' //
' // NOTE:
' // You are not allowed to remove this
' // Copyright information without written
' // permission from Dimac Development.
' ///////////////////////////////////////////////////////
Dim vURL , vMessage
vSubject = langLabelEmail
vEmailComponent = GetSettingValue("EmailComponent", "..\..\SiteResources\Data\")
vWebSiteRoot = GetSettingValue("WebSiteRoot", "..\..\SiteResources\Data\")
vToEmail = Request.Form("ToEmail")
vYourName = Request.Form("YourName")
vToYourEmail = Request.Form("YourEmail")
vMessage2 = Request.Form("Message")
vMessage = FavRoot & vbTab & langLabelRecommendProcessText & " " & vYourName & " " & vToYourEmail & vbCrLf & vbCrLf
vMessage = vMessage & vYourName & " " & langLabelRecommendProcessText2 & vbCrLf
vMessage = vMessage & vWebSiteRoot & "default.asp?BMID=" & Session("DocID") & " " & vbCrLf & vbCrLf
vMessage = vMessage & langLabelRecommendMessage & " " & vYourName & vbCrLf & vbCrLf
vMessage = vMessage & vMessage2
SELECT CASE LCase( vEmailComponent )
CASE "cdonts"
Set mail = Server.CreateObject ("CDONTS.NewMail")
mail.BodyFormat = 1
mail.MailFormat = 0
on error resume next
mail.Send vToYourEmail, vToEmail, vSubject, vMessage
CASE "jmail"
set msg = Server.CreateOBject( "JMail.Message" )
msg.From = vToYourEmail
msg.FromName = vYourName
msg.AddRecipient vToEmail
msg.Subject = vSubject
msg.Body = vMessage
msg.Logging = True
msg.Send "Localhost"
END SELECT
%>
Email sent.
[<%=langLabelWindowClose%>]