<!--#include file="DB/connexion.asp"-->	
<!--#include file="Utils/IIF.asp"-->
<%	
' Activer la gestion des erreurs		  
'On Error Resume Next
						   
' Obtenir l'opération à effectuer
Op = Request("Op")	
   			 
' Récupérer l'identifiant (utilisé pour une mise à jour)
Id = Request("IdMembre")

' Ouvrir la table (en fonction de l'opération)
If (Op = "Add") Then   
	Set RS_Membres = Server.CreateObject("ADODB.Recordset")
	RS_Membres.Open "T_Sel_Membre", objConn, 1, 3, 2 
	
	Set RS_UID = objConn.Execute("SELECT Count(IdMembre) As Cpt FROM T_Sel_Membre WHERE (UID = '" & Replace(Request("UID"), "'", "''") & "')")
	
	If (RS_UID("Cpt") > 0) Then
		
		' Effectuer la redirection
		Response.Redirect("sinscrire.asp?Msg=UID_EXIST")
		Response.End	 
	
	End If	
	
	RS_UID.Close
	Set RS_UID = Nothing
	  
Else 		  
	Requete = "SELECT * FROM T_Sel_Membre WHERE (IdMembre = " & Id & ")"
	
	Set RS_Membres = Server.CreateObject("ADODB.Recordset")
	RS_Membres.Open Requete, objConn, 1, 3, 1
End If
				  

' Activer la transaction
objConn.BeginTrans	  

' Initialiser avec le message d'erreur
Msg = "ERR_UNK"

If (Op = "Add") Then
	' Initialiser avec le message d'erreur d'ajout
	Msg = "ADD_NOT_OK"

	RS_Membres.Addnew
Else		
	' Initialiser avec la message d'erreur de modification  
	Msg = "MOD_NOT_OK"	
End If		
	
' *** Ajout / Mise à jour des informations ***			   
RS_Membres("Nom")		= Request("Nom")	  
RS_Membres("Prenom")	= Request("Prenom")	
RS_Membres("Adresse")	= Request("Adresse")	
RS_Membres("IdVille")		= Request("IdVille")	
RS_Membres("IdRegion")	= Request("IdRegion")	
RS_Membres("Province")	= Request("Province")	
RS_Membres("Pays")		= Request("Pays")	
RS_Membres("Courriel")	= Request("Courriel")	
RS_Membres("Telephone")	= Request("Telephone")	 
RS_Membres("Cellulaire")= Request("Cellulaire")
RS_Membres("UID")		= Request("UID")
RS_Membres("PWD")		= Request("PWD")  
RS_Membres("DtInscr")		= Date()  
RS_Membres("Statut") 	= "En Traitement"
RS_Membres("Suppr")		= 0
' ***       Fin ajout / mise à jour       ***  

RS_Membres.Update	

RS_Membres.Close
Set RS_Membres = Nothing
					
' Obtenir l'identifiant du membre
Set RS_Id = objConn.Execute("SELECT @@IDENTITY AS LastID FROM T_Sel_Membre")
Id = RS_Id("LastID")
RS_Id.Close
Set RS_Id = Nothing	  
							  
' Ajouter les tâches au membre
Set RS_Tache = Server.CreateObject("ADODB.Recordset")
RS_Tache.Open "T_TacheMembre", objConn, 1, 3, 2 	
					 
For i = 1 To 10		  
	If (Request.Form("IdTache" & i) <> "-1") Then
		RS_Tache.AddNew
		
		' *** Ajout / Mise à jour des informations ***			   
		RS_Tache("IdTache")		= Request.Form("IdTache" & i)	   
		RS_Tache("IdMembre")	= Id	
		RS_Tache("Annees")		= 0	
		RS_Tache("Suppr")		= 0
		' ***       Fin ajout / mise à jour       ***  
		
		RS_Tache.Update	
	End If
Next

RS_Tache.Close
Set RS_Tache = Nothing
			   
' Ajouter les tâches spécifiques
If (Request("ATache") <> "") Then
	Set RS_TacheT = Server.CreateObject("ADODB.Recordset")
	RS_TacheT.Open "T_TacheTemp", objConn, 1, 3, 2 	

	RS_TacheT.Addnew

	' *** Ajout / Mise à jour des informations ***	
	RS_TacheT("IdMembre")	= Id		   
	RS_TacheT("TacheT")		= Request.Form("ATache")	  
	RS_TacheT("Suppr")		= 0
	' ***       Fin ajout / mise à jour       ***  

	RS_TacheT.Update	
	
	RS_TacheT.Close
	Set RS_TacheT = Nothing
End If
 
' Ajouter les informations complémentaires 
Set RS_Info = Server.CreateObject("ADODB.Recordset")
RS_Info.Open "T_Sel_Info", objConn, 1, 3, 2 	

RS_Info.AddNew	 
		 
' *** Ajout / Mise à jour des informations ***	
RS_Info("IdMembre")						= Id	
RS_Info("AutreMbrFamille")				= Request("AutreMbrFamille")
RS_Info("ServiceRech")					= Request("SrvRech")
RS_Info("IdSource")						= Request("IdSource")
RS_Info("AutreSourceNom")				= Request("AutreSourceNom")
RS_Info("AutreSourcePrecision")			= Request("AutreSourcePrecision")
RS_Info("Regroupe")						= IIF(Request("Regroupe") = "1", 1, 0)
RS_Info("ActInformelle")				= IIF(Request("ActInformelle") = "1", 1, 0)
RS_Info("ConfRegle")					= IIF(Request("ConfRegle") = "1", 1, 0)	   
RS_Info("NomPrenomTut")					= Request("NomPrenomTut")
RS_Info("TelTut")						= Request("TelTut")
' ***       Fin ajout / mise à jour       ***  

