PDA

View Full Version : asp contact form-re-post



Ella
01 Jan 2008, 08:29 PM
I'm sorry, this is a repost, because originally, I gave you guys the wrong link and no one was able to view the form.
I'm having a problem formatting an .asp contact form. I'm confused about what I need. I have one that was cut and pasted, that I tried to manipulate to include radio buttons with multiple answers, but I don't know enough about it to do it correctly. Here is the form, if anyone would be willing to look at it, as well as the .asp. I'd really appreciate it!!! It looks OK, but it's not contacting me via email, and I think when I made some changes to the html, I didn't know what to change on the .asp. Here's the address for the form, and I'm pasting the asp below.
http://www.bigleagueskillsllc.com/contact.htm

Thank you
ps there's also an error message that you can see when you hit submit on the form.

<%
' declare variables
Dim EmailFrom
Dim EmailTo
Dim Subject
Dim ContactName
Dim ContactPhone
Dim ContactEmail
Dim ContactMailAddress
Dim StudentsName
Dim YearofHighSchoolGraduation
Dim StudentsSAT&GPA
Dim Iaminterstedin(Checkallthatapply)
Dim CollegePreferences(Checkallthatapply)
Dim Topsixcollegesonyourwishlist

' get posted data into variables
EmailFrom = Trim(Request.Form("EmailFrom"))
EmailTo = "andersonphoto_deisign@hotmail.com"
Subject = "Contact criteria"
ContactName = Trim(Request.Form("ContactName"))
ContactPhone = Trim(Request.Form("ContactPhone"))
ContactEmail = Trim(Request.Form("ContactEmail"))
ContactMailAddress = Trim(Request.Form("ContactMailAddress"))
StudentsName = Trim(Request.Form("StudentsName"))
YearofHighSchoolGraduation = Trim(Request.Form("YearofHighSchoolGraduation"))
StudentsSAT&GPA = Trim(Request.Form("StudentsSAT&GPA"))
Iaminterstedin(Checkallthatapply) = Trim(Request.Form("Iaminterstedin(Checkallthatapply)"))
CollegePreferences(Checkallthatapply) = Trim(Request.Form("CollegePreferences(Checkallthatapply)"))
Topsixcollegesonyourwishlist = Trim(Request.Form("Topsixcollegesonyourwishlist"))

' validation
Dim validationOK
validationOK=true
If (Trim(EmailFrom)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom)

' prepare email body text
Dim Body
Body = Body & "ContactName: " & ContactName & VbCrLf
Body = Body & "ContactPhone: " & ContactPhone & VbCrLf
Body = Body & "ContactEmail: " & ContactEmail & VbCrLf
Body = Body & "ContactMailAddress: " & ContactMailAddress & VbCrLf
Body = Body & "StudentsName: " & StudentsName & VbCrLf
Body = Body & "YearofHighSchoolGraduation: " & YearofHighSchoolGraduation & VbCrLf
Body = Body & "StudentsSAT&GPA: " & StudentsSAT&GPA & VbCrLf
Body = Body & "Iaminterstedin(Checkallthatapply): " & Iaminterstedin(Checkallthatapply) & VbCrLf
Body = Body & "CollegePreferences(Checkallthatapply): " & CollegePreferences(Checkallthatapply) & VbCrLf
Body = Body & "Topsixcollegesonyourwishlist: " & Topsixcollegesonyourwishlist & VbCrLf

' send email
Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = EmailTo
mail.From = EmailFrom
mail.Subject = Subject
mail.Body = Body
mail.Send

' redirect to success page
Response.Redirect("Thank you.htm?" & EmailFrom)
%>