%@LANGUAGE="VBSCRIPT"%> <% if (cStr(Request("Submit")) <> "") Then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = Request.Form("Email") objCDO.To = "news@hawaiiocean.com" objCDO.CC = "cindy@hotpixels.com" objCDO.Subject = "I want to subscribe to Hawaii Ocean Industry" objCDO.Body = "Name: " &Request.Form("FullName") & chr(10) & "Title: " &Request.Form("Title") & chr(10) & "Company: " &Request.Form("Company") & chr(10) & "Address: " &Request.Form("Address_1") & " " &Request.Form("Address_2") & chr(10) & "City: " &Request.Form("City") & " State: " &Request.Form("State")& " Zip: " &Request.Form("Zip") & chr(10) & "Phone: " &Request.Form("Phone") & chr(10) & "Fax: " &Request.Form("Fax") & chr(10) & "E-mail: " &Request.Form("Email") & chr(10) & chr(10) & "Affiliation: " &Request.Form("Affiliation") & " " &Request.Form("Provider_of") &Request.Form("Supplier_of") &Request.Form("Govt_Agency") &Request.Form("Other_Affil") & chr(10) & "Job Function: " &Request.Form("Job_Function") &Request.Form("Other_Job") objCDO.Send() Set objCDO = Nothing Response.Redirect("http://www.hawaiiocean.com/Subscribe/thanks.html") End If %>
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||