RickyGtz
asked on
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
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&"','"®date&"','"®time&"','"&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 for Tournament </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>
<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%">
<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%">
<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%">
<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%">
<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%">
<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%">
<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%">
<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%">
<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> <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>
<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">
</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 & 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">
</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>
<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%">
<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>
ASKER
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%>
ASKER
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&"','"®date&"','"®time&"','"&TID&"','"&txtshirtsize&"','"&txthandicap&"',"&txthomecourse&","&TIID&",'"&txtball&"', '"&txtclub&"')")ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I'll try that thanks a lot, one more question
Are you sure i can use
varNewPlayerID = rsNewPlayer.Fields.Item("n
on classic ASP, Visual basic
Are you sure i can use
varNewPlayerID = rsNewPlayer.Fields.Item("n
on classic ASP, Visual basic
ASKER
What would be the way using session variables that i declared , do i need to use post and action="form2" ??
ASKER
What are the syntax i should use on the value= <% %> to autopopultae this
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.
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
getInfoConn.Open YOUR_CONNECTION_STRING_HER
Set getInfoCmd = Server.CreateObject("ADODB
getInfoCmd.ActiveConnectio
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...