4 Replies Latest reply on May 16, 2006 1:31 PM by East_Texas

    asp, line 38

    East_Texas
      What am I over looking?

      error '80040108'
      /SN25P/confirmation.asp, line 38


      <%
      DIM strName, strAddress, strCity, strState, strZip, strHome_Phone, stre_mail, strHigh_School, strGrad_Month, strGrad_Year2006, strGrad_Year2007, strGrad_YearOther, strAge, strGender, strFemale, strMale, strReference, strReference_Phone, strComments
      strName = request.form("Name")
      strAddress = request.form("Address")
      strCity = request.form("City")
      strState = request.form("State")
      strZip = request.form("Zip")
      strHome_Phone = request.form("Home_Phone")
      stre_mail = request.form("e_mail")
      strHigh_School = request.form("High_School")
      strGrad_Month = request.form("Grad_Month")
      strGrad_Year = request.form("Grad_Year2006")
      strGrad_Year = request.form("Grad_Year2007")
      strGrad_YearOther = request.form("Grad_YearOther")
      strAge = request.form("Age")
      strGender = request.form("Gender")
      strFemale = request.form("Female")
      strMale = request.form("Male")
      strReference = request.form("Reference")
      strReference_Phone = request.form("Reference_Phone")
      strComments = request.form("Comments")

      mail = "i_don't_think_so@tim.com"
      reply = request.form("Email")
      Set objMail = Server.CreateObject("CDONTS.NewMail")
      objMail.From = reply
      objMail.Subject = "Surveying and Mapping Camp 2006 On-Line Application"
      objMail.Cc = mail
      objMail.Body = "Name: " & strName & vbCrLf & _
      "Address: " & strAddress & vbCrLf & _
      "City: " & strCity & vbCrLf & _
      "State: " & strState & vbCrLf & _
      "Zip: " & strZip & vbCrLf & _
      "Home_Phone: " & strHome_Phone & vbCrLf & _
      "e_mail: " & stre_mail & vbCrLf & _
      "High_School: " & strHigh_School & vbCrLf & _
      "Grad_Month: " & strGrad_Month & vbCrLf & _
      "Grad_Year2006: " & strGrad_Year2006 & vbCrLf & _
      "Grad_Year2007: " & strGrad_Year2007 & vbCrLf & _
      "Grad_YearOther: " & strGrad_YearOther & vbCrLf & _
      "Age: " & strAge & vbCrLf & _
      "Gender: " & strGender & vbCrLf & _
      "Female: " & strFemale & vbCrLf & _
      "Male: " & strMale & vbCrLf & _
      "Reference: " & strReference & vbCrLf & _
      "Reference_Phone: " & strReference_Phone & vbCrLf & _
      "Comments: " & strComments & vbCrLf & _

      objMail.Send
      Set objMail = nothing
      %>

      <p>
      <%
      strName = request.form("Name")
      Response.Write strName
      %></p>