• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 515
  • Last Modified:

Session Variables or Recordset to Autofill fields on a second form

Hi, this is what i am trying to accomplish. I have a registration form which I want to autofill from another pre-form with values i get such as team name, number of players, contact email , and I wanto to pass those values to the actual registration form. I know I am going to need to declare sessio n variables or use my Dtabase to retrieve those values. How would I do this?
Look for the code below
Pre-Register(form 1)
<%
If request.form("T_name")<>"" Then
tourname=request.form("T_name")
Else
tourname=request.form("tourname")
End If
'response.write "tourname--"& tourname
 
If request.form("T_Id")<>"" Then
	TID=request.form("T_Id")
Else
	TID=request.form("TID")
End If
 
 
' Member Registration
 
If (Request.Form("Submit")<>"") Then
 
		set rs_val = Server.Createobject("ADODB.Recordset")
		ccnt=0
		c=0
 
		sql_res_val="select max(TIID) from players"         'Team ID 
		rs_val.open sql_res_val,conSQL
		if rs_val(0)<>""  Then
			TIID=rs_val(0)+1
		Else
			TIID=1000
		End if
				
					
					' Session Variables To Use on Next Step
					session("S_txtteamname")= request.form("txtteamname")
					session("S_txtcontactname") = request.form("txtcontactname")
					session("S_txtteamemailid")= request.form("txtmainemailid")
					session("S_txtmaincontactno")=request.form("txtmaincontactno")
					session("S_txtmcount") = request.form("mcount")
					
					' Retrieving from the form 
					txtteamname=request.form("txtteamname")
					txtcontactname=request.form("txtcontactname")
					txtmaincontactno=request.form("txtmaincontactno")
					txtteamemailid=request.form("txtmainemailid")
					txtmcount=request.form("mcount")
					
		
					
conSQL.execute("Insert into Players(teamname,TeamMainContactName, TeamMainContactNo, TeamMainEmail,TeamTournamentMembers) values('"&txtteamname&"','"&txtcontactname&"','"&txtmaincontactno&"','"&txtteamemailid&"','"&txtmcount&"')")
 
end if%>
 
 
 
 
 
 
Register.asp (form)
 
<%
	level="../"
	'response.buffer=true
	'Response.ExpiresAbsolute = Now() - 1
 	'Response.Expires = 0
 	'Response.CacheControl = "no-cache"
 
%>
<!--#include file="../include/intialize.inc"-->
<!--include file="../include/connection.asp"-->
<!--#include file="../../Connections/sqlConn1.asp" -->
<!--#include file="../../Connections/sqlConn3.asp" -->
 
<!-- #include File="../include/logincheck.asp" -->
<%
If request.form("T_name")<>"" Then
tourname=request.form("T_name")
Else
tourname=request.form("tourname")
End If
'response.write "tourname--"& tourname
 
If request.form("T_Id")<>"" Then
	TID=request.form("T_Id")
Else
	TID=request.form("TID")
End If
 
 
' Member Registration
 
If (Request.Form("Submit")<>"") Then
 
dim cmd
set cmd = Server.CreateObject("AdoDB.Command")
'dim cn
'set cn = Server.CreateObject("AdoDb.Connection")
'cn.connectionString = MyconnectionString
 
