[JessSchmidt]

With regard to my previous post "CDONTS???", the problem has, apparently not been solved. I've been able to get an email but only the last field appears IN the email. Here is the code for the page. I don't understand what is wrong...I hope someone can help me! When I put this: objCDONTS.Body = objCDONTS.body & request.form("fieldname")
I get an error message that says Body is not supported. Now I'm completely confused.

<%
name = request.form("FirstName")
email = request.form("Email")

If name="" or email="" Then
url = "contact.asp?reqd=* indicates required field&name=" & name & "&email=" & email
If name="" Then
url = url & "&mFirstName=*"
End if

If email="" Then
url = url & "&mEmail=*"
End if

response.redirect url & "&foobar=foobar#form"
response.end
End if

Dim objCDONTS ' Email object
Dim strFromName ' From persons' real name
Dim strFromEmail, strToEmail ' Email addresses
Dim strSubject, strBody ' Message
Dim misccompo

strSubject = "MAILING LIST SIGN UP"
strFromName = Trim(Request.Form("FirstName"))
strFromEmail = Trim(Request.Form("Email"))
strToEmail = "jesstest@mqinnovations.com"
strBody = Trim(Request.Form("FirstName"))
strBody = Trim(Request.Form("LastName"))
strBody = Trim(Request.Form("Address"))
strBody = Trim(Request.Form("City"))
strBody = Trim(Request.Form("State"))
strBody = Trim(Request.Form("Zip"))
strBody = Trim(Request.Form("WrkPhone"))
strBody = Trim(Request.Form("Email"))
strBody = Trim(Request.Form("OwnMachineYes"))
strBody = Trim(Request.Form("OwnMachineNo"))
strBody = Trim(Request.Form("OwnLength"))

Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
objCDONTS.From = strFromName & " <" & strFromEmail & ">"
objCDONTS.To = strToEmail
objCDONTS.Subject = strSubject
objCDONTS.Body = strBody & request.form("FirstName")
objCDONTS.Body = strBody & request.form("LastName")
objCDONTS.Body = strBody & request.form("Address")
objCDONTS.Body = strBody & request.form("City")
objCDONTS.Body = strBody & request.form("State")
objCDONTS.Body = strBody & request.form("Zip")
objCDONTS.Body = strBody & request.form("WrkPhone")
objCDONTS.Body = strBody & request.form("Email")
objCDONTS.Body = strBody & request.form("OwnMachineYes")
objCDONTS.Body = strBody & request.form("OwnMachineNo")
objCDONTS.Body = strBody & request.form("OwnLength")

objCDONTS.Send
Set objCDONTS = Nothing

response.redirect "thanks.asp"
response.end
%>

[chirag]

Hi,

There is not need to get coufused...its very simple..

just use your code this way...
---------------------------
strBody = request.form("FirstName")
strBody = strBody & request.form("LastName")
strBody = strBody & request.form("Address")
strBody = strBody & request.form("City")
strBody = strBody & request.form("State")
strBody = strBody & request.form("Zip")
strBody = strBody & request.form("WrkPhone")
strBody = strBody & request.form("Email")
strBody = strBody & request.form("OwnMachineYes")
strBody = strBody & request.form("OwnMachineNo")
strBody = strBody & request.form("OwnLength")

objCDONTS.Body = strBody

[JessSchmidt]

OMG! IT WORKED!!

One last thing, I get the results but they are all running together on one line that wraps. How do I separate and make the results look like this with a label:

First Name: Jessica - ("Jessica" is the result)
Last Name: Schmidt
etc...

Here is the code for the page:

<%
name = request.form("FirstName")
email = request.form("Email")

If name="" or email="" Then
url = "contact.asp?reqd=* indicates required field&name=" & name & "&email=" & email
If name="" Then
url = url & "&mFirstName=*"
End if

If email="" Then
url = url & "&mEmail=*"
End if

response.redirect url & "&foobar=foobar#form"
response.end
End if

Dim objCDONTS ' Email object
Dim strFromName ' From persons' real name
Dim strFromEmail, strToEmail ' Email addresses
Dim strSubject, strBody ' Message
Dim misccompo

strSubject = "MAILING LIST SIGN UP"
strFromName = Trim(Request.Form("FirstName"))
strFromEmail = Trim(Request.Form("Email"))
strToEmail = "jesstest@mqinnovations.com"
strBody = strBody & request.form("FirstName")
strBody = strBody & request.form("LastName")
strBody = strBody & request.form("Address")
strBody = strBody & request.form("City")
strBody = strBody & request.form("State")
strBody = strBody & request.form("Zip")
strBody = strBody & request.form("WrkPhone")
strBody = strBody & request.form("Email")
strBody = strBody & request.form("OwnMachineYes")
strBody = strBody & request.form("OwnMachineNo")
strBody = strBody & request.form("OwnLength")

Set objCDONTS = Server.CreateObject("CDONTS.NewMail")
objCDONTS.From = strFromName & " <" & strFromEmail & ">"
objCDONTS.To = strToEmail
objCDONTS.Subject = strSubject
objCDONTS.Body = strBody

objCDONTS.Send
Set objCDONTS = Nothing

response.redirect "thanks.asp"
response.end
%>

I am indebted and I thank you A MILLION TIMES for your help and saving my sanity!!!

Jess

[chirag]

Hi,

you can put newline in your string by adding "<br>" wherever you want...

example....
strBody = strBody & " FirstName : " & request.form("FirstName") & "<br>"
strBody = strBody & "Last Name : " & request.form("LastName") & "<br>"
.....keep going...
and you are done....

[JessSchmidt]

I will try that and see how it works. I can't thank you enough. May God bless you abundantly!

[chirag]

Good Wishes...

always welcomed...

[maximus2004]

Hello, I noticed your threads and thought if someone could look at my code and see maybe what I am doing wrong.
************************************************** *
<form method=Post action=get.asp>
valley secretary<br>
<input type="text" name="t1" size="20"><p>
<input type=submit value=Submit></form>
************************************************** *
<%
Dim t1name,t1
t1name = "valley secretary"
t1 = Request.Form("t1")
Dim ObjMail
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.To = "kklimarchuk@supremecouncil.org"
ObjMail.From = "kklimarchuk@supremecouncil.org"
ObjMail.Subject = "Form Submission"
ObjMail.Body = t1name & vbcrlf&_t1
ObjMail.Send
Set ObjMail = Nothing
Response.Write"Thank You"
%>

Here are the two pages html and calling the asp. As you can see I am new to this. I also had our Network Admin make sure CDONTS was installed correctly on IIS. Any help would be awesome. I have been trying to create an email form for months now......

[stompalot]

Try this....

<%
Dim t1name,t1
t1name = "valley secretary"
t1 = Request.Form("t1")
Dim ObjMail
Set ObjMail = Server.CreateObject("CDONTS.NewMail")
ObjMail.To = "kklimarchuk@supremecouncil.org"
ObjMail.From = "kklimarchuk@supremecouncil.org"
ObjMail.Subject = "Form Submission"
ObjMail.Body = t1name & vbcrlf&_
t1
ObjMail.Send
Set ObjMail = Nothing
Response.Write"Thank You"
%>


Jon