|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/ceonlinenews/cgi-bin/ |
Upload File : |
<%
Dim objSMTP
Set objSMTP = Server.CreateObject("SMTPsvg.Mailer")
objSMTP.ContentType = "text/html"
objSMTP.FromName = Trim(Request.Form("name_first")) & " " & Trim(Request.Form("name_last"))
objSMTP.FromAddress= Trim(Request.Form("email"))
objSMTP.RemoteHost = "smtp.rcn.com"
objSMTP.AddRecipient "Marjorie Costello","[email protected]"
objSMTP.AddBcc "Hallie","[email protected]"
objSMTP.Subject = "CEON Info Request"
Dim strBody
strBody = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN""><HTML><BODY>"
strBody = strBody & "First Name: " & Trim(Request.Form("name_first")) & "<BR>" & vbCrLf
strBody = strBody & "Last Name: " & Trim(Request.Form("name_last")) & "<BR>" & vbCrLf
strBody = strBody & "Title: " & Trim(Request.Form("title")) & "<BR>" & vbCrLf
strBody = strBody & "Company: " & Trim(Request.Form("company")) & "<BR>" & vbCrLf
strBody = strBody & "Division: " & Trim(Request.Form("division")) & "<BR>" & vbCrLf
strBody = strBody & "Work Phone: " & Trim(Request.Form("phone_work")) & "<BR>" & vbCrLf
strBody = strBody & "E-mail: " & Trim(Request.Form("email")) & "<BR>" & vbCrLf
strBody = strBody & "City: " & Trim(Request.Form("city")) & "<BR>" & vbCrLf
strBody = strBody & "State: " & Trim(Request.Form("state")) & "<BR>" & vbCrLf
strBody = strBody & "Country: " & Trim(Request.Form("country")) & "<BR>" & vbCrLf
strBody = strBody & "Calendar Option: " & Trim(Request.Form("Calendar_Option")) & "<BR>" & vbCrLf
strBody = strBody & "Coverage: " & Trim(Request.Form("coverage")) & "<BR>" & vbCrLf
strBody = strBody & "Other: " & Trim(Request.Form("coverage_other")) & "<BR>" & vbCrLf
strBody = strBody & "</BODY></HTML>" & vbCrLf
objSMTP.BodyText = strBody
if objSMTP.SendMail then
Response.Write "Mail sent to CEON..."
else
response.Write "Mail send failure! <br><br>Please call tech support at (212) 360-5050. <br><br>Error was " & objSMTP.Response
end if
Set objSMTP = Nothing
%>
<HTML>
<TITLE>Thank You - Info Confirmation page. Need help? Call 212-735-5771</TITLE>
<BODY bgcolor="#FFFFFF">
<H1><font face="Arial, Helvetica, sans-serif">Thank You</font></H1>
<p><font face="Arial, Helvetica, sans-serif" size="3">We have received your information
and will respond as soon as possible. </font></p>
<p><font face="Arial, Helvetica, sans-serif" size="3">Click <a href="/index.htm">HERE</a>
to return to <b>CEON</b>. </font> </p>
</BODY>
</HTML>