C_TEXT($0;$1)
ARRAY TEXT($arr_noms;0)
ARRAY TEXT($arr_valeurs;0)
WEB GET VARIABLES($arr_noms;$arr_valeurs)

C_TEXT(loginError)
C_LONGINT($position)
$position:=Find in array($arr_noms;"email")

If ($position>0)
	C_TEXT($email_value)
	$email_value:=$arr_valeurs{$position}
	$position:=Find in array($arr_noms;"password")

	If ($position>0)
		C_TEXT($password_value)
		C_LONGINT($positionPassword)
		$positionPassword:=Find in array($arr_noms;"password")
		$password_value:=$arr_valeurs{$positionPassword}
		$password_value:=Generate digest($password_value;SHA1 digest)
		QUERY([USERS];[USERS]email_adress=$email_value)
		  //QUERY([USERS]; & ;[USERS]Password_md5=$password_value)

		If (Records in selection([USERS])=1)
			If ([USERS]Password_md5="")
				READ WRITE([USERS])
				LOAD RECORD([USERS])
				If (Locked([USERS]))
					WEB SEND HTTP REDIRECT("/login.shtml")
				Else
					[USERS]Password_md5:=$password_value
					utilisateurConnecte:=[USERS]ID
					nomUtilisateur:=[USERS]Fistname+" "+[USERS]Lastname
					SAVE RECORD([USERS])
					READ ONLY([USERS])
					LOAD RECORD([USERS])
					WEB SEND HTTP REDIRECT("/myTaches.shtml")
				End if
			Else
				If ([USERS]Password_md5=$password_value)
					utilisateurConnecte:=[USERS]ID
					nomUtilisateur:=[USERS]Fistname+" "+[USERS]Lastname
					WEB SEND HTTP REDIRECT("/myTaches.shtml")
				Else
					WEB SEND HTTP REDIRECT("/login.shtml")
				End if
			End if
		Else
			loginError:="Utilisateur inconnu"
			WEB SEND HTTP REDIRECT("/login.shtml")
		End if
	Else
		WEB SEND HTTP REDIRECT("/login.shtml")
	End if
Else
	WEB SEND HTTP REDIRECT("/login.shtml")
End if