|
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 objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "[email protected]"
objCDO.To = "[email protected]"
objCDO.Bcc = "[email protected]"
Dim strBody
strBody = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"
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
objCDO.Subject = "Subject Goes Here"
objCDO.BodyFormat = 0 ' HTML
objCDO.MailFormat = 0 ' HTML
objCDO.Body = strBody
objCDO.Send
Set objCDO = Nothing
%>
<HTML>
<TITLE>Thank You</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>