<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
if Request("submit")="SEND CONTACT US FORM TO MISSION RAINBOW" then
DIM strEmail, strFirstName, strLastName, strSubject, strComments, Mailer
strEmail = request.form("Email")
strFirstName = request.form("FirstName")
strLastName = request.form("LastName")
strSubject = request.form("Subject")
if request.form("radiobutton") = "savineil" then
strReceipient = "savineil@emirates.net.ae"
Names = "Neil & Savi"
else if request.form("radiobutton") = "lonimoni" then
strReceipient = "lonimoni@missionrainbow.com"
Names = "Loni & Monica"
else if request.form("radiobutton")="admin" then
strReceipient ="admin@missionrainbow.com"
Names = "Mission Rainbow Administrator"
else if request.form("radiobutton")="webmaster" then
strReceipient ="admin@missionrainbow.com"
Names = "Mission Rainbow Webmaster"
else if request.form("radiobutton")="kishan" then
strReceipient ="drumkingroup@sltnet.lk"
Names = "Kishan & Sue De Silva"
else if request.form("radiobutton")="Shyhara" then
strReceipient ="shyaramiles@hotmail.com"
Names = "Shyara Miles"
else if request.form("radiobutton")="jacob" then
strReceipient ="j.isaac@freightworks.com"
Names = "Jacob Isaac"
else if request.form("radiobutton")="duncan" then
strReceipient ="duncan.watkinson@turbocam.com"
Names = "Duncan & Vasanthi Watkinson"
else if request.form("radiobutton")="tim" then
strReceipient ="himachiromin@hotmail.com"
Names = "Dr. Timothy & Cindy Pierce"
else if request.form("radiobutton")="alex" then
strReceipient ="alexrenu@hotmail.com"
Names = "Alexander & Renuka John"
end if
end if
end if
end if
end if
end if
end if
end if
end if
End if
'DIM strMsgHeader, qryItem, strMsgInfo
'Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
'Mailer.FromName = "Mission Rainbow Website"
'Mailer.FromAddress= "admin@missionrainbow.com"
'Mailer.ReplyTo = strEmail
'Mailer.RemoteHost = "mail.missionrainbow.com"
'Mailer.AddRecipient = strReceipient
'Mailer.Subject = "MR Website Inquiry"
strMsgHeader = "This mail message was sent from the www.missionrainbow.com Online Form" & vbCrLf & vbCrLf
strComments = strMsgHeader & vbCrLf & "Email: " & Request.Form("Email") & _
vbCrLf & "Full Name: " & Request.Form("FullName") & _
vbCrLf & "Phone: " & Request.Form("Phone") & _
vbCrLf & "Fax: " & Request.Form("Fax") & _
vbCrLf & "Mobile: " & Request.Form("Mobile") & _
vbCrLf & "Address: " & Request.Form("Address") & _
vbCrLf & "Inquiry: " & Request.Form("Inquiry")
strServer = Replace(request.servervariables("SERVER_NAME"),"www.","")
strSMTPServer = "smtp." & strServer
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.Logging = true
JMail.silent = true
JMail.ServerAddress = strSMTPServer
JMail.AddRecipient strReceipient
JMail.Sender = strEmail
JMail.Subject = "MR Website Inquiry"
JMail.Body = strComments
JMail.Execute
IF NOT JMail.Execute THEN
Response.Write( "ERROR MESSAGE: " & JMail.ErrorMessage & " " & vbcrlf )
Response.Write( "ERROR SOURCE: " & JMail.ErrorSource & " " & vbcrlf )
Response.Write( "LOG:
" & JMail.Log & "
" & vbcrlf )
ELSE
Response.Write "
Your :" & strSubject & " Newsletter has been successfully sent to " & intSubscribers & " subscribers.
"
END IF
Set JMail= Nothing
'IF Mailer.SendMail THEN
'Response.Write strFirstName & ", "
'Response.Write "Your message has been successfully sent."
'ELSE
'Response.Write "The following error occurred while sending your message: " & Mailer.Response
'END IF
response.redirect ("contact.asp?sent=Yes&Names="& Names & "")
End if
%>
MISSION RAINBOW - an ark admist trouble waters
