<%@LANGUAGE="VBSCRIPT"%>
<%
if Request.Form("FFSubmitted") = "yes" then
Dim BodyString
'Dim objCDO
Dim RedirectURL
Dim FormFields
Dim arrFormFields
FormFields = "fname~lname~address~city~state~zip~country~phone~invoice"
If FormFields <> "" Then
arrFormFields = split(FormFields,"~")
End If
'Dimension variables
Dim objCDOSYSCon
'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
'Out going SMTP server
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.ecruises.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
'Update the CDOSYS Configuration
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "admin@ecruises.com"
objCDOSYSMail.To = "info@ecruises.com"
objCDOSYSMail.Subject = "Cruise Travel Free Subscription"
'Set objCDO = Server.CreateObject("CDONTS.NewMail")
'objCDO.From = "admin@ecruises.com"
'objCDO.To = "info@ecruises.com"
'objCDO.Cc = ""
'objCDO.Bcc = "admin@ecruises.com"
'objCDO.Subject = "New Email From Site"
BodyString = Replace("","~",chr(13) & chr(10) )& chr(13)
If FormFields <> "" Then
For Each item In arrFormFields
BodyString = BodyString & item & ": " & Request.Form(item) & "
"
Next
End If
objCDOSYSMail.HTMLBody = BodyString
objCDOSYSMail.Send
'Close the server mail object
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
'objCDO.Body = BodyString
'objCDO.BodyFormat = 1
'objCDO.MailFormat = 1
'objCDO.Send
'Set objCDO = Nothing
RedirectURL = ""
If RedirectURL <> "" then
If Request.QueryString <> "" Then
response.redirect(RedirectURL & "?" & Request.QueryString)
else
response.redirect(RedirectURL)
end If
end if
end if
%>
<% MM_EditAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_EditAction = MM_EditAction & "?" & Request.QueryString
End If
%>
Search For the Perfect Cruise with eCruises.com
| |
| The
promotional offer of Free Cruise Travel Magazine subscription
has been cancelled and not available from 3/18/2012.
|
|
|
