<%
msg=""
Action = Left(UCase(Request("validation")),5)
If Action = "VALID" Then
If Request("passe") = "" Then
msg="Veuillez saisir un mot de passe."
End If
If msg = "" Then
passwd=Request("passe")
fp_sQry = "select mot_de_passe from passe where mot_de_passe = '"& passwd &"'"
fp_sNoRecords = "Aucun enregistrement trouvé"
fp_iMaxRecords = 0
fp_iTimeout = 0
fp_iCurrent = 1
fp_fError = False
fp_bBlankField = False
If fp_iTimeout <> 0 Then Server.ScriptTimeout = fp_iTimeout
If Not fp_fError Then
On Error Resume Next
set fp_rs = CreateObject("ADODB.Recordset")
fp_rs.Open fp_sQry, "DSN=cdg82"
' Vérifie les cas sans enregistrement
If fp_rs.EOF And fp_rs.BOF Then
msg="Mode de passe incorrect."
Else
Response.Redirect("statut_etude/fonct_1.htm")
End If
fp_rs.Close
' Ferme la condition If de vérification d'erreur d'interprétation lors du remplacement de paramètres de champs de formulaire
End If
set fp_rs = Nothing
End If
End If
%>
Fonction publique territoriale - Saisie mot de passe
Fonction Publique Territoriale
Pour accéder au site donner un mot
de passe:
