<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<!--#include virtual="Connections/bulsca.asp" -->
<!--#include virtual="scriptlets/functions.asp" -->
<%Session.LCID = 2057;%>

<!--SECTION TO ADD ARRAY FRM ENTRY SPREADSHEETS-->


<%
champsID=15
clubID=79

var competitors= new Array();// array to hold all the competitorID
var solos= new Array();
var ropes=new Array();
var teams=new Array();


//to list arrays copied from Spreadsheet
competitors[1]=new Array(0,'TBC','TBC','1','Mi','01/01/1990');
solos[1]=new Array(1,21,'JM',3);
solos[2]=new Array(1,1,'JM',3);
solos[3]=new Array(1,2,'JM',3);
solos[4]=new Array(1,4,'JM',3);
solos[5]=new Array(1,30,'JM',3);
ropes[1]=new Array(1,1,21,'JM',3);
teams[1]=new Array('',1,1,1,1,22,'JM',3);
teams[2]=new Array('',1,1,1,1,9,'JM',3);
teams[3]=new Array('',1,1,1,1,8,'JM',3);


%>

<!--adds TeamMembers to System-->
<%


  for (var i=1;i<competitors.length;i++){
	  var addCompetitor=Server.CreateObject('ADODB.Command');
  addCompetitor.ActiveConnection=BULSCA_CON_STRING;
	addCompetitor.CommandText ="INSERT INTO CHAMPS_Competitors(RLSS_NUMBER,First_Name,Last_Name,DOB,Club_ID,CHAMPS_ID,Type,last_amended,amended_by,time_added,added_by) VALUES ("+String(competitors[i][3])+",'"+SQLinjectionStop(String(competitors[i][2]))+"','"+SQLinjectionStop(String(competitors[i][1]))+"','"+String(competitors[i][5])+" 00:00',"+clubID+","+champsID+",'"+String(competitors[i][4])+"',Date(),'"+String(Session("Username"))+"',Date(),'"+String(Session("Username"))+"')" ;
	addCompetitor.Execute();
	addCompetitor.ActiveConnection.Close();
	
	
	//adds competitors on-line ID to the array
	
  var getID = Server.CreateObject("ADODB.Recordset");
	getID.ActiveConnection = BULSCA_CON_STRING;
	getID.Source = "SELECT `competitor_ID` FROM  CHAMPS_Competitors  WHERE `RLSS_NUMBER` = "+competitors[i][3]+" AND `CHAMPS_ID` ="+champsID+" AND `CLUB_ID` ="+clubID+" ORDER BY competitor_ID DESC";
	getID.CursorType = 0;
	getID.CursorLocation = 2;
	getID.LockType = 1;
	getID.Open();
	competitors[i][0]=getID.Fields.Item("competitor_ID").Value;
	getID.Close();
		
  }

%>
Complete


<!--adds Solo Races to System-->
<%
for (var i=1;i<solos.length;i++){

// for the new team must create the master record first before puttign the swim tow time in
  var addEntry=Server.CreateObject('ADODB.Command');
  addEntry.ActiveConnection=BULSCA_CON_STRING;
  addEntry .CommandText ="INSERT INTO CHAMPS_SPEED_ENTRIES  (`EVENT_ID`,`SEX`, `CHAMPS_ID`, `Club_ID`,`time_added`,`added_by` ) VALUES  ("+solos[i][1]+",'"+solos[i][2]+"',"+String(champsID)+","+String(clubID)+",Date(),'"+String(Session("Username"))+"')";
  addEntry.Execute();
  addEntry.ActiveConnection.Close();
  var getID = Server.CreateObject("ADODB.Recordset");
	getID.ActiveConnection = BULSCA_CON_STRING;
	getID.Source = "SELECT `ENTRY_ID` FROM  CHAMPS_SPEED_ENTRIES  WHERE `EVENT_ID` = "+solos[i][1]+" AND `CHAMPS_ID` ="+champsID+" AND `CLUB_ID` ="+clubID+" ORDER BY ENTRY_ID DESC";
	getID.CursorType = 0;
	getID.CursorLocation = 2;
	getID.LockType = 1;
	getID.Open();
	entryID=getID.Fields.Item("ENTRY_ID").Value;
	getID.Close();

var teamDetails = Server.CreateObject('ADODB.Command');
  teamDetails .ActiveConnection = BULSCA_CON_STRING;
  var entryTime=solos[i][3]
  teamDetails .CommandText ="insert into CHAMPS_ENTRIES_DETAILS_1(`ENTRY_ID`,`Type`, `Competitor_ID_1`, `ENTRY_TIME`, `time_added`,`added_by`) values ("+entryID+",'S',"+competitors[solos[i][0]][0]+","+entryTime+",Date(),'"+String(Session("Username"))+"')" ;
  teamDetails .Execute();
  teamDetails .ActiveConnection.Close(); 
  }
  

  %>
  
  
