fields and emails from a form

I have a form on a web page that is supposed to submit info to a database.  It does that.
It is also supposed to trigger an email of its contents, it doesnt really do that.  It sends the email but does not have any firlds in it.  The success page only shows true in each field.  I would like this page to result with the info showing from the previously filled in information and i would like that info sent to an email adddress.  Here is my reslutls page code.  Any suggestions?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/Empire.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("PlayerID") <> "") Then
  Recordset1__MMColParam = Request.QueryString("PlayerID")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Empire_STRING
Recordset1.Source = "SELECT * FROM YouthLeague WHERE PlayerID = " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY PlayerID ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
<style type="text/css">
<!--
body {
      background-color: #000000;
}
-->
</style></head>

<body>
<table width="233" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="234"><img src="Top/EmpireShadow250x250.gif" width="234" height="206" hspace="0" vspace="0"></td>
    <td colspan="2"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="725" height="210">
      <param name="movie" value="Top/Empirevolleyball.swf">
      <param name=quality value=high>
      <param name="BGCOLOR" value="#FFFFFF">
      <embed src="Top/Empirevolleyball.swf" width="725" height="210" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#FFFFFF"></embed>
    </object></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="54" bgcolor="#990099">&nbsp;</td>
    <td colspan="2" bgcolor="#000000">&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td rowspan="2" bgcolor="#990099">&nbsp;</td>
    <td width="28" rowspan="2" bgcolor="#000000"><p>&nbsp;</p>
    </td>
    <td width="697" height="98"><form name="form1" method="post" action=""><br>


<p><input name="FirstName" type="text" value="<%=(FirstName = Request.form("FirstName"))%>">
        <br>
        <input name="LastName" type="text" value="<%=( LastName = Request.form("LastName"))%>">
        <br>
        <input name="Address" type="text" value="<%=(Address = Request.form("Address"))%>">
        <br>
        <input name="City" type="text" value="<%=(City = Request.form("City"))%>">
        <br>
        <input name="Zip" type="text" value="<%=(Zip = Request.form("Zip"))%>">
        <br>
        <input name="Phone" type="text" value="<%=(Phone = Request.form("Phone"))%>">
        <br>
        <input name="School" type="text" value="<%=(School = Request.form("School"))%>">
        <br>
        <input name="Grade" type="text" value="<%=(Grade = Request.form("Grade"))%>">
        <br>
        <input name="Birthday" type="text" value="<%=(Birthdate = Request.form("Birthday"))%>">
        <br>
        <input name="P_FirstName" type="text" value="<%=(ParentsFirst = Request.form("P_FirstNamme"))%>">
        <br>
        <input name="P_LastName" type="text" value="<%=(ParentsLast = Request.form("P_LastName"))%>">
</p>
      <p>
        <input type="checkbox" name="Level711" value="<%=(PlayLevel = Request.form("Level711"))%>">
        <br>
        <input type="checkbox" name="Leve1214" value="<%=(PlayLevel = Request.form("Leve1214"))%>">
        <br>
        <input name="textfield" type="Gender" value="<%=(Gender = Request.form("Gender"))%>">
        <br>
        <input name="textfield" type="TshirtSize" value="<%=(Tshirt = Request.form("TshirtSize"))%>">
        <br>
      </p><br>
<%Dim myMail, mySub, myBody, FirstName, LastName, Address, City, Zip, Phone, School, Grade, Birthday, P_FirstName, P_LastName, Level711, Leve1214, Gender, TshirtSize
 
mySub="Your Form Details"
myBody="Your form details - " & VbCrLF
myBody =myBody & "FirstName     : " & FirstName  & VbCrLF
myBody =myBody & "LastName      : " & LastName  & VbCrLF
myBody =myBody & "Address      : " & Address  & VbCrLF
myBody =myBody & "City      : " & City  & VbCrLF
myBody =myBody & "Zip      : " & Zip  & VbCrLF
myBody =myBody & "Phone      : " & Phone  & VbCrLF
myBody =myBody & "School      : " & School  & VbCrLF
myBody =myBody & "Grade      : " & Grade  & VbCrLF
myBody =myBody & "Birthday      : " & Birthday  & VbCrLF
myBody =myBody & "P_FirstNamme      : " & ParentsFirst  & VbCrLF
myBody =myBody & "L_FirstNamme      : " & ParentsLast  & VbCrLF
myBody =myBody & "Level711      : " & Level711  & VbCrLF
myBody =myBody & "Leve1214      : " & Level1214  & VbCrLF
myBody =myBody & "Gender      : " & Gender  & VbCrLF
myBody =myBody & "TshirtSize      : " & Tshirt  & VbCrLF  


Set myMail=CreateObject("CDO.Message")
myMail.Subject=mySub
myMail.From="jesse@empirevolleyball.com"
myMail.To="jesse@empirevolleyball.com"
myMail.TextBody=myBody
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="mail.empirevolleyball.com"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>
    </form></td>

  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="88">&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td bgcolor="#000000">&nbsp;</td>
    <td colspan="2" bgcolor="#000000">&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td bgcolor="#990099">&nbsp;</td>
    <td colspan="2" bgcolor="#990099">&nbsp;</td>
  </tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
Jesse26Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

RouchieCommented:
This seems again to be a repeat of what the EE admin have just closed down.

>> showing true

On each line change this:

<input name="FirstName" type="text" value="<%=(FirstName = Request.form("FirstName"))%>">

to this

<input name="FirstName" type="text" value="<%=(Request.form("FirstName"))%>">

