
<!--#include file="../include/opendb.inc"-->
<!--#include file="../include/PurifyString.inc"-->
<%
dim SQLcha , SQLval, sDDN,sAges,form,code ,sDExp
SQLval = ""
SQLcha = ""
SQLUp = ""
'**************
form = Request.form("form")
'***************
Session("NomUAdmin")= RemoveJunk(Request.Form("NomU"))

Session("NomAdmin")= RemoveJunk(Request.Form("Nom"))
Session("PrenomAdmin")= RemoveJunk(Request.Form("Prenom"))
Session("AdresseAdmin")= RemoveJunk(Request.Form("Adresse"))
Session("RegionAdmin")= RemoveJunk(Request.Form("Region"))
Session("VilleAdmin")= RemoveJunk(Request.Form("Ville"))
Session("ProvinceAdmin")= RemoveJunk(Request.Form("Province"))
Session("CodePostalAdmin")= RemoveJunk(Request.Form("CodePostal"))
Session("telRAdmin")= RemoveJunk(Request.Form("telR"))
Session("TelTAdmin")= RemoveJunk(Request.Form("TelT")) 
Session("TelUAdmin")= RemoveJunk(Request.Form("TelU"))
Session("CellulaireAdmin")= RemoveJunk(Request.Form("Cellulaire"))
Session("EmailAdmin")= RemoveJunk(Request.Form("Email"))
Session("SexeAdmin")= Request.Form("Sexe")
'date Naissance***
Session("moisAdmin")= Request.Form("mois")
Session("jourAdmin")= Request.Form("jour")
Session("anneeAdmin")= Request.Form("annee")

'****************
Session("NoteGAdmin")= RemoveJunk(Request.Form("NoteG"))
Session("ProfessionAdmin")= RemoveJunk(Request.Form("Profession"))

'**********recuperer les valeurs******
SQLcha = SQLcha & " Nom , "
SQLval = SQLval & "'" & RemoveJunk(Request.Form("Nom")) & "' , "

SQLcha = SQLcha & " Prenom , "
SQLval = SQLval & "'" & RemoveJunk(Request.Form("Prenom")) & "' , "

SQLcha = SQLcha & " NomU , "
SQLval = SQLval & "'" & RemoveJunk(Request.Form("NomU")) & "' , "

SQLcha = SQLcha & " Password , "
SQLval = SQLval & "'" & RemoveJunk(Request.Form("Password")) & "' , "

SQLcha = SQLcha & " Statut , "
SQLval = SQLval & "'" & Request.Form("Statut") & "' , "

SQLcha = SQLcha & " Adresse , "
SQLval = SQLval & "'" & RemoveJunk(Request.Form("Adresse")) & "' , "

SQLcha = SQLcha & " Region , "
SQLval = SQLval & "'" & RemoveJunk(Request.Form("Region")) & "' , "

SQLcha = SQLcha & " Ville , "
SQLval = SQLval & "'" & RemoveJunk(Request.Form("Ville")) & "' , "

SQLcha = SQLcha & " Province , "
SQLval = SQLval & "'" & RemoveJunk(Request.Form("Province")) & "' , "

SQLcha = SQLcha & " CodePostal , "
SQLval = SQLval & "'" & RemoveJunk(Request.Form("CodePostal")) & "' , "

SQLcha = SQLcha & " telR , "
SQLval = SQLval & "'" & RemoveJunk(Request.Form("telR")) & "' , "

SQLcha = SQLcha & " TelT , "
SQLval = SQLval & "'" & RemoveJunk(Request.Form("TelT")) & "' , "

SQLcha = SQLcha & " TelU , "
SQLval = SQLval & "'" & RemoveJunk(Request.Form("TelU")) & "' , "

SQLcha = SQLcha & " Cellulaire , "
SQLval = SQLval & "'" & RemoveJunk(Request.Form("Cellulaire")) & "' , "

SQLcha = SQLcha & " Email , "
SQLval = SQLval & "'" & RemoveJunk(Request.Form("Email")) & "' , "

SQLcha = SQLcha & " Sexe , "
SQLval = SQLval & "'" & Request.Form("Sexe") & "' , "

