<%@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=45

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,'Sowry','Aimee','1','Mi','01/01/1950');
competitors[2]=new Array(0,'Bunn','Izzy','1','Mi','01/01/1950');
competitors[3]=new Array(0,'Samson','Dominic','1','Mi','01/01/1950');
competitors[4]=new Array(0,'Ratcliffe','Nathan','1','Mi','01/01/1950');
competitors[5]=new Array(0,'Bunn','Jess','1','Mi','01/01/1950');
competitors[6]=new Array(0,'Anderton','Megan','1','Mi','01/01/1950');
competitors[7]=new Array(0,'Fisher','Katy','1','Mi','01/01/1950');
competitors[8]=new Array(0,'TBC','TBC','1','Mi','01/01/1950');
competitors[9]=new Array(0,'TBC','TBC','1','Mi','01/01/1950');
solos[1]=new Array(1,1,'NT',86400);
solos[2]=new Array(1,2,'NT',86400);
solos[3]=new Array(2,1,'NT',86400);
solos[4]=new Array(2,2,'NT',86400);
solos[5]=new Array(2,4,'NT',86400);
solos[6]=new Array(3,4,'NT',86400);
solos[7]=new Array(4,2,'NT',86400);
solos[8]=new Array(5,1,'NT',86400);
solos[9]=new Array(5,2,'NT',86400);
solos[10]=new Array(6,21,'NT',86400);
solos[11]=new Array(6,2,'NT',86400);
solos[12]=new Array(7,21,'NT',86400);
solos[13]=new Array(7,1,'NT',86400);
solos[14]=new Array(7,2,'NT',86400);
solos[15]=new Array(7,4,'NT',86400);
solos[16]=new Array(8,21,'JM',13);
solos[17]=new Array(8,1,'JM',13);
solos[18]=new Array(8,2,'JM',13);
solos[19]=new Array(8,4,'JM',13);
solos[20]=new Array(8,30,'JM',13);
solos[21]=new Array(9,21,'Mi',3);
solos[22]=new Array(9,1,'Mi',3);
solos[23]=new Array(9,2,'Mi',3);
solos[24]=new Array(9,4,'Mi',3);
solos[25]=new Array(9,30,'Mi',30);
ropes[1]=new Array(6,6,21,'NT',86400);
ropes[2]=new Array(7,7,21,'NT',86400);
ropes[3]=new Array(8,8,21,'JM',3);
ropes[4]=new Array(9,9,21,'Mi',3);
teams[1]=new Array('',8,8,8,8,22,'JM',13);
teams[2]=new Array('',8,8,8,8,10,'JM',13);
teams[3]=new Array('',8,8,8,8,8,'JM',13);
teams[4]=new Array('',9,9,9,9,22,'Mi',3);
teams[5]=new Array('',9,9,9,9,10,'Mi',3);
teams[6]=new Array('',9,9,9,9,8,'Mi',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();
}

}%>