Solved

fields and emails from a form

Posted on 2007-03-30
26
152 Views
Last Modified: 2010-04-25
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
%>
0
Comment
Question by:Jesse26
  • 13
  • 13
26 Comments
 
LVL 25

Expert Comment

by:Rouchie
ID: 18828567
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
 

Author Comment

by:Jesse26
ID: 18832661
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
 
LVL 25

Expert Comment

by:Rouchie
ID: 18834745
Which page does that code come from?
0
 
LVL 25

Expert Comment

by:Rouchie
ID: 18834748
Just to follow, if the page is JuniorSuccess.asp, what is the purpose of the database SELECT statement that is in there?
0
 

Author Comment

by:Jesse26
ID: 18837908
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
 

Author Comment

by:Jesse26
ID: 18837936
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
 

Author Comment

by:Jesse26
ID: 18841527
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
 
LVL 25

Expert Comment

by:Rouchie
ID: 18841729
Okay can you post the code for your page you described above?
0
 

Author Comment

by:Jesse26
ID: 18841746
<%@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
 
LVL 25

Expert Comment

by:Rouchie
ID: 18841830
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
 

Author Comment

by:Jesse26
ID: 18841869
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
 
LVL 25

Expert Comment

by:Rouchie
ID: 18842002
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
 

Author Comment

by:Jesse26
ID: 18845214
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
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 

Author Comment

by:Jesse26
ID: 18845219
Do I n need to add a recordset?
0
 
LVL 25

Expert Comment

by:Rouchie
ID: 18848904
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
 
LVL 25

Expert Comment

by:Rouchie
ID: 18848919
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
 

Author Comment

by:Jesse26
ID: 18853429
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
 

Author Comment

by:Jesse26
ID: 18853458
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
 
LVL 25

Expert Comment

by:Rouchie
ID: 18856152
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
 

Author Comment

by:Jesse26
ID: 18856362
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
 
LVL 25

Expert Comment

by:Rouchie
ID: 18856451
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
 
LVL 25

Expert Comment

by:Rouchie
ID: 18856456
Also, what database are you using?  Access/SQL etc
0
 

Author Comment

by:Jesse26
ID: 18860456
i am using access and  each field is a textbox except for the
Level711
Leve1214
fields they are yes/no fields
0
 
LVL 25

Accepted Solution

by:
Rouchie earned 500 total points
ID: 18862743
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
 

Author Comment

by:Jesse26
ID: 18862774
Thank You
0
 
LVL 25

Expert Comment

by:Rouchie
ID: 18862781
Hurray!  You're welcome :-)

... thanks for your patience!
0

Featured Post

Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

Join & Write a Comment

Adobe Dreamweaver CS5 is a WYSIWYG web page editor that has advanced HTML, CSS, and Javascript rendering functionality and is probably the most well-known HTML editor available. Much of Dreamweaver's appeal centers around the Design View interfac…
This article is very specific and is only intended to help if you are installing Dreamweaver 8 in a Windows 7 environment with Office 2007 installed.   I'm not sure why Microsoft tends to release OS' that should not be released but they do.  Windows…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
This tutorial demonstrates a quick way of adding group price to multiple Magento products.

760 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now