Link to home
Start Free TrialLog in
Avatar of RickyGtz
RickyGtz

asked on

Insert multiple values on the same row 'id' in SQL

So what i want to do is have some values inserted from a previous form page into a sql database, and after an user clicks submitt insert new values on the same row (ID) but on different reamining fields which should be null before .
 
<%
	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" -->
<%
 
tourname = request.form("tourName")
TID=request.form("TID")
'mcount = session("r_mcount")
'response.Write "tourname--"& tourname 
'response.write "tour id is --" & TID
 
mcount = request.form("memcounter")
'response.write "MEMBER COUNT is --" & mcount
 
teamname = request.form("txtteamname")
 
' from pre register asp ------------------------------------
' insert the member who register their team or choosen leader data
	
txtmainfname= request.form("txtfname")
txtmainlname = request.form("txtlname")
txtmaincontactno = request.form("txtcontactno")
txtmaincontactemail = request.form("txtemailid")
 
		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
			TIID1=rs_val(0)+1
		Else
			TIID1=1000
		End if
 
dim cmd2
set cmd2 = Server.CreateObject("AdoDB.Command")
'dim cn
'set cn = Server.CreateObject("AdoDb.Connection")
'cn.connectionString = MyconnectionString
 
set cmd2.ActiveConnection = ConSQL
cmd2.CommandText = "insert into Players ( TIID, teamname, teammaincontactname, teammaincontactlastname, teammaincontactno, teammainemail,TeamTournamentMembers )  values ( '"&TIID1&"', '"&teamname&"','"&txtmainfname&"', '"&txtmainlname&"', '"&txtmaincontactno&"', '"&txtmaincontactemail&"','"&mcount&"')"
 
cmd2.Execute
		
'	end   --------------------------------------------------	
 
 
' 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
					
	' Keep the same id  
	
		TIID = TIID1
		
		'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")
		'mcount=session("r_memcounter")
		session("r_tourname") = Request.Form("tourname")
		session("r_teamname") = Request.Form("txtteamname")
		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("memcounter")
 
					session("r_txtfname"&p) = Request.Form("txtfname"&p)
					session("r_txtlname"&p) = Request.Form("txtlname"&p)
					session("r_txtteamname"&p) = Request.Form("txtteamname"&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()
						
										
			
					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&")")
					
					If Err.Number <> 0 Then
		Response.Write "Error: " & Err.Description
			    response.end
			Response.Write "Unable to Store your Information "
		response.end
		
		end if
 
					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>
 
 
 
</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="" >
        <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;Step 2</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">
				<%
				nct=request.form("memcounter")
				'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 width="40%" align="right" >Team Name</td>
         <td width="60%"> <%=teamname%>                  </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 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" 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 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

Avatar of Emad Gawai
Emad Gawai
Flag of United Arab Emirates image

INSERT INTO <tablename> (field1,field2,field3)
VALUES ('newly added to empTy row 1','i was here already','newly added now')
WHERE <ROW_ID> = request.form("id")
Avatar of RickyGtz
RickyGtz

ASKER

Did you look at the code at all , or thi is just a general way to do it
thats the general way to do
Did u try it?
i am completely lost , what is the syntaxis on myactuial code?
<%
	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" -->
<%
 
' Retrieving from the the previous form 
 
tourname = request.form("tourName")
TID=request.form("TID")
mcount= request.form("memcounter")
teamname= request.form("txtteamname")
txtmainfname= request.form("txtfname")
txtmainlname= request.form("txtlname")
txtmaincontactno= request.form("txtcontactno")
txtmaincontactemail= request.form("txtemailid")
 
	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
			TIID1=rs_val(0)+1
		Else
			TIID1=1000
		End if
conSQL.execute("Insert into Players ( TIID, teamname, teammaincontactname, teammaincontactlastname, teammaincontactno, teammainemail,TeamTournamentMembers )  values ( '"&TIID1&"', '"&teamname&"','"&txtmainfname&"', '"&txtmainlname&"', '"&txtmaincontactno&"', '"&txtmaincontactemail&"','"&mcount&"')")
 
		
'	end   --------------------------------------------------	
%>
<%
' 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
					
	' Keep the same id  for tournament 
	
		TIID = TIID1
		
		mcount = session("r_mcount") 
		'mcount=session("r_memcounter")
		session("r_tourname") = Request.Form("tourname")
		session("r_teamname") = Request.Form("txtteamname")
		session("r_txtcourseid") = Request.Form("txtcourseid")
		session("r_txttourid")= TID
		
		'do we need an user name also here ?
		'session("r_txtuname")=request.form("txtuname")
		For p=1 to mcount
 
					session("r_txtfname"&p) = Request.Form("txtfname"&p)
					session("r_txtlname"&p) = Request.Form("txtlname"&p)
					session("r_txtteamname"&p) = Request.Form("txtteamname"&p)
					response.write "tname :" & session("r_txtfname"&p)
					
					
					' Retrieve from this form????
					
					
					theteamname = session("r_teamname")			
					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()
												
			
					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('"&theteamname&"','"&txtfname&"', '"&txtlname&"','"&txtaddr1&"','"&txtaddr2&"','"&txtcity&"','"&txtstate&"','"&txtpcode&"','"&txtcontactno&"','"&txtemailid&"','"&regdate&"','"&regtime&"','"&TID&"','"&txtshirtsize&"','"&txthandicap&"',"&txthomecourse&","&TIID&",'"&txtball&"','"&txtclub&"')")
					
					If Err.Number <> 0 Then
		Response.Write "Error: " & Err.Description
			    response.end
			Response.Write "Unable to Store your Information "
		response.end
		
		end if
 
					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
 
                   
