%
If Request.Form("sendemail").Count = 1 then
sTo = "calendar@nymyachts.com"
sFrom = "no-reply@nymyachts.com"
sCC = ""
sBCC = "jen@net-impact.ca"
sSubject = "NYMYachts.com Boatshow Registration"
sTextBody = "A registration request has been recieved. Details as follows:" & vbcrlf & vbcrlf _
& "Charter Brokerage: " & Request.Form("cb") & vbcrlf _
& "Name of Agent: " & Request.Form("an") & vbcrlf _
& "Contact Number: " & Request.Form("cn") & vbcrlf _
& "Email Address: " & Request.Form("em") & vbcrlf
sHTMLBody = "A registration request has been recieved. Details as follows:
" _
& "Charter Brokerage: " & Request.Form("cb") & "
" _
& "Name of Agent: " & Request.Form("an") & "
" _
& "Contact Number: " & Request.Form("cn") & "
" _
& "Email Address: " & Request.Form("em") & "
"
Set Mail = Server.CreateObject("CDO.Message")
Mail.From = sFrom
Mail.To = sTo
Mail.BCC = sBCC
Mail.Subject = sSubject
Mail.TextBody = sTextBody
Mail.HTMLBody = sHTMLBody
Mail.Send
Set Mail = Nothing
end if
%>
For the list of brokers attending the 26th annual Spring Charter Show, please go to the NYM Boat Show page and click on attending brokers/managers.
Do not use this form, it does not work |
|
|
|