|
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/enrgy/ |
Upload File : |
<%
Dim array1(23)
Dim objMail, strBody
Set objMail = Server.CreateObject("CDONTS.NewMail")
array1(0) = "a. First Name"
array1(1) = "b. Last Name"
array1(2) = "c. Title"
array1(3) = "d. Agency"
array1(4) = "e. Company"
array1(5) = "f. Department"
array1(6) = "g. Street Address"
array1(7) = "h. City"
array1(8) = "i. State"
array1(9) = "j. Zip - Postal Code"
array1(10) = "k. Country"
array1(11) = "l. Phone"
array1(12) = "m. Fax"
array1(13) = "Email"
array1(14) = "n. ------------Ad Insertion Information"
array1(15) = "o. Click Through URL"
array1(16) = "p. Alt Text"
array1(17) = "q. Ad Package"
array1(18) = "r. Start Date"
array1(19) = "s. Delivery"
array1(20) = "t. Other"
array1(21) = "u. ------------Ad Insertion Information"
array1(22) = "v. Comments Box"
array1(23) = "Contact me concerning other opportunities"
For i = 0 to ubound(array1)
'Response.Write array1(i) & " - " & Request.QueryString(array1(i)) & "<br>"
strBody = strBody & array1(i) & " - " & Request.QueryString(array1(i)) & Chr(10)
Next
objMail.To = "[email protected]"
objMail.From = "[email protected]"
objMail.Subject = "Ad Insertion Information"
objMail.Body = strBody
objMail.Send
%>