|
<% dim strErrorLink
strErrorLink=Request.QueryString("Redirect")
%>
<%
dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConn
strSQL = "SELECT * FROM Login WHERE LoginName = '" & Request.form("txtLoginName") & "' "
Set adoRS = adoCn.Execute(strSQL)
Do While Not adoRs.EOF
If (Lcase(Request.Form("txtActivateCode")) = Lcase(adoRS("ActivateCode")) AND Lcase(Request.Form("txtEmail")) = Lcase(adoRS("Email"))) And (Lcase(Request.Form("txtLoginName")) = Lcase(adoRS("LoginName")) AND Lcase(Request.Form("txtChoosePassword")) = Lcase(adoRS("ChoosePassword"))) Then
Session("StrMessage") = "Votre compte n'est pas actif, veuillez vous identifier."
Dim strYesActive
strYesActive="Yes"
strSQL = "Update Login set Active='" & strYesActive&_
"' where LoginID = " & adoRS("LoginID")
adoCn.Execute strSQL
Response.redirect("Login.asp")
Else
Session("StrMessageActive") ="Les informations ne sont pas correctes. Essayez à nouveau." Response.redirect("activer.asp") End If adoRS.MoveNext Loop Session("StrMessageActive") ="Veuillez renseigner tous les champs" OnError response.Redirect ("activer.asp") adoRS.Close adoCn.Close set adoCn = Nothing %> |
|