Solved

Fill a form quering the database

Posted on 2008-10-23
5
545 Views
Last Modified: 2008-10-28
I am seeking to auto fill a new form with previous information from another form. The thing is, I have to forms , one to register a person just as a member. And the second form is to register this same person and their friends as a team . So I want to get the session variables from the first form and then those values get retreived on the tournament signup form.
<%
' Member Registration 
 
 
	if 		(Request.Form("Submit")<>"") then
	
	
				txtcourseid=request.form("txtcourseid")
				txtmemberid=request.form("txtmemberid")
				session("S_txtfname")=request.form("txtfname")
				session("S_txtlname")=request.form("txtlname")
				session("S_txtaddr1")=request.form("txtaddr1")
				session("S_txtaddr2")=request.form("txtaddr2")
				session("S_txtcity")=request.form("txtcity")
				session("S_txtstate")=request.form("txtstate")
				
				' get the id of each course as parameter
				session("S_txtcourseid")=request.form("txtcourseid") 
				
				
				session("S_txtmemberid")=request.form("txtmemberid")
				session("S_txtpcode")=request.form("txtpcode")
				session("S_txtcontactno")=request.form("txtcontactno")
				session("S_txtemailid")=request.form("txtemailid")
				session("S_txtuname")=request.form("txtuname")
				session("S_txtpwd")=request.form("txtpwd")	
 
conSQL.execute("Insert into Players(SSN,[password],firstname,lastname,addy1,addy2,city,state,Zip,phone,email,regdate,regtime,referenceno,courseid,memberid) values('"&txtuname&"','"&txtpwd&"','"&txtfname&"','"&txtlname&"','"&txtaddr1&"','"&txtaddr2&"','"&txtcity&"','"&txtstate&"',"&txtpcode&","&txtcontactno&",'"&txtemailid&"','"&regdate&"','"&regtime&"',"&ReferenceNumber&","&txtcourseid&",'"&txtmemberid&"')")
	
 
 
	end if 
	    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''		
%>
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
form2.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
' Memeber 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"
		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")
 
		'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)
					'session("r_txtemailid"&p) = Request.Form("txtemailid"&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)
					regdate=date()
					regtime=time()
					'allemails = allemails &txtemailid
 
 
 
 
 
					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) values('"&txtteamname&"','"&txtfname&"', '"&txtlname&"','"&txtaddr1&"','"&txtaddr2&"','"&txtcity&"','"&txtstate&"','"&txtpcode&"','"&txtcontactno&"','"&txtemailid&"','"&regdate&"','"&regtime&"','"&TID&"','"&txtshirtsize&"','"&txthandicap&"',"&txthomecourse&","&TIID&")")
 
					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 
Open in New Window Select All

Open in new window

0
Comment
Question by:RickyGtz
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 8

Expert Comment

by:saoirse1916
ID: 22788198
Perhaps I'm not following you, but if all you want to do is populate form fields with session variables, all you need to do is this:

<input type="text" name="fname" id="fname" value="<%=Session("S_txtfname")%>">
<input type="text" name="lname" id="lname" value="<%=Session("S_txtlname")%>">
...etc.
0
 

Author Comment

by:RickyGtz
ID: 22788329
Yes I want to have some fields on a form automatically filled when a user logs in and sign up for a tournament. Also I want that if the first one type a given Team name the form automatically fill that out for the rest of the the team members.

 this is the whole registration 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
' Memeber 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"
		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)
					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) values('"&txtteamname&"','"&txtfname&"', '"&txtlname&"','"&txtaddr1&"','"&txtaddr2&"','"&txtcity&"','"&txtstate&"','"&txtpcode&"','"&txtcontactno&"','"&txtemailid&"','"&regdate&"','"&regtime&"','"&TID&"','"&txtshirtsize&"','"&txthandicap&"',"&txthomecourse&","&TIID&")")
 
					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
 
                        ' debuging to see if it is comming true
 
 
                      '  Response.Write "strEmailAddress = txtemailid? " & (strEmailAddress = txtemailid) & "<br>":  Response.Flush
 
                        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
 
                    'response.write("allemails")
 
 
                    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=='');
}
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>
 
 
<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;
}
//-->
</script>
 
 
 
</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%>" 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;
   }" value="<%=request.form("txtteamname"&i)%>"  ></td>
                      </tr>
                      <tr>
                        <td width="40%" align="right" >First Name</td>
                        <td width="60%"> &nbsp;
                          <input name="txtfname<%=i%>" type="text" class="txtbox1"  onKeyDown="
   if ( !isAlpha ( event ) ) {
      alert ( 'Please enter only letters on this field .' );
      return false;
   }" value=<%=request.form("txtteamname"&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 selected>--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" tabindex="5" 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%>" onBlur="MM_validateForm('txtcontactno<%=i%>','','NisNum');return document.MM_returnValue" 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 selected>--Choose a Size--</option>
						</select>                    </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")
							  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
 
LVL 8

Expert Comment

by:saoirse1916
ID: 22797688
Did you try calling the Session variables in the value="" part of the input tag?
0
 

Author Comment

by:RickyGtz
ID: 22797962
Basically what I want to do is to autofill Team Name and Home Course from the first form filled, on the other forms (same page).

I think it would be more clear if you go and take a look of it at:

http://www.playerscores.com/tournament/register.asp
0
 
LVL 8

Accepted Solution

by:
saoirse1916 earned 360 total points
ID: 22821446
Ok so if I'm understanding correctly, the easiest method would be to store the value of the fields as session variables -- then they can be used wherever you need.

On the processing page which looks to be succeedpayment.asp, save the values to session variables like this (I didn't see team name on the registration form, but you get the idea):

Session("session_courseid") = Request.Form("txtcourseid")
Session("session_teamname") = Request.Form("txtteamname")

On the following form, if you want to auto-populate the fields do so like this:

<input type="text" name="txtteamname" id="txtteamname" value="<%=Session("session_teamname")">

The select is a bit different -- you'll have to cycle through the recordset or array as you do on the previous page, but check to see if the session matches with the current course id (here, assuming your recordset is called rsCourses):

<select name="txtcourseid" id="txtcourseid">
     <% While Not rsCourses.EOF %>
          <option value="<%=rsCourses.Fields.Item("courseid").Value%>"<% If CStr(rsCourses.Fields.Item("courseid").Value) = CStr(Session("session_courseid")) Then %> selected="selected"<% End If %>><%=rsCourses.Fields.Item("coursename").Value%>
     <% rsCourses.MoveNext()
     Wend %>
</select>
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I recently decide that I needed a way to make my pages scream on the net.   While searching around how I can accomplish this I stumbled across a great article that stated "minimize the server requests." I got to thinking, hey, I use more than one…
Hello, all! I just recently started using Microsoft's IIS 7.5 within Windows 7, as I just downloaded and installed the 90 day trial of Windows 7. (Got to love Microsoft for allowing 90 days) The main reason for downloading and testing Windows 7 is t…
In this video we outline the Physical Segments view of NetCrunch network monitor. By following this brief how-to video, you will be able to learn how NetCrunch visualizes your network, how granular is the information collected, as well as where to f…
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …

726 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