' codsys email code goes back in here ================================= note 
 
		            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
 
 
		' 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;
	}
}
</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>
 
 
 
</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="" >
        <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;Step 2</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">
				<%
				nct=request.form("memcounter")
				'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 width="40%" align="right" >Team Name</td>         <td width="60%"> <%=teamname%>                  </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;
   }" >                        </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;
   }" >                        </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" 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%>">                        </td>
                      </tr>
                      <tr>
 
                        <td align="right" >Email Address</td>
                        <td>&nbsp;	<input NAME="txtemailid<%=i%>" type="text" class="combobox1" id="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<%=i%>" id="txtball<%=i%>" 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<%=i%>">
                              <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")
							  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

i guess i missed something
the general way will be :

INSERT INTO <tablename> (field1,field2,field3)
VALUES ('newly added to empTy row 1','i was here already','newly added now')
WHERE <ROW_ID> = 1
lets say u want to insert data to field1 and field3 .....field2 already has data
such case...
INSERT INTO <tablename> (field1,field3)
VALUES ('new value for 1st colomn','new value for 3rd')
WHERE <ROW_ID> = 1

let me know
would be better if you point out the lines where and which datas u will insert in existing row... instead i read all the lines.
or just paste few lines here
Ok, here is the deal, the logic on this is that i am inserting on a incremental row say on 65 of sql database a previous collected data from a player. Now what i am looking to do is have other players enter their info, including the first one whom is the team leader and has entered some but not all information.

so ID 67   teamname name last name email etc  
in this same ID i want to add more data from the same player
and in the next the remaining playters

I am using the TeamId as a reference to also make tis group a set of the same TID



here i insert the first data for the team leader
' Retrieving from the the previous form 
 
tourname = request.form("tourName")
TID=request.form("TID")
mcount= request.form("memcounter")
teamname= request.form("txtteamname")
txtmainfname= request.form("txtfname")
txtmainlname= request.form("txtlname")
txtmaincontactno= request.form("txtcontactno")
txtmaincontactemail= request.form("txtemailid")
 
	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
			TIID1=rs_val(0)+1
		Else
			TIID1=1000
		End if
conSQL.execute("Insert into Players ( TIID, teamname, teammaincontactname, teammaincontactlastname, teammaincontactno, teammainemail,TeamTournamentMembers )  values ( '"&TIID1&"', '"&teamname&"','"&txtmainfname&"', '"&txtmainlname&"', '"&txtmaincontactno&"', '"&txtmaincontactemail&"','"&mcount&"')")
 
 
 
 
 
Here for the remaining ones, but also want to add things like adress , club used and so forth on the team leader
 
 
' Keep the same id  for tournament 
	
		TIID = TIID1
					
		session("r_mcount") = Request.Form("mcount")
		'mcount=session("r_memcounter")
		session("r_tourname") = Request.Form("tourname")
		session("r_teamname") = Request.Form("txtteamname")
		session("r_txtcourseid") = Request.Form("txtcourseid")
		session("r_txttourid")= TID
		
		'do we need an user name also here ?
		'session("r_txtuname")=request.form("txtuname")
		For p=1 to 5
 
					session("r_txtfname"&p) = Request.Form("txtfname"&p)
					session("r_txtlname"&p) = Request.Form("txtlname"&p)
					session("r_txtteamname"&p) = Request.Form("txtteamname"&p)
					response.write "tname :" & session("r_txtfname"&p)
					
					
					' Retrieve from this form????
					
					
								
					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()
												
			
					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&"')")
					
					If Err.Number <> 0 Then
		Response.Write "Error: " & Err.Description
			    response.end
			Response.Write "Unable to Store your Information "
		response.end
		
		end if

Open in new window

sorry for my previous post and late reply

u should not use INSERT, u need to use UPDATE instead

ASKER CERTIFIED SOLUTION
Avatar of Emad Gawai
Emad Gawai
Flag of United Arab Emirates image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
hello this is my progress so far, the code work for the most part but i still need has some bugs

