Active Server Pages Programming (ASP)/ASP email

Advertisement


Question
This 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

Answer
Hi

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

Active Server Pages Programming (ASP)

All Answers


Answers by Expert:


Ask Experts

Volunteer


Srini Nagarajan

Expertise

I can answer any kind of questions in ASP.NET, C#, VB.NET, SharePoint 2007, ASP, Coldfusion, Powerbuilder 7.00 / 8.00, JAVA servlets, MS SQL 2000 / MSSQL7, Sybase

Experience

Contact me if you need any custom development on ASP.NET, ASP, SharePoint 2007, Coldfusion, Powerbuilder.

©2012 About.com, a part of The New York Times Company. All rights reserved.