and in the email for each line change

myBody =myBody & "FirstName     : " & FirstName  & VbCrLF

to this

myBody =myBody & "FirstName     : " & request.form("FirstName")  & VbCrLF
0
Jesse26Author Commented:
Thanx rouchie i stll get an email  and i still get no info in the email, Now however instead of getting true in all my fields they result as blank.  I believe i did as you asked, here is the code again
Please let me know if i can give you any further info to better aid you aid me
here is also te two pages i am working on
submit page-http://empirevolleyball.com/Junior.asp
and
confirmation page http://empirevolleyball.com/JuniorSuccess.asp

-#include file="Connections/Empire.asp" -->
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("PlayerID") <> "") Then
  Recordset1__MMColParam = Request.QueryString("PlayerID")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Empire_STRING
Recordset1.Source = "SELECT * FROM YouthLeague WHERE PlayerID = " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY PlayerID ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
<style type="text/css">
<!--
body {
      background-color: #000000;
}
-->
</style></head>

<body>
<table width="233" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="234"><img src="Top/EmpireShadow250x250.gif" width="234" height="206" hspace="0" vspace="0"></td>
    <td colspan="2"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="725" height="210">
      <param name="movie" value="Top/Empirevolleyball.swf">
      <param name=quality value=high>
      <param name="BGCOLOR" value="#FFFFFF">
      <embed src="Top/Empirevolleyball.swf" width="725" height="210" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#FFFFFF"></embed>
    </object></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="54" bgcolor="#990099">&nbsp;</td>
    <td colspan="2" bgcolor="#000000">&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td rowspan="2" bgcolor="#990099">&nbsp;</td>
    <td width="28" rowspan="2" bgcolor="#000000"><p>&nbsp;</p>
    </td>
    <td width="697" height="98"><form name="form1" method="post" action=""><br>


<p><input name="FirstName" type="text" value="<%=(Request.form("FirstName"))%>">
        <br>
        <input name="LastName" type="text" value="<%=(Request.form("LastName"))%>">
        <br>
        <input name="Address" type="text" value="<%=(Request.form("Address"))%>">
        <br>
        <input name="City" type="text" value="<%=(Request.form("City"))%>">
        <br>
        <input name="Zip" type="text" value="<%=(Request.form("Zip"))%>">
        <br>
        <input name="Phone" type="text" value="<%=(Request.form("Phone"))%>">
        <br>
        <input name="School" type="text" value="<%=(Request.form("School"))%>">
        <br>
        <input name="Grade" type="text" value="<%=(Request.form("Grade"))%>">
        <br>
        <input name="Birthday" type="text" value="<%=(Request.form("Birthday"))%>">
        <br>
        <input name="P_FirstName" type="text" value="<%=(Request.form("P_FirstName"))%>">
        <br>
        <input name="P_LastName" type="text" value="<%=(Request.form("P_LastName"))%>">
</p>
      <p>
        <input type="checkbox" name="Level711" value="<%=(Request.form("Level711"))%>">
        <br>
        <input type="checkbox" name="Leve1214" value="<%=(Request.form("Leve1214"))%>">
        <br>
        <input name="textfield" type="Gender" value="<%=(Request.form("Gender"))%>">
        <br>
        <input name="textfield" type="TshirtSize" value="<%=(Request.form("TshirtSize"))%>">
        <br>
      </p><br>
<%Dim myMail, mySub, myBody, FirstName, LastName, Address, City, Zip, Phone, School, Grade, Birthday, P_FirstName, P_LastName, Level711, Leve1214, Gender, TshirtSize
 FirstName = Request.form("FirstName")
 LastName = Request.form("LastName")
 Address = Request.form("Address")
 City = Request.form("City")
 Zip = Request.form("Zip")
 Phone = Request.form("Phone")
 School = Request.form("School")
 Grade = Request.form("Grade")
 Birthdate = Request.form("Birthday")
 ParentsFirst = Request.form("P_FirstNamme")
 ParentsLast = Request.form("P_LastName")
 PlayLevel = Request.form("Level711")
 PlayLevel = Request.form("Leve1214")
 Gender = Request.form("Gender")
 Tshirt = Request.form("TshirtSize")


mySub="Your Form Details"
myBody="Your form details - " & VbCrLF
myBody =myBody & "FirstName     : " & request.form("FirstName")  & VbCrLF
myBody =myBody & "LastName      : " & request.form("LastName")  & VbCrLF
myBody =myBody & "Address      : " & request.form("Address")  & VbCrLF
myBody =myBody & "City      : " & request.form("City")  & VbCrLF
myBody =myBody & "Zip      : " & request.form("Zip")  & VbCrLF
myBody =myBody & "Phone      : " & request.form("Phone")  & VbCrLF
myBody =myBody & "School      : " & request.form("School")  & VbCrLF
myBody =myBody & "Grade      : " & request.form("Grade")  & VbCrLF
myBody =myBody & "Birthday      : " & request.form("Birthday")  & VbCrLF
myBody =myBody & "P_FirstNamme      : " & request.form("P_FirstName")  & VbCrLF
myBody =myBody & "L_FirstNamme      : " & request.form("P_LastName")  & VbCrLF
myBody =myBody & "Level711      : " & request.form("Level711")  & VbCrLF
myBody =myBody & "Leve1214      : " & request.form("Leve1214")  & VbCrLF
myBody =myBody & "Gender      : " & request.form("Gender")  & VbCrLF
myBody =myBody & "TshirtSize      : " & request.form("TshirtSize")  & VbCrLF  