if Request.Form("mois")<> "" and  Request.Form("jour") <> "" and  Request.Form("annee")<> "" then
sDDN = Request.Form("mois") & "/" & Request.Form("jour") & "/" & Request.Form("annee")
SQLcha = SQLcha & " DDN , "
SQLval = SQLval & "'" & sDDN & "' , "
end if

SQLcha = SQLcha & " NoteG , "
SQLval = SQLval & "'" & RemoveJunk(Request.Form("NoteG")) & "' , "

SQLcha = SQLcha & " Profession , "
SQLval = SQLval & "'" & RemoveJunk(Request.Form("Profession")) & "' , "

SQLcha = SQLcha & " DateM , "
SQLval = SQLval & "'" & Date() & "' , "

'********Personnes*********
if Request.Form("PersonneA") = 1 then 
PersonneA = 1
else
PersonneA = 0 
end if
SQLcha = SQLcha & " PersonneA , "
SQLval = SQLval & "'" & PersonneA & "' , "
if Request.Form("PersonneM") = 1 then 
PersonneM = 1
else
PersonneM = 0 
end if
SQLcha = SQLcha & " PersonneM , "
SQLval = SQLval & "'" & PersonneM & "' , "
if Request.Form("PersonneS") = 1 then 
PersonneS = 1
else
PersonneS = 0 
end if
SQLcha = SQLcha & " PersonneS , "
SQLval = SQLval & "'" & PersonneS & "' , "
if Request.Form("PersonneL") = 1 then 
PersonneL = 1
else
PersonneL = 0 
end if
SQLcha = SQLcha & " PersonneL , "
SQLval = SQLval & "'" & PersonneL & "' , "
'***************************
'******Activites***********
if Request.Form("ActiviteA") = 1 then 
ActiviteA = 1
else
ActiviteA = 0 
end if
SQLcha = SQLcha & " ActiviteA , "
SQLval = SQLval & "'" & ActiviteA & "' , "
if Request.Form("ActiviteM") = 1 then 
ActiviteM = 1
else
ActiviteM = 0 
end if
SQLcha = SQLcha & " ActiviteM , "
SQLval = SQLval & "'" & ActiviteM & "' , "
if Request.Form("ActiviteS") = 1 then 
ActiviteS = 1
else
ActiviteS = 0 
end if
SQLcha = SQLcha & " ActiviteS , "
SQLval = SQLval & "'" & ActiviteS & "' , "
if Request.Form("ActiviteL") = 1 then 
ActiviteL = 1
else
ActiviteL = 0 
end if
SQLcha = SQLcha & " ActiviteL , "
SQLval = SQLval & "'" & ActiviteL & "' , "
'***************************
'*****Inscription***********
if Request.Form("InscriptionA") = 1 then 
InscriptionA = 1
else
InscriptionA = 0 
end if
SQLcha = SQLcha & " InscriptionA , "
SQLval = SQLval & "'" & InscriptionA & "' , "
if Request.Form("InscriptionM") = 1 then 
InscriptionM = 1
else
InscriptionM = 0 
end if
SQLcha = SQLcha & " InscriptionM , "
SQLval = SQLval & "'" & InscriptionM & "' , "
if Request.Form("InscriptionS") = 1 then 
InscriptionS = 1
else
InscriptionS = 0 
end if
SQLcha = SQLcha & " InscriptionS , "
SQLval = SQLval & "'" & InscriptionS & "' , "
if Request.Form("InscriptionL") = 1 then 
InscriptionL = 1
else
InscriptionL = 0 
end if
SQLcha = SQLcha & " InscriptionL , "
SQLval = SQLval & "'" & InscriptionL & "' , "
'****************************
'*******Salle****************
if Request.Form("SalleA") = 1 then 
SalleA = 1
else
SalleA = 0 
end if
SQLcha = SQLcha & " SalleA , "
SQLval = SQLval & "'" & SalleA & "' , "
if Request.Form("SalleM") = 1 then 
SalleM = 1
else
SalleM = 0 
end if
SQLcha = SQLcha & " SalleM , "
SQLval = SQLval & "'" & SalleM & "' , "
if Request.Form("SalleS") = 1 then 
SalleS = 1
else
SalleS = 0 
end if
SQLcha = SQLcha & " SalleS , "
SQLval = SQLval & "'" & SalleS & "' , "
if Request.Form("SalleL") = 1 then 
SalleL = 1
else
SalleL = 0 
end if
SQLcha = SQLcha & " SalleL , "
SQLval = SQLval & "'" & SalleL & "' , "
'****************************
'*****Equipement*********
if Request.Form("EquipementA") = 1 then 
EquipementA = 1
else
EquipementA = 0 
end if
SQLcha = SQLcha & " EquipementA , "
SQLval = SQLval & "'" & EquipementA & "' , "
if Request.Form("EquipementM") = 1 then 
EquipementM = 1
else
EquipementM = 0 
end if
SQLcha = SQLcha & " EquipementM , "
SQLval = SQLval & "'" & EquipementM & "' , "
if Request.Form("EquipementS") = 1 then 
EquipementS = 1
else
EquipementS = 0 
end if
SQLcha = SQLcha & " EquipementS , "
SQLval = SQLval & "'" & EquipementS & "' , "
if Request.Form("EquipementL") = 1 then 
EquipementL = 1
else
EquipementL = 0 
end if
SQLcha = SQLcha & " EquipementL , "
SQLval = SQLval & "'" & EquipementL & "' , "
'*********************
'*****Organisation*****
if Request.Form("OrganisationA") = 1 then 
OrganisationA = 1
else
OrganisationA = 0 
end if
SQLcha = SQLcha & " OrganisationA , "
SQLval = SQLval & "'" & OrganisationA & "' , "
if Request.Form("OrganisationM") = 1 then 
OrganisationM = 1
else
OrganisationM = 0 
end if
SQLcha = SQLcha & " OrganisationM , "
SQLval = SQLval & "'" & OrganisationM & "' , "
if Request.Form("OrganisationS") = 1 then 
OrganisationS = 1
else
OrganisationS = 0 
end if
SQLcha = SQLcha & " OrganisationS , "
SQLval = SQLval & "'" & OrganisationS & "' , "
if Request.Form("OrganisationL") = 1 then 
OrganisationL = 1
else
OrganisationL = 0 
end if
SQLcha = SQLcha & " OrganisationL , "
SQLval = SQLval & "'" & OrganisationL & "' , "
'***************************
'*******Rapport************
if Request.Form("RapportA") = 1 then 
RapportA = 1
else
RapportA = 0 
end if
SQLcha = SQLcha & " RapportA , "
SQLval = SQLval & "'" & RapportA & "' , "
if Request.Form("RapportM") = 1 then 
RapportM = 1
else
RapportM = 0 
end if
SQLcha = SQLcha & " RapportM , "
SQLval = SQLval & "'" & RapportM & "' , "
if Request.Form("RapportS") = 1 then 
RapportS = 1
else
RapportS = 0 
end if
SQLcha = SQLcha & " RapportS , "
SQLval = SQLval & "'" & RapportS & "' , "
if Request.Form("RapportL") = 1 then 
RapportL = 1
else
RapportL = 0 
end if
SQLcha = SQLcha & " RapportL , "
SQLval = SQLval & "'" & RapportL & "' , "
'************************

'Response.Write SQLcha
'Response.Write SQLval
'*********SQL Insert***************
Sql="Insert into Admin ("& Left(SQLcha, Len(SQLcha) - 2)&") VALUES ("& Left(SQLval, Len(SQLval) - 2)&")" 
set rsQuery=conn.execute (SQL)
'**********************************
'*********recuperer le code de personne ********
strSql = "SELECT CodeAdmin from Admin where Nom = '" & RemoveJunk(Request.Form("Nom")) & "' and  Prenom = '" & RemoveJunk(Request.Form("Prenom")) & "'and Sexe = '" & Request.Form("Sexe") & "' and TelR = '" & RemoveJunk(Request.Form("telR")) & "'"
Set rsQuery = Conn.Execute(strSql)
If Not rsQuery.EOF Then
code = rsQuery("CodeAdmin")
end if

Response.Redirect ("RechercheAdmin.asp?CodeAdmin="& code &"")

%>