Active Server Pages Programming (ASP)/ASP email
Expert: Srini Nagarajan - 4/13/2005
QuestionThis is my first try at ASP. I have a form that is linked to an ASP file. I can get the form to e-mail to myself and another person. I am trying to get it to also be sent to the person that filled out the form. I have not been able to get that to happen. Here is the ASP form I am using.
<%
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
team_name = request.form("team_name")
visitor_email_address = request.form("visitor_email_address")
name = request.form("name")
yearly = request.form("yearly")
driver30 = request.form("driver30")
driver29 = request.form("driver29")
driver28 = request.form("driver28")
driver27 = request.form("driver27")
driver26 = request.form("driver26")
driver25 = request.form("driver25")
driver24 = request.form("driver24")
driver23 = request.form("driver23")
driver22 = request.form("driver22")
driver21 = request.form("driver21")
driver20 = request.form("driver20")
driver19 = request.form("driver19")
driver18 = request.form("driver18")
driver17 = request.form("driver17")
driver16 = request.form("driver16")
driver15 = request.form("driver15")
driver14 = request.form("driver14")
driver13 = request.form("driver13")
driver12 = request.form("driver12")
driver11 = request.form("driver11")
driver10 = request.form("driver10")
driver9 = request.form("driver9")
driver8 = request.form("driver8")
driver7 = request.form("driver7")
driver6 = request.form("driver6")
driver5 = request.form("driver5")
driver4 = request.form("driver4")
driver3 = request.form("driver3")
driver2 = request.form("driver2")
driver1 = request.form("driver1")
under_30 = request.form("under_30")
Submit = request.form("Submit")
Reset = request.form("Reset")
' Redirect user to the error page
If (validationFailed = true) Then
Response.Redirect "error.html"
Response.End
End If
' Owner Email: cdonts
emailFrom = visitor_email_address
emailSubject = "test picks"
emailBodyText = "team_name: " & team_name & "" & vbCrLf _
& "visitor_email_address: " & visitor_email_address & "" & vbCrLf _
& "name: " & name & "" & vbCrLf _
& "yearly: " & yearly & "" & vbCrLf _
& "driver30: " & driver30 & "" & vbCrLf _
& "driver29: " & driver29 & "" & vbCrLf _
& "driver28: " & driver28 & "" & vbCrLf _
& "driver27: " & driver27 & "" & vbCrLf _
& "driver26: " & driver26 & "" & vbCrLf _
& "driver25: " & driver25 & "" & vbCrLf _
& "driver24: " & driver24 & "" & vbCrLf _
& "driver23: " & driver23 & "" & vbCrLf _
& "driver22: " & driver22 & "" & vbCrLf _
& "driver21: " & driver21 & "" & vbCrLf _
& "driver20: " & driver20 & "" & vbCrLf _
& "driver19: " & driver19 & "" & vbCrLf _
& "driver18: " & driver18 & "" & vbCrLf _
& "driver17: " & driver17 & "" & vbCrLf _
& "driver16: " & driver16 & "" & vbCrLf _
& "driver15: " & driver15 & "" & vbCrLf _
& "driver14: " & driver14 & "" & vbCrLf _
& "driver13: " & driver13 & "" & vbCrLf _
& "driver12: " & driver12 & "" & vbCrLf _
& "driver11: " & driver11 & "" & vbCrLf _
& "driver10: " & driver10 & "" & vbCrLf _
& "driver9: " & driver9 & "" & vbCrLf _
& "driver8: " & driver8 & "" & vbCrLf _
& "driver7: " & driver7 & "" & vbCrLf _
& "driver6: " & driver6 & "" & vbCrLf _
& "driver5: " & driver5 & "" & vbCrLf _
& "driver4: " & driver4 & "" & vbCrLf _
& "driver3: " & driver3 & "" & vbCrLf _
& "driver2: " & driver2 & "" & vbCrLf _
& "driver1: " & driver1 & "" & vbCrLf _
& "under_30: " & under_30 & "" & vbCrLf _
& "Submit: " & Submit & "" & vbCrLf _
& "Reset: " & Reset & "" & vbCrLf _
& "" & vbCrLf _
& ""
objCDO.To = """Jeff"" <Gofastleft@sbcglobal.net>,""jeffrey"" <scfrl@yahoo.com>"
objCDO.From = emailFrom
objCDO.Subject = emailSubject
objCDO.Body = emailBodyText
objCDO.Send
' Redirect user to success page
Response.Redirect "success.htm"
' End of ASP script
%>
Thank you in advance.
Jeff
AnswerHi
I was away thats why i was not able to reply imdtly... Here is my reply
You have to check the following
instead of moving local variable like this
driver30 = request.form("driver30")
do like this
driver30 = Trim(request.form("driver30")& "")
The problem is if you not entered any value driver30 will become NULL, when you do the TRIM function it will add the blank space and it will take of that.
If the body copy got any NULL it will not send anything.
2nd thing make sure you have necessary permission on the server to send the email out.
Happy Programming!
-Srini