<!--adds Rope Races to System-->
<%for (var i=1;i<ropes.length;i++){

var addEntry=Server.CreateObject('ADODB.Command');
  addEntry.ActiveConnection=BULSCA_CON_STRING;
  addEntry .CommandText ="INSERT INTO CHAMPS_SPEED_ENTRIES  (`EVENT_ID`,`SEX`, `CHAMPS_ID`, `Club_ID`,`time_added`,`added_by` ) VALUES  ("+ropes[i][2]+",'"+ropes[i][3]+"',"+String(champsID)+","+String(clubID)+",Date(),'"+String(Session("Username"))+"')";
  addEntry.Execute();
  addEntry.ActiveConnection.Close();
  var getID = Server.CreateObject("ADODB.Recordset");
	getID.ActiveConnection = BULSCA_CON_STRING;
	getID.Source = "SELECT `ENTRY_ID` FROM  CHAMPS_SPEED_ENTRIES  WHERE `EVENT_ID` = "+ropes[i][2]+" AND `CHAMPS_ID` ="+champsID+" AND `CLUB_ID` ="+clubID+" ORDER BY ENTRY_ID DESC";
	getID.CursorType = 0;
	getID.CursorLocation = 2;
	getID.LockType = 1;
	getID.Open();
	entryID=getID.Fields.Item("ENTRY_ID").Value;
	getID.Close();

var teamDetails = Server.CreateObject('ADODB.Command');
  teamDetails .ActiveConnection = BULSCA_CON_STRING;
  var entryTime=ropes[i][4]
  teamDetails .CommandText ="insert into CHAMPS_ENTRIES_DETAILS_2(`ENTRY_ID`,`Type`, `Competitor_ID_1`, `Competitor_ID_2`, `ENTRY_TIME`, `time_added`,`added_by`) values ("+entryID+",'S',"+competitors[ropes[i][0]][0]+","+competitors[ropes[i][1]][0]+","+entryTime+",Date(),'"+String(Session("Username"))+"')" ;
  teamDetails .Execute();
  teamDetails .ActiveConnection.Close();
}
%>


<!--adds Team Races to System-->
<%for (var i=1;i<teams.length;i++){


  var addEntry=Server.CreateObject('ADODB.Command');
  addEntry.ActiveConnection=BULSCA_CON_STRING;
  addEntry .CommandText ="INSERT INTO CHAMPS_SPEED_ENTRIES  (`EVENT_ID`,`SEX`, `CHAMPS_ID`, `Club_ID`,`time_added`,`added_by` ) VALUES  ("+teams[i][5]+",'"+String(teams[i][6])+"',"+String(champsID)+","+String(clubID)+",Date(),'"+String(Session("Username"))+"')";
  addEntry.Execute();
  addEntry.ActiveConnection.Close();
  var getID = Server.CreateObject("ADODB.Recordset");
	getID.ActiveConnection = BULSCA_CON_STRING;
	getID.Source = "SELECT `ENTRY_ID` FROM  CHAMPS_SPEED_ENTRIES  WHERE `EVENT_ID` = "+teams[i][5]+" AND `CHAMPS_ID` ="+champsID+" AND `CLUB_ID` ="+clubID+" ORDER BY ENTRY_ID DESC";
	getID.CursorType = 0;
	getID.CursorLocation = 2;
	getID.LockType = 1;
	getID.Open();
	entryID=getID.Fields.Item("ENTRY_ID").Value;
	getID.Close();

var teamDetails = Server.CreateObject('ADODB.Command');
  teamDetails .ActiveConnection = BULSCA_CON_STRING;
  var entryTime=teams[i][7]
  teamDetails .CommandText ="insert into CHAMPS_ENTRIES_DETAILS_4(`ENTRY_ID`,`Type`, `Competitor_ID_1`, `Competitor_ID_2`, `Competitor_ID_3`, `Competitor_ID_4`, `ENTRY_TIME`, `time_added`,`added_by`) values ("+entryID+",'S',"+competitors[teams[i][1]][0]+","+competitors[teams[i][2]][0]+","+competitors[teams[i][3]][0]+","+competitors[teams[i][4]][0]+","+entryTime+",Date(),'"+String(Session("Username"))+"')" ;
  teamDetails .Execute();
  teamDetails .ActiveConnection.Close();

if(teams[i][0]!=0){
//code to submitt team name if one providded to optimise space as not saving it when not required.

var teamName = Server.CreateObject('ADODB.Command');
  teamName .ActiveConnection = BULSCA_CON_STRING;
  teamName .CommandText ="INSERT INTO CHAMPS_TEAMNAMES ( Entry_ID_4, Description ) SELECT CHAMPS_ENTRIES_DETAILS_4.ENTRIES_DETAILS_4_ID,' "+teams[i][0]+"' AS Expr1 FROM CHAMPS_ENTRIES_DETAILS_4 WHERE (((CHAMPS_ENTRIES_DETAILS_4.ENTRIES_DETAILS_4_ID)=(SELECT Max(CHAMPS_ENTRIES_DETAILS_4.ENTRIES_DETAILS_4_ID) AS MaxOfENTRIES_DETAILS_4_ID FROM  CHAMPS_ENTRIES_DETAILS_4 GROUP BY CHAMPS_ENTRIES_DETAILS_4.ENTRY_ID HAVING (((CHAMPS_ENTRIES_DETAILS_4.ENTRY_ID)="+entryID+")))));";
  teamName .Execute();
  teamName .ActiveConnection.Close();
}

}%>