Partner Sites:
|
|
Contact Us
Harbour Island Club & Marina
P.O. Box EL 27183
Harbour Island, Bahamas
Toll Free: (800) 492-7909
Tel: (242) 333-2427
Fax: (242) 333-3040
Email: dockmaster@harbourislandmarina.com
<%
if Request("submit") <> "" then
Dim objCDO
Set objCDO = Server.CreateObject("CDO.Message")
Dim objCDOConf
Set objCDOConf = Server.CreateObject("CDO.Configuration")
With objCDOConf.Fields
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "mail-fwd"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 10
.Update
End With
Set objCDO.Configuration = objCDOConf
' Be sure to use a valid email addresses below:
objCDO.From = "thomas@kennedyfs.com"
objCDO.To = "thomas@kennedyfs.com"
objCDO.Subject = "Contact Info From HIM Web Site"
objCDO.TextBody = "Contact Info From HIM Web Site"
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "First Name:: "
objCDO.TextBody = objCDO.TextBody & Request("First Name:")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "Last Name:: "
objCDO.TextBody = objCDO.TextBody & Request("Last Name:")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "Email:: "
objCDO.TextBody = objCDO.TextBody & Request("Email:")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "Address:: "
objCDO.TextBody = objCDO.TextBody & Request("Address:")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "Address 2:: "
objCDO.TextBody = objCDO.TextBody & Request("Address 2:")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "City:: "
objCDO.TextBody = objCDO.TextBody & Request("City:")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "State/Province:: "
objCDO.TextBody = objCDO.TextBody & Request("State/Province:")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "Country:: "
objCDO.TextBody = objCDO.TextBody & Request("Country:")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "Zip/Postal Code:: "
objCDO.TextBody = objCDO.TextBody & Request("Zip/Postal Code:")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "Telephone:: "
objCDO.TextBody = objCDO.TextBody & Request("Telephone:")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.TextBody = objCDO.TextBody & "Your Message:: "
objCDO.TextBody = objCDO.TextBody & Request("Your Message:")
objCDO.TextBody = objCDO.TextBody & chr(10) & chr(13)
objCDO.Send
'Clean-up
Set objCDO = Nothing
Set objCDOConf = Nothing
' Happy response. If you would rather,
' change the following to
' Response.Redirect "thanks.html" or similar
Response.Write "Your Message has been sent. Thank you!"
Response.End
end if
%>
|
|
|
|
|
|
|