Is inserting all input values from pre-form and form , but i want to insert on the same TIID number both the previous form and this form and the first one that fills up the form i want it to be on the same ID that the pre form, so :

player 1
ID  190 Name john  Last Name doe Phone 76786866   TIID 60  
on first insert

on second  i want to
player 1 ID 190 Name John ....... Adress ( new value )  Golf Ball (  )  Handicap  ( )  TIID 60
player 2 ID 191 Name Mark  -----------------                                                                 TIID 60
and so forth


pre- form 
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
 
'memcounter=request.form("memcounter")
'teamname= request.form("teamname"
 
' Member Registration
 
If (Request.Form("SubmitButton")<>"") Then
 
		session("r_memcounter") = Request.Form("memcounter")
		session("r_teamname") = Request.Form("txtteamname")
		session("r_tourname") = Request.Form("tourname")
		session("r_txtcourseid") = Request.Form("txtcourseid")
		session ("r_mainfname") = request.form("txtfname")
		session ("r_mainlname") = request.form("txtlname")
		session ("r_maincontactno") = request.form("txtcontactno")
		session("r_maincontactemail") = request.form("txtemailid")
		
		end if
 
   <input type="hidden" name="T_name" value="<%=T_name%>">
						   <input type="hidden" name="T_ID" value="<%=T_Id%>">
                                                                 

Open in new window

form
' Retrieving from the the previous form 
 
tourname = request.form("tourName")
TID=request.form("TID")
mcount= request.form("memcounter")
teamname= request.form("txtteamname")
txtmainfname= request.form("txtfname")
txtmainlname= request.form("txtlname")
txtmaincontactno= request.form("txtcontactno")
txtmaincontactemail= request.form("txtemailid")
 
	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
			TIID1=rs_val(0)+1
		Else
			TIID1=1000
		End if
conSQL.execute("Insert into Players ( TIID, teamname, teammaincontactname, teammaincontactlastname, teammaincontactno, teammainemail,TeamTournamentMembers )  values ( '"&TIID1&"', '"&teamname&"','"&txtmainfname&"', '"&txtmainlname&"', '"&txtmaincontactno&"', '"&txtmaincontactemail&"','"&mcount&"')")
 
		
'	end   --------------------------------------------------	
%>
<%
' 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
					
	' Keep the same id  for tournament 
	
		TIID = TIID1
					
		session("r_mcount") = Request.Form("mcount")
		'mcount=session("r_memcounter")
		session("r_tourname") = Request.Form("tourname")
		session("r_teamname") = Request.Form("txtteamname")
		session("r_txtcourseid") = Request.Form("txtcourseid")
		session("r_txttourid")= TID
		
		'do we need an user name also here ?
		'session("r_txtuname")=request.form("txtuname")
		For p=1 to 2
 
					session("r_txtfname"&p) = Request.Form("txtfname"&p)
					session("r_txtlname"&p) = Request.Form("txtlname"&p)
					session("r_txtteamname"&p) = Request.Form("txtteamname"&p)
					response.write "tname :" & session("r_txtfname"&p)
					
					
					' Retrieve from this form????
					
					
								
					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()
												
			
					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&"')")
					
					If Err.Number <> 0 Then
		Response.Write "Error: " & Err.Description
			    response.end
			Response.Write "Unable to Store your Information "
		response.end

Open in new window

as i said earlier, you need to use UPDATE statement to insert additional data to existing row.
can you post the table structure / colomn ?
yes:
table  name :
players

columns:
ssn
lastname
firstname
password
email
addy1
addy2
city
state
zip
phone
status
regdate
regtime
referenceno
verify
courseid
tourid
shirtsize
tiid
memberid
teamname
golball
golfclub
teammaincontactname
teammaincontactlastname
teammaincontactno
teammainemail
teamtournament members
teamleader  
yes:
table  name : 
players
 
columns: 
ssn
lastname
firstname
password
email
addy1
addy2
city
state
zip
phone
status
regdate
regtime
referenceno
verify
courseid
tourid
shirtsize
tiid
memberid
teamname
golball
golfclub
teammaincontactname
teammaincontactlastname
teammaincontactno
teammainemail
teamtournament members
teamleader   

Open in new window

tiid is to save TIID, where you are going to save player ID  in memberid colomn or some other colom ?
is memberid
player 1
ID  190 Name john  Last Name doe Phone 76786866   TIID 60  
on first insert
>> you will use INSERT

on second  i want to
player 1 ID 190 Name John ....... Adress ( new value )  Golf Ball (  )  Handicap  ( )  TIID 60
>> use UPDATE as i already gave u the code
player 2 ID 191 Name Mark  -----------------     TIID 60
>> use INSERT like first insert but for memberid u will insert same TIID

u will execute 3  different commands