****************************
THIS IS WHAT I HAVE
***************************
****************************
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Option Explicit
Response.Expires = 0
Dim strFrom
Dim strEmail
Dim strPhone
Dim strContact
Dim strProjectbudget
Dim strCurrent
Dim strPages
Dim strMState
Dim strProjecttype
Dim strMDescription
strFrom = Trim(Request.Form("contactname"))
strEmail = Trim(Request.Form("emailaddress"))
strPhone = Trim(Request.Form("phonenumber"))
strContact = Trim(Request.Form("timecontact"))
strProjectbudget = Trim(Request.Form("projectbudget"))
strCurrent = Trim(Request.Form("currentsiteavailable"))
strPages = Trim(Request.Form("pagesforsite"))
strMState = Trim(Request.Form("location"))
strProjecttype = Trim(Request.Form("projecttype"))
strMDescription = Trim(Request.Form("projectdescription"))
'this section sends the information to your email in an html format
Dim objMyMail1, msgBody, msgSubject
Set objMymail1 = Server.CreateObject("CDONTS.NewMail")
Dim strResponse
strResponse = "Regarding Tester"
msgSubject = strResponse
'this creates and prepares the html formatted email
msgBody ="<html>"
msgBody = msgBody & "<head>"
msgBody = msgBody & "<title>Site Response</title>"
msgBody = msgBody & "<style type='text/css'>"
msgBody = msgBody & "<!--"
msgBody = msgBody & "p { font-family: Arial, Helvetica, sans-serif; font-size: 75%; color: #333333;}"
msgBody = msgBody & "-->"
msgBody = msgBody & "</style>"
msgBody = msgBody & "</head>"
msgBody = msgBody & "<body>"
msgBody = msgBody & "<p>This is a request for ADS Graphics Firm Services</p>"
msgBody = msgBody & "<p>Name: "
msgBody = msgBody & strFrom
msgBody = msgBody & "</p>"
msgBody = msgBody & "<p>Email: "
msgBody = msgBody & strEmail
msgBody = msgBody & "</p>"
msgBody = msgBody & "<p>Phone: "
msgBody = msgBody & strPhone
msgBody = msgBody & "</p>"
msgBody = msgBody & "<p>Contact Time: "
msgBody = msgBody & strContact
msgBody = msgBody & "</p>"
msgBody = msgBody & "<p>Budget: "
msgBody = msgBody & strProjectbudget
msgBody = msgBody & "</p>"
msgBody = msgBody & "<p>Estimated # Pages:"
msgBody = msgBody & strPages
msgBody = msgBody & "</p>"
msgBody = msgBody & "<p>Current Location:"
msgBody = msgBody & strMState
msgBody = msgBody & "</p>"
msgBody = msgBody & "<p>Project Type:"
msgBody = msgBody & strProjecttype
msgBody = msgBody & "</p>"
msgBody = msgBody & "<p>Project Description:<br>"
msgBody = msgBody & strMDescription
msgBody = msgBody & "</p>"
msgBody = msgBody & "</body></html>"
'End of html format
objMyMail1.From = "tester@tester.com"
objMyMail1.To = "testerer@tester.com"
//'use the email address that you desire the message to be sent to..
objMyMail1.Subject = "Design Request"
objMyMail1.BodyFormat = 0
objMymail1.MailFormat = 0
objMyMail1.Body = msgBody
objMyMail1.Send
Set objMyMail1 = Nothing
%>
<!--
Everything above this poont will go above the head tag in your file
remember that this file should be named with an asp extension. -- contactresponse.asp
-->
<html>
<head>
<title>..:..Contact Page</title>
<style type="text/css">
<!--
p { font-family: Arial, Helvetica, sans-serif; font-size: 95%; color: #333333;}
-->
</style>
</head>
<body>
<!--
Put these paragraphs on the actual page inside your html code
Format them as needed
-->
<p>Thank you again for your interest <%= strFrom %></p>
<p>We will be in contact you shortly!</p>
<script language="Javascript">
alert ("Your email has been delivered successfully, Thank you.")
location = "Contact.htm"
</script>
</body></html>
******************************
It seems to work on some level.
It does create an email and even sends it in the correct format.
But the lables are the only items that are in the emal.
i.e. Name:
Phone:
Address:
all the fields are blank.
I used Trim(Request.Form("variable name")) to gather the text in the input fields, and double checked that the have the correct variable names. but they are still blank...
any ideas as to what the proble could be.
