ive succesfully (at last) got an asp page which sends information both to a database and to an email (Using CDONTS)

One problem with CDONTS I have noticed is that when the information is sent via email the data shown is not the most user friendly

EG:

The following information was submitted:
Paul
Course
Yes
N/A
Mon, 1, Jan, 04
2, 3, 4, 5, 6
Yes
Yes
pworsnop@hotmail.com

Thank you for submitting your data.

How can i alter the code so something like this is shown in the email:

The following information was submitted:
Name: Paul
Reason:Course
Already Authorised:Yes
Details:N/A
Date:Mon, 1, Jan, 04
Periods Absent:2, 3, 4, 5, 6
Form Require Cover:Yes
Faculty Head Aware:Yes
Your Email:pworsnop@hotmail.com

Thank you for submitting your data.

This is the CDONTS code i have used:

Dim myCDONTSMail
Dim strFrom
Dim strTo
Dim strSubject
Dim strBody

strFrom=Request.Form("MyEmail")

strTo="pworsnop@wickersley.net"

strSubject = "Send to E-mail and Database"
 
strBody="The following information was submitted:" & Chr(13)
strBody= strBody & Request.Form("MyName") & Chr(13)
strBody= strBody & Request.Form("MyReason") & Chr(13)
strBody= strBody & Request.Form("MyAuthorised") & Chr(13)
strBody= strBody & Request.Form("MyDetails") & Chr(13)
strBody= strBody & Request.Form("MyDate") & Chr(13)
strBody= strBody & Request.Form("MyPeriods") & Chr(13)
strBody= strBody & Request.Form("MyCover") & Chr(13)
strBody= strBody & Request.Form("MyFaculty") & Chr(13)
strBody= strBody & Request.Form("MyEmail") & Chr(13)
strBody= strBody & Chr(13) & "Thank you for submitting your data."

Set myCDONTSMail = CreateObject("CDONTS.NewMail")
myCDONTSMail.Send strFrom,strTo,strSubject,strBody
Set myCDONTSMail = Nothing


%>

Thanks!

I dont knw much in this area, but.

where it goes:

strBody= strBody & Request.Form("MyName") & Chr(13)
strBody= strBody & Request.Form("MyReason") & Chr(13)
strBody= strBody & Request.Form("MyAuthorised") & Chr(13)
strBody= strBody & Request.Form("MyDetails") & Chr(13)
strBody= strBody & Request.Form("MyDate") & Chr(13)
strBody= strBody & Request.Form("MyPeriods") & Chr(13)
strBody= strBody & Request.Form("MyCover") & Chr(13)
strBody= strBody & Request.Form("MyFaculty") & Chr(13)
strBody= strBody & Request.Form("MyEmail") & Chr(13)

Dont you need to put a bit in that says show? you have all of them in ("....") which means it doesnt show the labels. I think that you need to add something before the (".....")



Mik

thanks that worked a treat!

could you also get away with something like:

strBody= strBody & "Name: " & Request.Form("MyName") & Chr(13) or set "Name: " as a variable and include it between concantonation operators?