RS_Info.Update

RS_Info.Close
Set RS_Info = Nothing
					  
' Ajouter les disponibilités	 				 
Set RS_Dispo = Server.CreateObject("ADODB.Recordset")
RS_Dispo.Open "T_Sel_Dispo", objConn, 1, 3, 2 	

RS_Dispo.AddNew	 		 

' *** Ajout / Mise à jour des informations ***	
RS_Dispo("IdMembre")					= Id	
RS_Dispo("Appel")						= IIF(Request("Appel") = "1", 1, 0)
RS_Dispo("Jour")						= IIF(Request("Jour") = "1", 1, 0)
RS_Dispo("Soir")						= IIF(Request("Soir") = "1", 1, 0)
RS_Dispo("Semaine")						= IIF(Request("Semaine") = "1", 1, 0)
RS_Dispo("FSemaine")					= IIF(Request("FSemaine") = "1", 1, 0)
RS_Dispo("AM")							= IIF(Request("AM") = "1", 1, 0)
RS_Dispo("PM")							= IIF(Request("PM") = "1", 1, 0)  
' ***       Fin ajout / mise à jour       ***  

RS_Dispo.Update

RS_Dispo.Close
Set RS_Dispo = Nothing

' Ajouter les références	 
Set RS_Reference = Server.CreateObject("ADODB.Recordset")
RS_Reference.Open "T_Sel_Reference", objConn, 1, 3, 2 	

RS_Reference.AddNew	 		 

' *** Ajout / Mise à jour des informations ***	
RS_Reference("IdMembre")				= Id		 
RS_Reference("NomPrenom")				= Request("NomPrenom1")
RS_Reference("Lien")					= Request("Lien1")
RS_Reference("Tel")						= Request("Tel1")
' ***       Fin ajout / mise à jour       ***  

RS_Reference.Update	   
					 
RS_Reference.MoveLast

RS_Reference.AddNew	

' *** Ajout / Mise à jour des informations ***	
RS_Reference("IdMembre")				= Id		 
RS_Reference("NomPrenom")				= Request("NomPrenom2")
RS_Reference("Lien")					= Request("Lien2")
RS_Reference("Tel")						= Request("Tel2")
' ***       Fin ajout / mise à jour       ***  

RS_Reference.Update	   			 

RS_Reference.Close
Set RS_Reference = Nothing

' Vérifier s'il y a erreur				
If Err.Number <> 0 Then	
	objConn.RollbackTrans		' Annuler la transaction	
Else			  
	objConn.CommitTrans			' Activer la transaction	
				
	' Modifier le message pour une opération réussie
	If (Op = "Add") Then
		Msg = "ADD_OK"
	Else
		Msg = "MOD_OK"
	End If	  
End If	
				 
' Construire la liste des paramètres
strParam = "&Nom=" & Request("Nom") & _	  
			"&Prenom=" & Request("Prenom") & _	
			"&Adresse=" & Request("Adresse") & _	
			"&IdVille=" & Request("IdVille") & _	
			"&IdRegion=" & Request("IdRegion") & _	
			"&Province=" & Request("Province") & _	
			"&Pays=" & Request("Pays") & _	
			"&Courriel=" & Request("Courriel") & _	
			"&Telephone=" & Request("Telephone") & _	 
			"&Cellulaire=" & Request("Cellulaire") & _
			"&UID=" & Request("UID") & _
			"&PWD=" & Request("PWD") & _
			"&IdTache1=" & Request("IdTache1") & _
			"&IdTache2=" & Request("IdTache2") & _
			"&IdTache3=" & Request("IdTache3") & _
			"&IdTache4=" & Request("IdTache4") & _
			"&IdTache5=" & Request("IdTache5") & _
			"&IdTache6=" & Request("IdTache6") & _
			"&IdTache7=" & Request("IdTache7") & _
			"&IdTache8=" & Request("IdTache8") & _
			"&IdTache9=" & Request("IdTache9") & _
			"&IdTache10=" & Request("IdTache10") & _
			"&ATache=" & Request("ATache") & _	   
			"&AutreMbrFamille=" & Request("AutreMbrFamille") & _
			"&SrvRech=" & Request("SrvRech") & _
			"&IdSource=" & Request("IdSource") & _
			"&AutreSourceNom=" & Request("AutreSourceNom") & _
			"&AutreSourcePrecision=" & Request("AutreSourcePrecision") & _
			"&Regroupe=" & Request("Regroupe") & _
			"&ActInformelle=" & Request("ActInformelle") & _
			"&AssResp=" & Request("AssResp") & _
			"&NomPrenomTut=" & Request("NomPrenomTut") & _
			"&TelTut=" & Request("TelTut") & _
			"&ConfRegle=" & Request("ConfRegle") & _
			"&Appel=" & Request("Appel") & _
			"&Jour=" & Request("Jour") & _
			"&Soir=" & Request("Soir") & _
			"&Semaine=" & Request("Semaine") & _
			"&FSemaine=" & Request("FSemaine") & _
			"&AM=" & Request("AM") & _
			"&PM=" & Request("PM") & _
			"&NomPrenom1=" & Request("NomPrenom1") & _
			"&Lien1=" & Request("Lien1") & _
			"&Tel1=" & Request("Tel1") & _
			"&NomPrenom2=" & Request("NomPrenom2") & _
			"&Lien2=" & Request("Lien2") & _
			"&Tel2=" & Request("Tel2")

' Effectuer la redirection
Response.Redirect("sinscrire5.asp?Msg=" & Msg & strParam)
Response.End  
%>
<!--#include file="DB/deconnexion.asp"-->