set cmd.ActiveConnection = ConSQL
cmd.CommandText = "Select AvailableSpots From tblTournament WHERE TourID = "&TID&"  "
 
 if cmd.Execute().fields(0).Value > 0 then
 
 
  'There's an available spot ... claim it
  'cmd.CommandText = "Update tblTournament set MaxTeams = MaxTeams-1"
  
  cmd.CommandText = "Update tblTournament set AvailableSpots = AvailableSpots-1 WHERE TourID = "&TID&"  "
  cmd.Execute
					end if
					
 
		set rs_val = Server.Createobject("ADODB.Recordset")
		ccnt=0
		c=0
 
		sql_res_val="select max(TIID) from players"         'Team ID 
		rs_val.open sql_res_val,conSQL
		if rs_val(0)<>""  Then
			TIID=rs_val(0)+1
		Else
			TIID=1000
		End if
		
		set rs_val1 = Server.Createobject("ADODB.Recordset")
		sql_res_val1="select TeamName from players"
		rs_val1.open sql_res_val1,conSQL
				
		
		session("r_mcount") = Request.Form("mcount")
		session("r_tourname") = Request.Form("tourname")
		session("r_txtcourseid") = Request.Form("txtcourseid")
 
		'do we need an user name also here ?
		'session("r_txtuname")=request.form("txtuname")
		For p=1 to request.form("mcount")
 
					session("r_txtfname"&p) = Request.Form("txtfname"&p)
					session("r_txtlname"&p) = Request.Form("txtlname"&p)
				
 
					response.write "tname :" & session("r_txtfname"&p)
 
					txtteamname=request.form("txtteamname"&p)
					txtfname=request.form("txtfname"&p)
					txtlname=request.form("txtlname"&p)
					txtaddr1=request.form("txtaddr1"&p)
					txtaddr2=request.form("txtaddr2"&p)
					txtcity=request.form("txtcity"&p)
					txtstate=request.form("txtstate"&p)
					txtcourseid=request.form("txtcourseid"&p)
					txtpcode=request.form("txtpcode"&p)
					txtcontactno=request.form("txtcontactno"&p)
					txtemailid=request.form("txtemailid"&p)
					txtshirtsize=request.form("txtshirtsize"&p)
					txthandicap=request.form("txthandicap"&p)
					txthomecourse=request.form("txthomecourse"&p)
					txtball=request.form("txtball"&p)
					txtclub=request.form("txtclub"&p)
					
					regdate=date()
					regtime=time()
			
					response.Write("txtteamname")
					conSQL.execute("Insert into Players(teamname,firstname,lastname,addy1,addy2,city,state,Zip,phone,email,regdate,regtime,TourID,Shirtsize,Handicap,courseID,TIID,golfball,golfclub) values('"&txtteamname&"','"&txtfname&"', '"&txtlname&"','"&txtaddr1&"','"&txtaddr2&"','"&txtcity&"','"&txtstate&"','"&txtpcode&"','"&txtcontactno&"','"&txtemailid&"','"&regdate&"','"&regtime&"','"&TID&"','"&txtshirtsize&"','"&txthandicap&"',"&txthomecourse&","&TIID&",'"&txtball&"', '"&txtclub&"')")
 
					Set rsNewListMember=Server.CreateObject("ADODB.Recordset")
 
					strSQL = "SELECT tblMailingList.* FROM tblMailingList;"
					rsNewListMember.Open strSQL, con3SQL
 
					Randomize Timer
						dim strEmailAdress
						strEmailAdress=""
			        strUserCode = Left(strEmailAddress,2) & (9876989856 * CInt((RND * 32000) + 100))
 
					Do While NOT rsNewListMember.EOF
 
				        If strUserCode = rsNewListMember("ID_Code") Then
 
					        Randomize Timer
 
					        strUserCode = Left(strEmailAddress,2) & (9876989856 * CInt((RND * 32000) + 100))
 
				        rsNewListMember.MoveFirst
				        End If
 
          
                        If strEmailAddress = txtemailid Then
                              blnError = True
                              Exit Do
                        End If
 
				        rsNewListMember.MoveNext
                    Loop
 
			        If strEmailAddress = txtemailid Then
				        blnError = True
				        'Exit Do
			        End If
 
                    Set MyCDO =CreateObject("CDO.Message")
 
 
	                MyCDO.To = txtemailid
	                'MyCDO.Bcc=txtemaild
	                'MyCDO.Cc=txtemailid
 
	                MyCDO.From = "info@playerscores.com"
	                MyCDO.Subject = "Tournament signup confirmation from playerscores.com "
 
			        MyCDO.HTMLBody = " <br><br>Thanks for registering your team<b> "& request.form("txtteamname")&"</b> online with the <b>"& request.form("tourname") &"</b><br> If you have any questions please do not hesitate to email us at info@playerscores.com <br><br>Thanks<br>PlayerScores.com Staff"
 
 
                    MyCDO.Configuration.Fields.Item _
                    ("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
                    'Name or IP of remote SMTP server
                    MyCDO.Configuration.Fields.Item _
                    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
                    ="192.168.5.235"
                    'Server port
                    MyCDO.Configuration.Fields.Item _
                    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") _
                    =25
                    MyCDO.Configuration.Fields.Update
 
 
                    MyCDO.Send
 
 
                    If Err.Number <> 0 Then
		                            Response.Write "Error: " & Err.Description
	                                response.end
	                end if
 
		            If blnError = False Then
		                Set rsNewListMemberc = Server.CreateObject("ADODB.Recordset")
		                strSQLC = "SELECT * FROM tblMailingList where Email='"&txtemailid&"'"
		                rsNewListMemberC.Open strSQLC, con3SQL
	                    If rsNewListMemberC.EOF Then
                            con3SQL.execute("Insert into tblMailingList(Email,ID_Code) values('"&txtemailid&"','"&strUserCode&"')")
					    End If
				    End If
 
				    rsNewListMember.Close
				    Set rsNewListMember = Nothing
 
 
		Next
 
 
		'Set rsNewListMember1=Server.CreateObject("ADODB.Recordset")
		'strSQL1 = "SELECT Tourfee FROM tblTournament where TourID="&TID&";"
		'rsNewListMember1.Open strSQL1, conSQL
 
		' Are we charging a fee to register a tournament?
 
		'if rsNewListMember1("Tourfee") <> 0 then
		'url="thank.asp"
		'response.redirect(url)
		'else
		'On Error resume Next
 
		' clean up
		set MyCDO=nothing
		url="thank.asp"
		response.redirect(url)
	end if
 
%>
<html>
<head>
<title><%=PageTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../style/style.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
function validate_all()
	{
		errmsg="";
	for(i=1;i<=document.regfrm.mcount.value;i++)
	{
		//errmsg +="Player"+i+"\n\n";
		if (eval("document.regfrm.txtfname"+i+".value")=="")
			errmsg +="Player"+i+" Firstname Field is Blank \n";
		if (eval("document.regfrm.txtaddr1"+i+".value")=="")
			errmsg +="Player"+i+ " Address Field is Blank \n";
		if (eval("document.regfrm.txtcity"+i+".value")=="")
			errmsg +="Player"+i+ " City Field is Blank \n";
		if (eval("document.regfrm.txtstate"+i+".value")=="")
			errmsg +="Player"+i+ " State Field is Blank \n";
		if (eval("document.regfrm.txtpcode"+i+".value")=="")
			errmsg +="Player"+i+ " Zip Code Field is Blank \n";
		if (eval("document.regfrm.txtcontactno"+i+".value")=="")
			errmsg +="Player"+i+ " Contact Number Field is Blank \n";
		if (eval("document.regfrm.txtemailid"+i+".value")=="")
			errmsg +="Player"+i+ " Email ID Field is Blank \n";
		else
		{
			var err=0
			mailid = eval("document.regfrm.txtemailid"+i+".value");
			val=mailid.indexOf("@");
			if (val!=-1)
			{
			  val1=mailid.indexOf(".");
			  if (val1==-1)
				err=1;
			}
			else
				err=1;
 
			if (err==1)
				  errmsg +="Player"+i+ " Invalid Email ID \n";
		}
 
		if (eval("document.regfrm.txthandicap"+i+".value")=="")
			errmsg +="Player"+i+ " Handicap Field is Blank \n";
		if (eval("document.regfrm.txthomecourse"+i+".value")=="")
			errmsg +="Player"+i+ " Home Course Field is Blank \n";
 
	}
	if (errmsg=="")
	{
		return true;
	}
	else
	{
		alert(" Following Error Have Occured While Submiting This Form:\n\n"+errmsg);
		return false;
	}
}
 
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
 
function YY_checkform() { //v4.66
//copyright (c)1998,2002 Yaromat.com
  var args = YY_checkform.arguments; var myDot=true; var myV=''; var myErr='';var addErr=false;var myReq;
  for (var i=1; i<args.length;i=i+4){
    if (args[i+1].charAt(0)=='#'){myReq=true; args[i+1]=args[i+1].substring(1);}else{myReq=false}
    var myObj = MM_findObj(args[i].replace(/\[\d+\]/ig,""));
    myV=myObj.value;
    if (myObj.type=='text'||myObj.type=='password'||myObj.type=='hidden'){
      if (myReq&&myObj.value.length==0){addErr=true}
      if ((myV.length>0)&&(args[i+2]==1)){ //fromto
        var myMa=args[i+1].split('_');if(isNaN(myV)||myV<myMa[0]/1||myV > myMa[1]/1){addErr=true}
      } else if ((myV.length>0)&&(args[i+2]==2)){
          var rx=new RegExp("^[\\w\.=-]+@[\\w\\.-]+\\.[a-z]{2,4}$");if(!rx.test(myV))addErr=true;
      } else if ((myV.length>0)&&(args[i+2]==3)){ // date
        var myMa=args[i+1].split("#"); var myAt=myV.match(myMa[0]);
        if(myAt){
          var myD=(myAt[myMa[1]])?myAt[myMa[1]]:1; var myM=myAt[myMa[2]]-1; var myY=myAt[myMa[3]];
          var myDate=new Date(myY,myM,myD);
          if(myDate.getFullYear()!=myY||myDate.getDate()!=myD||myDate.getMonth()!=myM){addErr=true};
        }else{addErr=true}
      } else if ((myV.length>0)&&(args[i+2]==4)){ // time
        var myMa=args[i+1].split("#"); var myAt=myV.match(myMa[0]);if(!myAt){addErr=true}
      } else if (myV.length>0&&args[i+2]==5){ // check this 2
            var myObj1 = MM_findObj(args[i+1].replace(/\[\d+\]/ig,""));
            if(myObj1.length)myObj1=myObj1[args[i+1].replace(/(.*\[)|(\].*)/ig,"")];
            if(!myObj1.checked){addErr=true}
      } else if (myV.length>0&&args[i+2]==6){ // the same
            var myObj1 = MM_findObj(args[i+1]);
            if(myV!=myObj1.value){addErr=true}
      }
    } else
    if (!myObj.type&&myObj.length>0&&myObj[0].type=='radio'){
          var myTest = args[i].match(/(.*)\[(\d+)\].*/i);
          var myObj1=(myObj.length>1)?myObj[myTest[2]]:myObj;
      if (args[i+2]==1&&myObj1&&myObj1.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
      if (args[i+2]==2){
        var myDot=false;
        for(var j=0;j<myObj.length;j++){myDot=myDot||myObj[j].checked}
        if(!myDot){myErr+='* ' +args[i+3]+'\n'}
      }
    } else if (myObj.type=='checkbox'){
      if(args[i+2]==1&&myObj.checked==false){addErr=true}
      if(args[i+2]==2&&myObj.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
    } else if (myObj.type=='select-one'||myObj.type=='select-multiple'){
      if(args[i+2]==1&&myObj.selectedIndex/1==0){addErr=true}
    }else if (myObj.type=='textarea'){
      if(myV.length<args[i+1]){addErr=true}
    }
    if (addErr){myErr+='* '+args[i+3]+'\n'; addErr=false}
  }
  if (myErr!=''){alert('The required information is incomplete or contains errors:\t\t\t\t\t\n\n'+myErr)}
  document.MM_returnValue = (myErr=='');
}
</script>
 
 
<script language="JavaScript">
<!--
function isAlpha ( evt ) {
   var keyCode = evt.which ? evt.which : evt.keyCode;
   alpha = ( keyCode >= 'a'.charCodeAt ( ) &&
      keyCode <= 'z'.charCodeAt ( ) ) ||
      ( keyCode >= 'A'.charCodeAt ( ) &&
      keyCode <= 'Z'.charCodeAt ( ) ) ||
      ( keyCode >= 8 && keyCode <= 46 );
   return ( alpha );
}
 
function validateAlpha ( text ) {
   for ( c=0; c < text.length; c ++ ) {
      alpha = ( text.charCodeAt ( c ) >= 65 &&
         text.charCodeAt ( c ) <=90 ) ||
         ( text.charCodeAt ( c ) >= 97 &&
         text.charCodeAt ( c ) <=122 )
      if ( !alpha ) {
         alert ( 'No way, sorry.' );
         document.theForm.theField.select ( );
         return false;
      }
   }
   return true;
}
function MM_validateForm() { //v4.0
  if (document.getElementById){
    var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
    for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=document.getElementById(args[i]);
      if (val) { nm=val.name; if ((val=val.value)!="") {
        if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
          if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
        } else if (test!='R') { num = parseFloat(val);
          if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
          if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
            min=test.substring(8,p); max=test.substring(p+1);
            if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
      } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
    } if (errors) alert('The following error(s) occurred:\n'+errors);
    document.MM_returnValue = (errors == '');
} }
//-->
</script>
 
 
 
<style type="text/css">
<!--
.Estilo2 {
	font-size: 11px;
	font-family: Verdana, Arial, Helvetica, sans-serif;
}
.Estilo3 {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 24px;
}
-->
</style>
</head>
<body background="<%=level%>images/bg.jpg" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="775" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="4" valign="top"><!--#include file="../include/header.asp"--></td>
  </tr>
  <tr>
    <td width="192" valign="top" bgcolor="#ffffff"><!-- #include file="../include/left.asp" --></td>
    <td width="591" valign="top" bgcolor="#ffffff">
      <form name="regfrm" method="post" action="" onSubmit="return validateNumber (this.theField.value )">
        <table width="88%" border="0" align="center" cellpadding="0" cellspacing="0" class="bodytxt1">
          <% if (msg<>"") then %>
          <tr>
            <td width="100%" height="30" colspan="2" align="center" class="errortxt"><%=msg%></td>
          </tr>
          <% end if %>
        </table>
        <table width="423"  border="0" cellspacing="0" cellpadding="0" align="center" class="bodytxt1">
          <tr>
            <td width="28"><img src="<%=Level%>images/tbleft.jpg" width="28" height="24"></td>
            <td width="279" class="tableheader1">New User Sign Up &nbsp;for Tournament&nbsp;</td>
            <td width="116"><img src="<%=Level%>images/tbright.jpg" width="28" height="24"></td>
          </tr>
          <tr>
            <td colspan="3" valign="top" bgcolor="#5eb020">
              <table width="100%"  border="0" cellspacing="1" cellpadding="0" class="bodytxt1" >
                <tr>
                  <td valign="top" bgcolor="#FFFFFF" class="tablebgcolor"><br>
                  Please Select the Tournament Members :
				  <select name="mcount" onChange="javascript:submit();">
				  <option value="1" <% if request.form("mcount")=1 then Response.write "selected" %>>1</option>
				  <option value="2" <% if request.form("mcount")=2 then Response.write "selected" %>>2</option>
				  <option value="3" <% if request.form("mcount")=3 then Response.write "selected" %>>3</option>
				  <option value="4" <% if request.form("mcount")=4 then Response.write "selected" %>>4</option>
				  <option value="5" <% if request.form("mcount")=5 then Response.write "selected" %>>5</option>
				  </select>
				   <br>
                  <br></td>
                </tr>
				<tr>
                  <td valign="top" bgcolor="#FFFFFF" class="tablebgcolor">
				<%
				nct=request.form("mcount")
				'nct=play
				if nct="" then
				nct=1
				End if
				For i=1 to nct
				%>
				<table width="100%" height="100%" align="center" cellpadding="5" cellspacing="0" class="bodytxt1" >
                      <tr align="left">
                        <td colspan="2" class="tableheader" >Player<%=i%> Personal Information                        </td>
                      </tr>
                      <tr>
                        <td width="40%" align="right" >Tournament Name</td>
                        <td width="60%"> <%=tourname%>                        </td>
                      </tr>
                      <tr>
                        <td align="right" >Team Name</td>
                        <td>  &nbsp;
                   <input name="txtteamname<%=i%>" type="text" class="txtbox1" id="txtteamname<%=i%>"   
                   VALUE="<%=txtteamname%> "
                   onBlur="YY_checkform('regfrm','txtteamname<%=i%>2','#q','0','Field \'txtteamname<%=i%>2\' is not valid.');return document.MM_returnValue"  onKeyDown="
   if ( !isAlpha ( event ) ) {
      alert ( 'Please enter only letters on this field .' );
      return false;
   }"  ></td>
                      </tr>
                      <tr>
                        <td width="40%" align="right" >First Name</td>
                        <td width="60%"> &nbsp;
 <input type="text" name="txtfname<%=i%>" class="txtbox1"  onKeyDown="
   if ( !isAlpha ( event ) ) {
      alert ( 'Please enter only letters on this field .' );
      return false;
   }"               
   VALUE=<%=request.form("txtfname"&i)%> >                        </td>      
                      </tr>
                      <tr>
                        <td width="40%" align="right" >Last Name</td>
                        <td width="60%"> &nbsp;
                          <input type="text" name="txtlname<%=i%>" class="txtbox1"  onKeyDown="
   if ( !isAlpha ( event ) ) {
      alert ( 'Please enter only letters on this field .' );
      return false;
   }"
                           VALUE=<%=request.form("txtlname"&i)%> >                        </td>
                      </tr>
                      <tr>
                        <td width="40%" align="right" >Address</td>
                        <td width="60%"> &nbsp;
     <input type="text" name="txtaddr1<%=i%>" class="txtbox2" VALUE="<%=request.form("txtaddr1"&i)%>">                        </td>
                      </tr>
                      <tr>
                        <td width="40%" align="right">Address</td>
                        <td width="60%"> &nbsp;
                          <input type="text" name="txtaddr2<%=i%>" class="txtbox2" VALUE="<%=request.form("txtaddr2"&i)%>">                        </td>
                      </tr>
                      <tr>
                        <td width="40%" align="right" >City </td>
                        <td width="60%"> &nbsp;
                          <input type="text" name="txtcity<%=i%>" class="txtbox1"  onKeyDown="
   if ( !isAlpha ( event ) ) {
      alert ( 'Please enter only letters on this field .' );
      return false;
   }"
                           VALUE=<%=request.form("txcity"&i)%> >                        </td>
                      </tr>
                      <tr>
                        <td width="40%" align="right" >State</td>
                        <td width="60%"> &nbsp;
                        <select name="txtstate<%=i%>"class="txtbox1"
                        value="<%=request.form("txtstate"&i)%>">
                            <option>Choose a State</option>
                            <option value="AL">Alabama</option>
                            <option value="AK">Alaska</option>
                            <option value="AZ">Arizona</option>
                            <option value="AR">Arkansas</option>
                            <option value="CA">California</option>
                            <option value="CO">Colorado</option>
                            <option value="CT">Connecticut</option>
                            <option value="DE">Delaware</option>
                            <option value="FL">Florida</option>
                            <option value="GA">Georgia</option>
                            <option value="HI">Hawaii</option>
                            <option value="ID">Idaho</option>
                            <option value="IL">Illinois</option>
                            <option value="IN">Indiana</option>
                            <option value="IA">Iowa</option>
                            <option value="KS">Kansas</option>
                            <option value="KY">Kentucky</option>
                            <option value="LA">Louisiana</option>
                            <option value="ME">Maine</option>
                            <option value="MD">Maryland</option>
                            <option value="MA">Massachusetts</option>
                            <option value="MI">Michigan</option>
                            <option value="MN">Minnesota</option>
                            <option value="MS">Mississippi</option>
                            <option value="MO">Missouri</option>
                            <option value="MT">Montana</option>
                            <option value="NE">Nebraska</option>
                            <option value="NV">Nevada</option>
                            <option value="NH">New Hampshire</option>
                            <option value="NJ">New Jersey</option>
                            <option value="NM">New Mexico</option>
                            <option value="NY">New York</option>
                            <option value="NF">Newfoundland</option>
                            <option value="NC">North Carolina</option>
                            <option value="ND">North Dakota</option>
                            <option value="OH">Ohio</option>
                            <option value="OK">Oklahoma</option>
                            <option value="OR">Oregon</option>
                            <option value="PA">Pennsylvania</option>
                            <option value="RI">Rhode Island</option>
                            <option value="SC">South Carolina</option>
                            <option value="SD">South Dakota</option>
                            <option value="TN">Tennessee</option>
                            <option value="TX">Texas</option>
                            <option value="UT">Utah</option>
                            <option value="VT">Vermont</option>
                            <option value="VA">Virginia</option>
                            <option value="WA">Washington</option>
                            <option value="DC">Washington, D.C.</option>
                            <option value="WV">West Virginia</option>
                            <option value="WI">Wisconsin</option>
                            <option value="WY">Wyoming</option>
                          </select>                        </td>
                      </tr>
                      <tr>
                        <td width="40%" align="right" >Zip Code</td>
                        <td width="60%"> &nbsp;
                          <input name="txtpcode<%=i%>" type="text" class="txtbox1" id="txtpcode<%=i%>" tabindex="12" onBlur="MM_validateForm('txtpcode<%=i%>','','RisNum');return document.MM_returnValue" VALUE="<%=request.form("txtpcode"&i)%>" maxlength="5">                        </td>
                      </tr>
                      <tr>
                        <td width="40%" align="right" >Contact Number</td>
                        <td width="60%"> &nbsp;
                          <input name="txtcontactno<%=i%>" type="text" class="txtbox1" id="txtcontactno<%=i%>" VALUE="<%=request.form("txtcontactno"&i)%>">                        </td>
                      </tr>
                      <tr>
 
                        <td align="right" >Email Address</td>
                        <td>&nbsp;	<input NAME="txtemailid<%=i%>" type="text" class="combobox1" id="txtemailid<%=i%>" onBlur="YY_checkform('regfrm','txtemailid<%=i%>','#S','2','E-mail  is not valid. Please Enter a valid Email. ');return document.MM_returnValue" VALUE="<%=request.form("txtemailid"&i)%>"></td>
                      </tr>
 
                      <tr>
                        <td align="right" >Shirt Size </td>
                        <td> &nbsp;
			<select name="txtshirtsize<%=i%>" width="3" VALUE="<%=request.form("txtshirtsize"&i)%>">
			  <option>Small</option>
			  <option>Medium</option>
			  <option>Large</option>
			  <option>X-Large</option>
			  <option>XX-Large</option>
			  <option>XXX-Large</option>
			  <option>Choose a Size</option>
						</select>                    </td>
                      </tr>
                                         <tr> 
                        <td height="25" align="right">
						  <span class="bodytxt1 Estilo2">Golf Ball Used</span></td>
                        <td height="25"><font face="Tahoma"><font size="2">&nbsp; 
                         
                          </font>
                            <SELECT name="txtball" id="txtball" onChange="window.location=document.guideform.guidelinks.options[document.guideform.guidelinks.selectedIndex].value">
                              <option selected>Choose a Brand</option>
                              <option>Specials</option>
                              <option>Range &amp; Practise Balls</option>
                              <option>Callaway</option>
                              <option>Dunlop</option>
                              <option>Maxfli</option>
                              <option>Nike</option>
                              <option>Pinnacle</option>
                              <option>Precept</option>
                              <option>Prostaff</option>
                              <option>Slazenger</option>
                              <option>Srixon</option>
                              <option>Strata</option>
                              <option>Taylor Made</option>
                              <option>Titleist</option>
                              <option>Top Flite</option>
                              <option>Ultra</option>
                              <option>Wilson</option>
                              <option>Lady Balls</option>
                              <option>Coloured Balls</option>
                              <option>Bulk</option>
                              <option>Other</option>
                              
                              
                               Click Here
                            
                          
                          </SELECT>
                            
                            
                            
                        </font></td>
                      </tr>
                       <tr> 
                        <td height="25" align="right">
						  <span class="bodytxt1">Golf Clubs Used</span></td>
                        <td height="25"><font face="Tahoma"><font size="2">&nbsp; 
                         
                         </font>
                            <SELECT id="LeftColumnNav1_lstManufacture1" onChange="ManuChange(1);" name="txtclub">
                              <option value="Select a Manufacturer">Choose a Brand</option>
                              <option>Adams</option>
                              <option>Adidas</option>
                              <option>Affinity</option>
                              <option>Akira</option>
                              <option>Amf</option>
 
                              <option>Armor Gear</option>
                              <option>Aserta</option>
                              <option>Bag Boy</option>
                              <option>Ben Hogan</option>
                              <option>Bennington</option>
                              <option>Big Moss Golf</option>
                              <option>Bob Burns Golf</option>
                              <option>Bobby Jones</option>
                              <option>Booklegger</option>
                              <option>Bridgestone</option>
                              <option>Bullet</option>
                              <option>Burton</option>
                              <option>Bushnell</option>
                              <option>Caddydaddy</option>
                              <option>Caddyrack</option>
                              <option>Callaway</option>
                              <option>Cargo Golf</option>
                              <option>Cleveland</option>
                              <option>Clicgear</option>
                              <option>Club Glove</option>
                              <option>Cobra</option>
                              <option>Cougar</option>
                              <option>Daito Golf</option>
                              <option>Daiwa</option>
                              <option>Daphnes</option>
                              <option>Datrek</option>
                              <option>Dunlop</option>
                              <option>Ecco</option>
                              <option>Ernie Els</option>
                              <option>F2</option>
                              <option>Garmin</option>
                              <option>Gauge Design Putter</option>
                              <option>Golden Bear Golf</option>
                              <option>Golf Buddy</option>
                              <option>Golf Travel Bags</option>
                              <option>Great Dividers</option>
                              <option>Guerine Rife</option>
                              <option>Hawk</option>
                              <option>Heavy Putter</option>
                              <option>Hippo</option>
                              <option>Innovex Golf</option>
                              <option>Inside Approach</option>
                              <option>Intech</option>
                              <option>Izzo</option>
                              <option>Kasco</option>
                              <option>Keri Golf</option>
                              <option>La Jolla</option>
                              <option>Lady Fairway</option>
                              <option>Lectronic Kaddy</option>
                              <option>MacGregor</option>
                              <option>Maruman</option>
                              <option>Maxfli</option>
                              <option>Medicus</option>
                              <option>Miura</option>
                              <option>Mizuno</option>
                              <option>Momentus</option>
                              <option>Never Compromise</option>
                              <option>Nickent</option>
                              <option>Nicklaus Golf</option>
                              <option>Nike</option>
                              <option>Odyssey</option>
                              <option>Ogio</option>
                              <option>Orlimar</option>
                              <option>Paragon Golf</option>
                              <option>Path Pro Golf</option>
                              <option>Perfect Club</option>
                              <option>PinFire</option>
                              <option>Ping</option>
                              <option>Pinnacle</option>
                              <option>Porterline</option>
                              <option>PowerBilt</option>
                              <option>Precept</option>
                              <option>Pro Tour Memorabilia</option>
                              <option>Puma</option>
                              <option>QLink</option>
                              <option>Ram</option>
                              <option>Sabona</option>
                              <option>Samsonite</option>
                              <option>See More</option>
                              <option>SKB</option>
                              <option>SKLZ</option>
                              <option>Sky Golf</option>
                              <option>Solus Golf</option>
                              <option>Sonartec</option>
                              <option>Speed Stik</option>
                              <option>Square Two</option>
                              <option>Srixon</option>
                              <option>Stewart Golf</option>
                              <option>Sun Mountain</option>
                              <option>Sweet Spot Golf</option>
                              <option>TaylorMade</option>
                              <option>Team Effort</option>
                              <option>Telebag</option>
                              <option>Titleist</option>
                              <option>Tommy Armour</option>
                              <option>Top Flite</option>
                              <option>Tour Edge</option>
                              <option>Tour Links</option>
                              <option>TrionZ</option>
                              <option>Upro</option>
                              <option>Visionary Golf</option>
                              <option>Wilson</option>
                              <option>Winning Edge</option>
                              <option>Yes</option>
                              <option>Yonex</option>
                              <option>Zelocity</option>
                              <option>Other</option>
                          </SELECT>
</font></td>
                      </tr>
                      
                      
                      
                      
                      
                      
                      <tr>
                        <td align="right" >Handicap </td>
                        <td> &nbsp;
						<input type="text" name="txthandicap<%=i%>" class="combobox1" VALUE="<%=request.form("txthandicap"&i)%>"></td>
                      </tr>
                      <tr>
                        <td width="40%" align="right" >Home Course </td>
                        <td width="60%"> &nbsp;
						<select name="txthomecourse<%=i%>" class="combobox1">
                            <option value="">Choose The Course</option>
                            <%
							  set Rs_Course = conSQL.execute("select * from courses order by name")
							  while Not Rs_Course.Eof
								response.Write("<option value="&Rs_Course("CourseID")&">"&Rs_Course("Name")&"</option>")
								Rs_Course.MoveNext
							  wend
							  %>
                        </select>                        </td>
                      </tr>
					  <%
					  If int(i)=int(nct) Then %>
                      <tr align="center" >
                        <td colspan="2" >
						                          <input type="hidden" name="tourname" value="<%=tourname%>">
						   <input type="hidden" name="TID" value=<%=TID%>>
 
                          <input type="submit" name="Submit" value="Submit" class="button1" onClick="return validate_all()">
                          <input type="reset" name="Submit2" value="Reset" class="button1">                        </td>
                      </tr>
					  <% End If %>
                    </table>
               <%
			   Next
			   %>
                  </td>
				</tr>
              </table>
            </td>
          </tr>
        </table>
        <br>
        <br>
      </form>    </td>
    <td width="1" valign="top" bgcolor="#285E8E"></td>
    <!--
    <td width="161" valign="top" bgcolor="#FFFFFF">
      <!--include file="../include/right.asp"
    </td> -->
 
 
  </tr>
  <tr>
    <td colspan="4">
      <!--#include file="../include/footer.asp"-->
    </td>
  </tr>
</table>
</body>
</html>

Open in new window

0
RickyGtz
Asked:
RickyGtz
  • 5
  • 3
1 Solution
 
saoirse1916Commented:
Didn't this question solve the session variable issue: http://www.experts-exchange.com/Web_Development/Web_Languages-Standards/ASP/Q_23841383.html

If you want to do the same thing with a database instead, you'll need to grab the unique ID of the record you just inserted using SELECT_SCOPE_IDENTITY() in SQL.  Then, on your next page you can use that ID to collect your data from your database:

Dim getInfoConn, getInfoCmd, arrInfo, rsGetInfo
Set getInfoConn = Server.CreateObject("ADODB.Connection")
getInfoConn.Open YOUR_CONNECTION_STRING_HERE
Set getInfoCmd = Server.CreateObject("ADODB.Command")
getInfoCmd.ActiveConnection = getInfoConn
getInfoCmd.CommandText = "SELECT whatever, information, you, want FROM yourTable WHERE idField = " & Session("UNIQUEIDFIELD")
getInfoCmd.CommandType = 1

' Save the data to a recordset, then to an array
Set rsGetInfo = getInfoCmd.Execute
If Not (rsGetInfo.BOF AND rsGetInfo.EOF) Then
     arrInfo = rsGetInfo.GetRows()
End If

' Close all objects
rsGetInfo.Close()
Set rsGetInfo = Nothing
Set getInfoCmd = Nothing
getInfoConn.Close()
Set getInfoConn = Nothing

Now you can use this array to auto-populate your form fields like so:
<input type="text" name="formName" id="formName" value="<%=arrInfo(0,0)%>">
<select name="formTeam" id="formTeam">
     <option value="1"<% If CStr(arrInfo(1,0)) = "1" Then %> selected="selected"><% End If %>>Team #1</option>
     <option value="2"<% If CStr(arrInfo(1,0)) = "2" Then %> selected="selected"><% End If %>>Team #1</option>
     <option value="3"<% If CStr(arrInfo(1,0)) = "3" Then %> selected="selected"><% End If %>>Team #1</option>


etc...
0
 
RickyGtzAuthor Commented:
This is what i have right now on pre-registration
' Member Registration
 
 
				
					
					' Session Variables To Use on Next Step
					session("S_txtteamname")= request.form("txtteamname")
					session("S_txtcontactname") = request.form("txtcontactname")
					session("S_txtteamemailid")= request.form("txtmainemailid")
					session("S_txtmaincontactno")=request.form("txtmaincontactno")
					session("S_txtmcount") = request.form("mcount")
					
					' Retrieving from the form 
					txtteamname=request.form("txtteamname")
					txtcontactname=request.form("txtcontactname")
					txtmaincontactno=request.form("txtmaincontactno")
					txtteamemailid=request.form("txtmainemailid")
					txtmcount=request.form("mcount")
					
		
					
conSQL.execute("Insert into Players(teamname,TeamMainContactName, TeamMainContactNo, TeamMainEmail,TeamTournamentMembers) values('"&txtteamname&"','"&txtcontactname&"','"&txtmaincontactno&"','"&txtteamemailid&"','"&txtmcount&"')")
 
end if%>

Open in new window

0
 
RickyGtzAuthor Commented:
And in Registration:
<!--#include file="../include/intialize.inc"-->
<!--include file="../include/connection.asp"-->
<!--#include file="../../Connections/sqlConn1.asp" -->
<!--#include file="../../Connections/sqlConn3.asp" -->
 
<!-- #include File="../include/logincheck.asp" -->
<%
If request.form("T_name")<>"" Then
tourname=request.form("T_name")
Else
tourname=request.form("tourname")
End If
 
 
'response.write "tourname--"& tourname
 
If request.form("T_Id")<>"" Then
	TID=request.form("T_Id")
Else
	TID=request.form("TID")
End If
 
' Member Registration
 
If (Request.Form("Submit")<>"") Then
 
dim cmd
set cmd = Server.CreateObject("AdoDB.Command")
set cmd.ActiveConnection = ConSQL
cmd.CommandText = "Select AvailableSpots From tblTournament WHERE TourID = "&TID&"  "
 
 if cmd.Execute().fields(0).Value > 0 then
 
  
 cmd.CommandText = "Update tblTournament set AvailableSpots = AvailableSpots-1 WHERE TourID = "&TID&"  "
 cmd.Execute
end if
					
 
		set rs_val = Server.Createobject("ADODB.Recordset")
		ccnt=0
		c=0
 
		sql_res_val="select max(TIID) from players"         'Team ID 
		rs_val.open sql_res_val,conSQL
		if rs_val(0)<>""  Then
			TIID=rs_val(0)+1
		Else
			TIID=1000
		End if
		
		session("r_mcount") = Request.Form("mcount")
		session("r_tourname") = Request.Form("tourname")
		session("r_txtcourseid") = Request.Form("txtcourseid")
		Session("session_teamname") = Request.Form("txtteamname")
		' get the teamname from previous form
	
 
 
		'do we need an user name also here ?
		'session("r_txtuname")=request.form("txtuname")
		For p=1 to request.form("mcount")
 
					session("r_txtfname"&p) = Request.Form("txtfname"&p)
					session("r_txtlname"&p) = Request.Form("txtlname"&p)
				
 
					response.write "tname :" & session("r_txtfname"&p)
 
					'txtteamname=request.form("txtteamname"&p)
					txtfname=request.form("txtfname"&p)
					txtlname=request.form("txtlname"&p)
					txtaddr1=request.form("txtaddr1"&p)
					txtaddr2=request.form("txtaddr2"&p)
					txtcity=request.form("txtcity"&p)
					txtstate=request.form("txtstate"&p)
					txtcourseid=request.form("txtcourseid"&p)
					txtpcode=request.form("txtpcode"&p)
					txtcontactno=request.form("txtcontactno"&p)
					txtemailid=request.form("txtemailid"&p)
					txtshirtsize=request.form("txtshirtsize"&p)
					txthandicap=request.form("txthandicap"&p)
					txthomecourse=request.form("txthomecourse"&p)
					txtball=request.form("txtball"&p)
					txtclub=request.form("txtclub"&p)
					
					regdate=date()
					regtime=time()
			
					response.Write("txtteamname")
					conSQL.execute("Insert into Players(firstname,lastname,addy1,addy2,city,state,Zip,phone,email,regdate,regtime,TourID,Shirtsize,Handicap,courseID,TIID,golfball,golfclub) values('"&txtfname&"', '"&txtlname&"','"&txtaddr1&"','"&txtaddr2&"','"&txtcity&"','"&txtstate&"','"&txtpcode&"','"&txtcontactno&"','"&txtemailid&"','"&regdate&"','"&regtime&"','"&TID&"','"&txtshirtsize&"','"&txthandicap&"',"&txthomecourse&","&TIID&",'"&txtball&"', '"&txtclub&"')")

Open in new window

0
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 
saoirse1916Commented:
Ok, so really it seems like you could go either way -- using the session variables that you've defined, or creating a recordset with the values that you just inserted into the Players table.  If you're going to do the latter, you'll have to amend your INSERT command:

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open ConSQL
Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn
cmd.CommandText = "SET NOCOUNT ON; Insert into Players(teamname,TeamMainContactName, TeamMainContactNo, TeamMainEmail,TeamTournamentMembers) values('"&txtteamname&"','"&txtcontactname&"','"&txtmaincontactno&"','"&txtteamemailid&"','"&txtmcount&"'); SELECT SCOPE_IDENTITY() as newPlayerID; SET NOCOUNT OFF;"
cmd.CommandType = 1

Set rsNewPlayer = cmd.Execute
varNewPlayerID = rsNewPlayer.Fields.Item("newPlayerID").Value

Then I'd say save that IDENTITY value to a Session variable like so:
Session("S_newplayerid") = varNewPlayerID

Now you can use that on your next page to create a recordset and populate the form fields from the database as I mentioned in the above post.
0
 
RickyGtzAuthor Commented:
I'll try that thanks a lot, one more question

Are you sure i can use
varNewPlayerID = rsNewPlayer.Fields.Item("newPlayerID").Value
on classic ASP, Visual basic
0
 
RickyGtzAuthor Commented:
What would be the way using session variables that i declared , do i need to use post and action="form2" ??
0
 
RickyGtzAuthor Commented:
What are the syntax i should use on the value= <%    %> to autopopultae this
0
 
saoirse1916Commented:
For your first question yes, that's the right way to write that in VBScript so you should have no problems there.  I'm not sure I understand your second question though.  As for how to use the value, the syntax is <%=varNewPlayerID%>, for example.  That's basically a shorthand Response.Write.
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

  • 5
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now