Hi all,

I have not done much ASP coding recently, and this is the first time I have
needed to send any mail using ASP.

I have trying to get this bit of code that I found on the net working, but
mail is not going out.

Anyone see any issues in the code?

<!-- The code here -->



<%
Dim strTo, strSubject, strBody, who, myName, myEmail, fileNum, docNum,
fName, lName, mName, generation, houseNum, direction, streetName,
streetType, city, state, zip, ssn1, ssn2, ssn3, dob1, dob2, dob3, drvLicNum,
prevAddr
Dim objCDOMail 'The CDO object


'###############################################################
'##      Change you@y... to your email address      ##
'###############################################################
strTo = "you@y..."

'###############################################################
'##      We can make the subject dynamic if you want          ##
'##      or you can just replace text inside "" to anything   ##
'###############################################################
strSubject = "Email from website"


strBody = "Current date: " & date()
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "I am...: "
strBody = strBody & Request.Form("who")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "My name is: "
strBody = strBody & Request.Form("myName")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "My email address is: "
strBody = strBody & Request.Form("myEmail")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "File Number: "
strBody = strBody & Request.Form("fileNum")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Document Number: "
strBody = strBody & Request.Form("docNum")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "First Name: "
strBody = strBody & Request.Form("fName") & " "
strBody = strBody & Request.Form("lName") & ", "
strBody = strBody & Request.Form("mName") & " "
strBody = strBody & Request.Form("generation")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "House #: "
strBody = strBody & Request.Form("houseNum")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Direction: "
strBody = strBody & Request.Form("direction")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Street Name: "
strBody = strBody & Request.Form("streetName") & " "
strBody = strBody & Request.Form("streetType")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "City: "
strBody = strBody & Request.Form("city")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "State: "
strBody = strBody & Request.Form("state")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Zip Code: "
strBody = strBody & Request.Form("zip")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "SSN: "
strBody = strBody & Request.Form("ssn1") & "-" & Request.Form("ssn2") & "-"
& Request.Form("ssn3")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "DOB: "
strBody = strBody & Request.Form("dob1") & "/" & Request.Form("dob2") & "/"
& Request.Form("dob3")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Drivers Lic. #: "
strBody = strBody & Request.Form("drvLicNum")
strBody = strBody & vbCrLf
strBody = strBody & vbCrLf
strBody = strBody & "Previous Address: "
strBody = strBody & Request.Form("prevAddr") & chr(10)



Set objCDOMail = Server.CreateObject("CDONTS.NewMail")

'###############################################################
'##  Change yourname to reflect where the email is sent from  ##
'###############################################################
objCDOMail.From = "yourname"
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = Nothing
%>


Thanks
Charles