merci pour aide ;)
voici le code le page acces:
<%Response.Buffer=True
' *** Nécessaire pour la redirection
Dim SQL,ok
'Dim n, resulBD
if session("niveau")="1" then
response.redirect "accesSaisieAnnuaire_autorise.asp"
elseif session("niveau")="2" then
response.redirect "accesSaisieAnnuaire_interdit.asp"
else
ici ensuiite je gere les differents bug de saisie et la mise en forme de ma page
<input type="reset" value="Annuler" name="B1">
<input type="submit" name="Action" value="OK">
</font></div>
</td>
</tr>
</table>
<p>
<a href=
"accueil.asp"><font color="#336699">Accueil</font></a>
</form>
<%
select case request("Action")
case "OK"
response.redirect "traitement_accesSaisieAnnuaire.asp"
end select
le code de la page traittement :
<!--#include file="connexion.asp"-->
<%Response.Buffer=True
' *** Nécessaire pour la redirection
' Si le login est vide (n'existe pas ou plus dans la base), forcer un retour vers la demande de login
if session("login")="" then Response.Redirect "accesSaisieAnnuaire.asp" end if%>
<html>
<head>
<meta http-equiv=
"Content-Type" content="text/html; charset=windows-1252">
<meta name=
"GENERATOR" content="Microsoft FrontPage 4.0">
<meta name=
"ProgId" content="FrontPage.Editor.Document">
<title>
traitement_accesSaisieAnnuaire</title></head>
<body>
<form method="POST" action="../Annuaire/traitement_accesSaisieAnnuaire.asp">
<%' Vérifier que l'utilisateur figure dans la base
' Création de l'objet permettant la connexion
'Set conn = Server.CreateObject("ADODB.Connection")
' Connexion
'conn.open "dsn=PRISK;uid=PRISK_DEV;pwd=PRISK"
'Création du recordset
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "select * from ADMIN where (LOGIN='" _
& session("login") & "' and PASSWORD='" & session("motdepasse") & "')"
RS.open SQL,conn,3,3
ok=false
if not RS.eof then
' Nécessaire car SQL ne distingue pas la casse des caractères
if RS("PASSWORD")=session("motdepasse") then ok=true
end if
if ok then
session("nom") = RS("NOM")
session("prenom") = RS("PRENOM")
session("site") = RS("SITE")
'session("batiment") = RS("BATIMENT")
session("niveau")=RS("NIVEAU")
nbr_conn = cint(RS("CONNEXIONS"))+1
session("connexions") = nbr_conn
set requ = conn.execute ("update ADMIN set CONNEXIONS = "&nbr_conn&" where LOGIN = '"& session("login")&"' ")
response.redirect "accesSaisieAnnuaire_autorise.asp"%>
<%else%>
<%response.redirect "accesSaisieAnnuaire_interdit.asp"%>
<%end if
' Déconnexion
'on vide le recordset
set RS=nothing
'on ferme
conn.close
'et on vide la connection
Set conn = nothing
%>
voila si tu as une idée...merci encore