Set myMail=CreateObject("CDO.Message")
myMail.Subject=mySub
myMail.From="jesse@empirevolleyball.com"
myMail.To="jesse@empirevolleyball.com"
myMail.TextBody=myBody
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="mail.empirevolleyball.com"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>
    </form></td>

  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="88">&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td bgcolor="#000000">&nbsp;</td>
    <td colspan="2" bgcolor="#000000">&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td bgcolor="#990099">&nbsp;</td>
    <td colspan="2" bgcolor="#990099">&nbsp;</td>
  </tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
0
RouchieCommented:
Which page does that code come from?
0
Cloud Class® Course: Amazon Web Services - Basic

Are you thinking about creating an Amazon Web Services account for your business? Not sure where to start? In this course you’ll get an overview of the history of AWS and take a tour of their user interface.

RouchieCommented:
Just to follow, if the page is JuniorSuccess.asp, what is the purpose of the database SELECT statement that is in there?
0
Jesse26Author Commented:
Well i am trying to have the data filled out in the previos form showing on the following page.  I just also thought i put texfields in the JuniorSuccess.asp page and dropped recordsets in each of them.  I dont think i need the fields just the recordsets.  I dont think this is the solution, can you confirm my thoughts, as well is there a better way to get this info showing up?
0
Jesse26Author Commented:
Sorry as well this page comes from a page called http://empirevolleyball.com/Junior.asp, didnt see the other response you gave rouchhie thanks
0
Jesse26Author Commented:
ok at this point I no longer need the fields that they just filled in to show up on the results page, I just need the page to send the email of the fields filled out in the previous form to show up in the email.  I get an email message that looks like this
Your form details -
FirstName     :
LastName      :
Address      :
City      :
Zip      :
Phone      :
School      :
Grade      :
Birthday      :
P_FirstNamme      :
L_FirstNamme      :
Level711      :
Leve1214      :
Gender      :
TshirtSize      :

 
0
RouchieCommented:
Okay can you post the code for your page you described above?
0
Jesse26Author Commented:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/Empire.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Empire_STRING
Recordset1.Source = "SELECT * FROM YouthLeague"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Empire Volleyball</title>
<style type="text/css">
<!--
body {
      background-color: #000000;
}
.style1 {font-family: "Copperplate Gothic Bold"}
.style3 {font-family: "Copperplate Gothic Bold"; color: #00CCFF; }
.style5 {font-family: "Copperplate Gothic Bold"; color: #990099; }
.style7 {font-size: 24px}
-->
</style></head>

<body>
<table width="233" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="234"><img src="Top/EmpireShadow250x250.gif" width="234" height="206" hspace="0" vspace="0"></td>
    <td colspan="2"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="725" height="210">
      <param name="movie" value="Top/Empirevolleyball.swf">
      <param name=quality value=high>
      <param name="BGCOLOR" value="#FFFFFF">
      <embed src="Top/Empirevolleyball.swf" width="725" height="210" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#FFFFFF"></embed>
    </object></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="54" bgcolor="#990099">&nbsp;</td>
    <td colspan="2" bgcolor="#000000"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="970" height="414" style="position: absolute; top:  225px; left: 5px; z-index:1; visibility: visible;" >
      <param name="movie" value="Menu/empiretop_nav.swf" />
      <param name="quality" value="high" />
      <param name="allowScriptAccess" value="always" />
      <param name="wmode" value="transparent" />
      <embed src="Menu/empiretop_nav.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="970" height="414" allowScriptAccess="always" wmode="transparent"></embed>
    </object></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td rowspan="5" bgcolor="#990099">&nbsp;</td>
    <td width="28" rowspan="5" bgcolor="#000000"><p>
      <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="517" height="328" style="position: absolute; top:  271px; left: 10px; z-index:1; visibility: visible;" >
        <param name="movie" value="Menu/empireleft_nav.swf" />
        <param name="quality" value="high" />
        <param name="allowScriptAccess" value="always" />
        <param name="wmode" value="transparent" />
        <embed src="Menu/empireleft_nav.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="517" height="328" allowScriptAccess="always" wmode="transparent"></embed>
      </object>
    </p>
    </td>
    <td width="697" height="73"><form name="form1" method="post" action="">


        <p align="center">          <span class="style1"><br>
            <span class="style7">You have successfully signed up for <br>
          Empire's Junior Youth League.</span></span></p>
        <%Dim myMail, mySub, myBody, FirstName, LastName, Address, City, Zip, Phone, School, Grade, Birthday, P_FirstName, P_LastName, Level711, Leve1214, Gender, TshirtSize
 FirstName = Request.form("FirstName")
 LastName = Request.form("LastName")
 Address = Request.form("Address")
 City = Request.form("City")
 Zip = Request.form("Zip")
 Phone = Request.form("Phone")
 School = Request.form("School")
 Grade = Request.form("Grade")
 Birthdate = Request.form("Birthday")
 ParentsFirst = Request.form("P_FirstNamme")
 ParentsLast = Request.form("P_LastName")
 PlayLevel = Request.form("Level711")
 PlayLevel = Request.form("Leve1214")
 Gender = Request.form("Gender")
 Tshirt = Request.form("TshirtSize")


mySub="Your Form Details"
myBody="Your form details - " & VbCrLF
myBody =myBody & "FirstName     : " & request.form("FirstName")  & VbCrLF
myBody =myBody & "LastName      : " & request.form("LastName")  & VbCrLF
myBody =myBody & "Address      : " & request.form("Address")  & VbCrLF
myBody =myBody & "City      : " & request.form("City")  & VbCrLF
myBody =myBody & "Zip      : " & request.form("Zip")  & VbCrLF
myBody =myBody & "Phone      : " & request.form("Phone")  & VbCrLF
myBody =myBody & "School      : " & request.form("School")  & VbCrLF
myBody =myBody & "Grade      : " & request.form("Grade")  & VbCrLF
myBody =myBody & "Birthday      : " & request.form("Birthday")  & VbCrLF
myBody =myBody & "P_FirstNamme      : " & request.form("P_FirstName")  & VbCrLF
myBody =myBody & "L_FirstNamme      : " & request.form("P_LastName")  & VbCrLF
myBody =myBody & "Level711      : " & request.form("Level711")  & VbCrLF
myBody =myBody & "Leve1214      : " & request.form("Leve1214")  & VbCrLF
myBody =myBody & "Gender      : " & request.form("Gender")  & VbCrLF
myBody =myBody & "TshirtSize      : " & request.form("TshirtSize")  & VbCrLF  


Set myMail=CreateObject("CDO.Message")
myMail.Subject=mySub
myMail.From="Kathy@empirevolleyball.com"
myMail.To="Kathy@empirevolleyball.com"
myMail.TextBody=myBody
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
="mail.empirevolleyball.com"
myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
%>
    </form></td>

  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="37"><div align="center">          <span class="style1">Two levels will be offered for each session.</span><br>
    </div></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="72"><div align="center"><span class="style1">      Level One: Ages 7-11 &amp; <br>
      Level Two: Ages 12-14<br>
  <br>
    </span></div></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="98" bgcolor="#000000"><div align="center">
      <p class="style3"><span class="style1"><br>
        <span class="style5">Sign-ups and opening clinic</span><br>        
        Friday, April 20</span><br>
    5-7 pm Sonoma State University main gym<br>
    <br>
    Session 1: Friday, May 4<br>
    5-7 pm Sonoma State University main gym<br>
    <br>
    Session 2: Friday, May 11<br>
    5-7 pm Sonoma State University main gym<br>
    <br>
    Session 3: Friday, May 18<br>
    5-7 pm Sonoma State University main gym<br>
    <br>
    Session 4: Friday, May 25<br>
    5-7 pm Sonoma State University main gym<br>
    <br>
    Session 5: Friday, June 1<br>
    5-7 pm Sonoma State University main gym</p>
      <p class="style3">Session 6: Friday, June 8<br>
      5-7 pm Sonoma State University main gym </p>
    </div></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td height="19">&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td bgcolor="#000000">&nbsp;</td>
    <td colspan="2" bgcolor="#000000">&nbsp;</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td bgcolor="#990099">&nbsp;</td>
    <td colspan="2" bgcolor="#990099">&nbsp;</td>
  </tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
0
RouchieCommented:
Okay the problem is that the values are not posting from JUNIOR.ASP through to JUNIORSUCCESS.ASP

Instead DW has written JUNIOR.ASP to post the values back to the SAME PAGE.  What happens is this:

1. person fills out form on junior.asp
2. person submits form back to junior.asp
3. junior.asp does the database work
4. person is bounced onto juniorsuccess.asp
5. juniorsuccess.asp fails because no data was posted to it

What you will have to do is place the code to insert the record into juniorsuccess.asp and remove it from junior.asp.  Juniorsuccess.asp can then also send the email as it will have access to the posted data.
0
Jesse26Author Commented:
ok can you help ma with how much of the code on the first page is needed Here is the code of the original page
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/Empire.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

  MM_editConnection = MM_Empire_STRING
  MM_editTable = "YouthLeague"
  MM_editRedirectUrl = "/JuniorSuccess.asp"
  MM_fieldsStr  = "FirstName|value|LastName|value|Address|value|City|value|Zip|value|Phone|value|School|value|Grade|value|Birthday|value|P_FirstName|value|P_LastName|value|Level711|value|Leve1214|value|Gender|value|TshirtSize|value"
  MM_columnsStr = "FirstName|',none,''|LastName|',none,''|Address|',none,''|City|',none,''|Zip|',none,''|Phone|',none,''|School|',none,''|Grade|',none,''|Birthday|',none,''|P_FirstName|',none,''|P_LastName|',none,''|Level711|none,1,0|Leve1214|none,1,0|Gender|',none,''|TshirtSize|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
 
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Empire_STRING
Recordset1.Source = "SELECT * FROM YouthLeague"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Empire Volleyball</title>
<style type="text/css">
<!--
body {
      background-color: #080808;
}
-->
</style></head>

<body>
<table width="233" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td bgcolor="#FFFFFF"><img src="Top/EmpireShadow250x250.gif" width="234" height="206" hspace="0" vspace="0" align="top"></td>
    <td colspan="4"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="725" height="210">
      <param name="movie" value="Top/Empirevolleyball.swf">
      <param name=quality value=high>
      <param name="BGCOLOR" value="#FFFFFF">
      <embed src="Top/Empirevolleyball.swf" width="725" height="210" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#FFFFFF"></embed>
    </object></td>
  </tr>
  <tr>
    <td height="78" bgcolor="#990099"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="970" height="414" style="position: absolute; top:  225px; left: 5px; z-index:1; visibility: visible;" >
      <param name="movie" value="Menu/empiretop_nav.swf" />
      <param name="quality" value="high" />
      <param name="allowScriptAccess" value="always" />
      <param name="wmode" value="transparent" />
      <embed src="Menu/empiretop_nav.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="970" height="414" allowScriptAccess="always" wmode="transparent"></embed>
    </object></td>
    <td colspan="4" bgcolor="#080808">&nbsp;</td>
  </tr>
  <tr>
    <td bgcolor="#990099">&nbsp;</td>
    <td colspan="4" bgcolor="#FFFFFF">&nbsp;
      <form method="POST" action="<%=MM_editAction%>" name="form1">
        <table align="center">
          <tr valign="baseline">
            <td nowrap align="right">First Name:</td>
            <td><input type="text" name="FirstName" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Last Name:</td>
            <td><input type="text" name="LastName" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Address:</td>
            <td><input type="text" name="Address" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">City:</td>
            <td><input type="text" name="City" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Zip:</td>
            <td><input type="text" name="Zip" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Phone:</td>
            <td><input type="text" name="Phone" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">School:</td>
            <td><input type="text" name="School" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Grade:</td>
            <td><input type="text" name="Grade" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Birthday:</td>
            <td><input type="text" name="Birthday" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Parents First Name:</td>
            <td><input type="text" name="P_FirstName" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Parents Last Name:</td>
            <td><input type="text" name="P_LastName" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Ages 7 to 11:</td>
            <td><input type="checkbox" name="Level711" value=1 >
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Ages 11 to 14:</td>
            <td><input type="checkbox" name="Leve1214" value=1 >
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Gender:</td>
            <td><input type="text" name="Gender" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">T- Shirt Size:</td>
            <td><input type="text" name="TshirtSize" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">&nbsp;</td>
            <td><input type="submit" value="Insert Participant">
            </td>
          </tr>
        </table>
        <input type="hidden" name="MM_insert" value="form1">
      </form>
    <p>&nbsp;</p></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr bgcolor="#990099">
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="517" height="328" style="position: absolute; top:  271px; left: 10px; z-index:1; visibility: visible;" >
  <param name="movie" value="Menu/empireleft_nav.swf" />
  <param name="quality" value="high" />
  <param name="allowScriptAccess" value="always" />
  <param name="wmode" value="transparent" />
  <embed src="Menu/empireleft_nav.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="517" height="328" allowScriptAccess="always" wmode="transparent"></embed>
</object>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
0
RouchieCommented:
Okay there's some things you must understand.  First, what you are asking for is beyond the power of DW to deliver for you.  Because you want to do 2 things on 1 page (save a record AND send email) - you HAVE to learn how to do this yourself.  Don't worry it's not too hard, and is worth it!  Don't be scared!

Based on the above I have tried to rewrite the 2 pages.  Therefore DW might now kick up problem saying it can't do certain stuff.  This is because I have removed DW's code because it is not user friendly and is way over-complex.

Now I can't test this page out because I don't have the database, so there might be some slight ASP errors to fix before it works correctly.  Please don't try to fix them yourself because then my copy of the file will end up being different to yours - creating more problems!  Just post the error you see on-screen and I'll address them from my copy!

Okay here are the files:

*** JUNIOR.ASP ****************************************************************************************************
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Empire Volleyball</title>
<style type="text/css">
<!--
body {background-color: #080808;}
-->
</style></head>
<body>
<table width="233" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td bgcolor="#FFFFFF"><img src="Top/EmpireShadow250x250.gif" width="234" height="206" hspace="0" vspace="0" align="top"></td>
    <td colspan="4"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="725" height="210">
      <param name="movie" value="Top/Empirevolleyball.swf">
      <param name=quality value=high>
      <param name="BGCOLOR" value="#FFFFFF">
      <embed src="Top/Empirevolleyball.swf" width="725" height="210" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" bgcolor="#FFFFFF"></embed>
    </object></td>
  </tr>
  <tr>
    <td height="78" bgcolor="#990099"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="970" height="414" style="position: absolute; top:  225px; left: 5px; z-index:1; visibility: visible;" >
      <param name="movie" value="Menu/empiretop_nav.swf" />
      <param name="quality" value="high" />
      <param name="allowScriptAccess" value="always" />
      <param name="wmode" value="transparent" />
      <embed src="Menu/empiretop_nav.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="970" height="414" allowScriptAccess="always" wmode="transparent"></embed>
    </object></td>
    <td colspan="4" bgcolor="#080808">&nbsp;</td>
  </tr>
  <tr>
    <td bgcolor="#990099">&nbsp;</td>
    <td colspan="4" bgcolor="#FFFFFF">&nbsp;
      <form method="POST" action="juniorsuccess.asp" name="form1">
        <table align="center">
          <tr valign="baseline">
            <td nowrap align="right">First Name:</td>
            <td><input type="text" name="FirstName" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Last Name:</td>
            <td><input type="text" name="LastName" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Address:</td>
            <td><input type="text" name="Address" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">City:</td>
            <td><input type="text" name="City" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Zip:</td>
            <td><input type="text" name="Zip" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Phone:</td>
            <td><input type="text" name="Phone" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">School:</td>
            <td><input type="text" name="School" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Grade:</td>
            <td><input type="text" name="Grade" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Birthday:</td>
            <td><input type="text" name="Birthday" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Parents First Name:</td>
            <td><input type="text" name="P_FirstName" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Parents Last Name:</td>
            <td><input type="text" name="P_LastName" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Ages 7 to 11:</td>
            <td><input type="checkbox" name="Level711" value=1 >
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Ages 11 to 14:</td>
            <td><input type="checkbox" name="Leve1214" value=1 >
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">Gender:</td>
            <td><input type="text" name="Gender" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">T- Shirt Size:</td>
            <td><input type="text" name="TshirtSize" value="" size="32">
            </td>
          </tr>
          <tr valign="baseline">
            <td nowrap align="right">&nbsp;</td>
            <td><input type="submit" value="Insert Participant">
            </td>
          </tr>
        </table>
        <input type="hidden" name="MM_insert" value="form1">
      </form>
    <p>&nbsp;</p></td>
  </tr>
  <tr>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr bgcolor="#990099">
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="517" height="328" style="position: absolute; top:  271px; left: 10px; z-index:1; visibility: visible;" >
  <param name="movie" value="Menu/empireleft_nav.swf" />
  <param name="quality" value="high" />
  <param name="allowScriptAccess" value="always" />
  <param name="wmode" value="transparent" />
  <embed src="Menu/empireleft_nav.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="517" height="328" allowScriptAccess="always" wmode="transparent"></embed>
</object>
</body>
</html>
***********************************************************************************************************************

*** JUNIORSUCCESS.ASP ***************************************************************************************
<%@  language="VBSCRIPT" codepage="1252" %>
<!--#include file="Connections/Empire.asp" -->
<%
' ---------------------------------------------------------------------------------------
' 1 - INSERT THE NEW RECORD

Dim myCommandText, editCommand
myCommandText = "INSERT INTO YouthLeague ("
myCommandText = myCommandText & "FirstName, "
myCommandText = myCommandText & "LastName ,"
myCommandText = myCommandText & "Address, "
myCommandText = myCommandText & "City, "
myCommandText = myCommandText & "Zip, "
myCommandText = myCommandText & "Phone,"
myCommandText = myCommandText & "School, "
myCommandText = myCommandText & "Grade "
myCommandText = myCommandText & "Birthday, "
myCommandText = myCommandText & "P_FirstName, "
myCommandText = myCommandText & "P_LastName, "
myCommandText = myCommandText & "Level711, "
myCommandText = myCommandText & "Leve1214, "
myCommandText = myCommandText & "Gender, "
myCommandText = myCommandText & "TshirtSize"
myCommandText = myCommandText & ")"
myCommandText = myCommandText & " VALUES "
myCommandText = myCommandText & "("
myCommandText = myCommandText & replace(request.Form("FirstName"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("LastName"),"'","''") & ", " 
myCommandText = myCommandText & replace(request.Form("Address"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("City"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("Zip"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("Phone"),"'","''") & ",
myCommandText = myCommandText & replace(request.Form("School"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("Grade"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("Birthday"),"'","''") & ", " 
myCommandText = myCommandText & replace(request.Form("P_FirstName"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("P_LastName"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("Level711"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("Leve1214"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("Gender"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("TshirtSize"),"'","''")
myCommandText = myCommandText & ")"

Set editCommand = Server.CreateObject("ADODB.Command")
editCommand.ActiveConnection = MM_Empire_STRING
editCommand.CommandText = myCommandText
editCommand.Execute
editCommand.ActiveConnection.Close
Set editCommand = Nothing

' ----------------------------------------------------------------------------------
' 2 - SEND EMAIL
mySub="Your Form Details"
myBody="Your form details - " & VbCrLF
myBody =myBody & "FirstName: " & request.form("FirstName")  & VbCrLF
myBody =myBody & "LastName: " & request.form("LastName")  & VbCrLF
myBody =myBody & "Address: " & request.form("Address")  & VbCrLF
myBody =myBody & "City: " & request.form("City")  & VbCrLF
myBody =myBody & "Zip: " & request.form("Zip")  & VbCrLF
myBody =myBody & "Phone: " & request.form("Phone")  & VbCrLF
myBody =myBody & "School: " & request.form("School")  & VbCrLF
myBody =myBody & "Grade: " & request.form("Grade")  & VbCrLF
myBody =myBody & "Birthday: " & request.form("Birthday")  & VbCrLF
myBody =myBody & "P_FirstName: " & request.form("P_FirstName")  & VbCrLF
myBody =myBody & "L_FirstName: " & request.form("P_LastName")  & VbCrLF
myBody =myBody & "Level711: " & request.form("Level711")  & VbCrLF
myBody =myBody & "Leve1214: " & request.form("Leve1214")  & VbCrLF
myBody =myBody & "Gender: " & request.form("Gender")  & VbCrLF
myBody =myBody & "TshirtSize: " & request.form("TshirtSize")  & VbCrLF  

Set myMail=CreateObject("CDO.Message")
myMail.Subject=mySub
myMail.From="Kathy@empirevolleyball.com"
myMail.To="Kathy@empirevolleyball.com"
myMail.TextBody=myBody
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mail.empirevolleyball.com"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing
' ----------------------------------------------------------------------------------
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
      <title>Empire Volleyball</title>
      <style type="text/css">
<!--
body { background-color: #000000;}
.style1 {font-family: "Copperplate Gothic Bold"}
.style3 {font-family: "Copperplate Gothic Bold"; color: #00CCFF; }
.style5 {font-family: "Copperplate Gothic Bold"; color: #990099; }
.style7 {font-size: 24px}
-->
</style>
</head>
<body>
      <table width="233" border="0" cellpadding="0" cellspacing="0">
            <tr>
                  <td width="234">
                        <img src="Top/EmpireShadow250x250.gif" width="234" height="206" hspace="0" vspace="0"></td>
                  <td colspan="2">
                        <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0"
                              width="725" height="210">
                              <param name="movie" value="Top/Empirevolleyball.swf">
                              <param name="quality" value="high">
                              <param name="BGCOLOR" value="#FFFFFF">
                              <embed src="Top/Empirevolleyball.swf" width="725" height="210" quality="high" pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"
                                    type="application/x-shockwave-flash" bgcolor="#FFFFFF"></embed>
                        </object>
                  </td>
            </tr>
            <tr bgcolor="#FFFFFF">
                  <td height="54" bgcolor="#990099">&nbsp;</td>
                  <td colspan="2" bgcolor="#000000">
                        <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0"
                              width="970" height="414" style="position: absolute; top: 225px; left: 5px; z-index: 1;
                              visibility: visible;">
                              <param name="movie" value="Menu/empiretop_nav.swf" />
                              <param name="quality" value="high" />
                              <param name="allowScriptAccess" value="always" />
                              <param name="wmode" value="transparent" />
                              <embed src="Menu/empiretop_nav.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer"
                                    type="application/x-shockwave-flash" width="970" height="414" allowscriptaccess="always"
                                    wmode="transparent"></embed>
                        </object>
                  </td>
            </tr>
            <tr bgcolor="#FFFFFF">
                  <td rowspan="5" bgcolor="#990099">&nbsp;</td>
                  <td width="28" rowspan="5" bgcolor="#000000">
                        <p>
                        <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0"
                              width="517" height="328" style="position: absolute; top: 271px; left: 10px; z-index: 1;
                              visibility: visible;">
                              <param name="movie" value="Menu/empireleft_nav.swf" />
                              <param name="quality" value="high" />
                              <param name="allowScriptAccess" value="always" />
                              <param name="wmode" value="transparent" />
                              <embed src="Menu/empireleft_nav.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer"
                                    type="application/x-shockwave-flash" width="517" height="328" allowscriptaccess="always"
                                    wmode="transparent"></embed>
                        </object>
                        </p>
                  </td>
                  <td width="697" height="73">
                        <p align="center"><span class="style1">
                              <br>
                              <span class="style7">You have successfully signed up for
                                    <br>
                                    Empire's Junior Youth League.</span></span></p>
                  </td>
            </tr>
            <tr bgcolor="#FFFFFF">
                  <td height="37">
                        <div align="center">
                              <span class="style1">Two levels will be offered for each session.</span><br>
                        </div>
                  </td>
            </tr>
            <tr bgcolor="#FFFFFF">
                  <td height="72">
                        <div align="center">
                              <span class="style1">Level One: Ages 7-11 &amp;
                                    <br>
                                    Level Two: Ages 12-14<br>
                                    <br>
                              </span>
                        </div>
                  </td>
            </tr>
            <tr bgcolor="#FFFFFF">
                  <td height="98" bgcolor="#000000">
                        <div align="center">
                              <p class="style3"><span class="style1">
                                    <br>
                                    <span class="style5">Sign-ups and opening clinic</span><br>
                                    Friday, April 20</span><br>
                              5-7 pm Sonoma State University main gym<br>
                              <br>
                              Session 1: Friday, May 4<br>
                              5-7 pm Sonoma State University main gym<br>
                              <br>
                              Session 2: Friday, May 11<br>
                              5-7 pm Sonoma State University main gym<br>
                              <br>
                              Session 3: Friday, May 18<br>
                              5-7 pm Sonoma State University main gym<br>
                              <br>
                              Session 4: Friday, May 25<br>
                              5-7 pm Sonoma State University main gym<br>
                              <br>
                              Session 5: Friday, June 1<br>
                              5-7 pm Sonoma State University main gym</p>
                              <p class="style3">Session 6: Friday, June 8<br>
                              5-7 pm Sonoma State University main gym </p>
                        </div>
                  </td>
            </tr>
            <tr bgcolor="#FFFFFF">
                  <td height="19">&nbsp;</td>
            </tr>
            <tr bgcolor="#FFFFFF">
                  <td bgcolor="#000000">&nbsp;</td>
                  <td colspan="2" bgcolor="#000000">&nbsp;</td>
            </tr>
            <tr bgcolor="#FFFFFF">
                  <td bgcolor="#990099">&nbsp;</td>
                  <td colspan="2" bgcolor="#990099">&nbsp;</td>
            </tr>
      </table>
</body>
</html>
***********************************************************************************************************************
0
Jesse26Author Commented:
Here  is the error I get

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/juniorsuccess.asp, line 47
0
Jesse26Author Commented:
Do I n need to add a recordset?
0
RouchieCommented:
No, a recordset is not needed as we are now doing this manually.  Let me have a look and get back to you shortly...
0
RouchieCommented:
Okay there was a single comma missing from the insert statement.  Please paste this code over the top of the code in juniorsuccess.asp


Dim myCommandText, editCommand
myCommandText = "INSERT INTO YouthLeague ("
myCommandText = myCommandText & "FirstName, "
myCommandText = myCommandText & "LastName, "
myCommandText = myCommandText & "Address, "
myCommandText = myCommandText & "City, "
myCommandText = myCommandText & "Zip, "
myCommandText = myCommandText & "Phone, "
myCommandText = myCommandText & "School, "
myCommandText = myCommandText & "Grade, "
myCommandText = myCommandText & "Birthday, "
myCommandText = myCommandText & "P_FirstName, "
myCommandText = myCommandText & "P_LastName, "
myCommandText = myCommandText & "Level711, "
myCommandText = myCommandText & "Leve1214, "
myCommandText = myCommandText & "Gender, "
myCommandText = myCommandText & "TshirtSize"
myCommandText = myCommandText & ")"
myCommandText = myCommandText & " VALUES "
myCommandText = myCommandText & "("
myCommandText = myCommandText & replace(request.Form("FirstName"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("LastName"),"'","''") & ", " 
myCommandText = myCommandText & replace(request.Form("Address"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("City"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("Zip"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("Phone"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("School"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("Grade"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("Birthday"),"'","''") & ", " 
myCommandText = myCommandText & replace(request.Form("P_FirstName"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("P_LastName"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("Level711"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("Leve1214"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("Gender"),"'","''") & ", "
myCommandText = myCommandText & replace(request.Form("TshirtSize"),"'","''")
myCommandText = myCommandText & ")"
0
Jesse26Author Commented:
I saw the quotes for the phone record changed but I get an unsucessful page
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/juniorsuccess.asp, line 47
 
is the error message
0
Jesse26Author Commented:
Maybe I can build new pages that would better suit what I want I liked your explanation about the pages trying to do two things at once.  What sequence would you use knowing I have to use asp pages (due to the server and the acesss database) and knowing I wanted to send the same fields that were entered to an email and a database.  I would like any info you can give
0
RouchieCommented:
I understand your frustration here, but you'll actually end up with the exact same page I'm trying to sort for you, except you'll have all the hassle of understanding each line of code!  The error was once again something very slight, so let's hope this is the one...!

Dim myCommandText, editCommand
myCommandText = "INSERT INTO YouthLeague ("
myCommandText = myCommandText & "FirstName, "
myCommandText = myCommandText & "LastName, "
myCommandText = myCommandText & "Address, "
myCommandText = myCommandText & "City, "
myCommandText = myCommandText & "Zip, "
myCommandText = myCommandText & "Phone, "
myCommandText = myCommandText & "School, "
myCommandText = myCommandText & "Grade, "
myCommandText = myCommandText & "Birthday, "
myCommandText = myCommandText & "P_FirstName, "
myCommandText = myCommandText & "P_LastName, "
myCommandText = myCommandText & "Level711, "
myCommandText = myCommandText & "Leve1214, "
myCommandText = myCommandText & "Gender, "
myCommandText = myCommandText & "TshirtSize"
myCommandText = myCommandText & ")"
myCommandText = myCommandText & " VALUES "
myCommandText = myCommandText & "("
myCommandText = myCommandText & "'" & replace(request.Form("FirstName"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("LastName"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("Address"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("City"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("Zip"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("Phone"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("School"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("Grade"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("Birthday"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("P_FirstName"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("P_LastName"),"'","''")  & "', "
myCommandText = myCommandText & "'" & replace(request.Form("Level711"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("Leve1214"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("Gender"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("TshirtSize"),"'","''") & "'"
myCommandText = myCommandText & ")"
0
Jesse26Author Commented:
Oh dont get me wrong ill take any and all your sugesstions. I got another error message
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/juniorsuccess.asp, line 47
0
RouchieCommented:
Can you please tell me the data type of each database column that you are trying to save to?

i.e. datetime, text, yes/no field etc
0
RouchieCommented:
Also, what database are you using?  Access/SQL etc
0
Jesse26Author Commented:
i am using access and  each field is a textbox except for the
Level711
Leve1214
fields they are yes/no fields
0
RouchieCommented:
Okay, that's the error.  I coded the SQL statement to default to text values, so we need to amend it slightly to account for the yes/no part.  I'm not sure if Access accepts HTML's default 1/0 checkbox values, so we'll try a boolean conversion and see what happens... Don't worry we are very close to finishing this one!

Dim myCommandText, editCommand
myCommandText = "INSERT INTO YouthLeague ("
myCommandText = myCommandText & "FirstName, "
myCommandText = myCommandText & "LastName, "
myCommandText = myCommandText & "Address, "
myCommandText = myCommandText & "City, "
myCommandText = myCommandText & "Zip, "
myCommandText = myCommandText & "Phone, "
myCommandText = myCommandText & "School, "
myCommandText = myCommandText & "Grade, "
myCommandText = myCommandText & "Birthday, "
myCommandText = myCommandText & "P_FirstName, "
myCommandText = myCommandText & "P_LastName, "
myCommandText = myCommandText & "Level711, "
myCommandText = myCommandText & "Leve1214, "
myCommandText = myCommandText & "Gender, "
myCommandText = myCommandText & "TshirtSize"
myCommandText = myCommandText & ")"
myCommandText = myCommandText & " VALUES "
myCommandText = myCommandText & "("
myCommandText = myCommandText & "'" & replace(request.Form("FirstName"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("LastName"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("Address"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("City"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("Zip"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("Phone"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("School"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("Grade"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("Birthday"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("P_FirstName"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("P_LastName"),"'","''")  & "', "
myCommandText = myCommandText & cbool(request.Form("Level711")) & ", "
myCommandText = myCommandText & cbool(request.Form("Leve1214")) & ", "
myCommandText = myCommandText & "'" & replace(request.Form("Gender"),"'","''") & "', "
myCommandText = myCommandText & "'" & replace(request.Form("TshirtSize"),"'","''") & "'"
myCommandText = myCommandText & ")"
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Jesse26Author Commented:
Thank You
0
RouchieCommented:
Hurray!  You're welcome :-)

... thanks for your patience!
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Adobe Dreamweaver

From novice to tech pro — start learning today.