Voila bon j'explique je suis débutant en ASP
J'ai cré un formulaire pour entrer des utilisateurs tout allé bien jusqu'au moment ou je me suis dit qu'il fallait éviter que deux utilisateurs ait le meme login ...
depuis g le message d'erreur:
erreur 'ASP 0115'
Erreur inattendue
/confirmerproj.asp
Une erreur interceptable s'est produite dans un objet externe. L'exécution du script est interrompue.
Je supose que c au niveau de l'ouverture des recordset car sur ce point là j'ai un peu de mal ...
Je comprend pas donc voici la page confirmerproj.asp
<% response.cookies("visit")("Prenom")=request.form("prenom")
response.cookies("visit")("Nom")=request.form("nom")
response.cookies("visit").Expires=DATE + 30
response.buffer=true
%>
<html>
<head>
<title>Validation </title>
</head>
<body>
<h2> Confirmer l'inscription </h2>
<%'-------déclaration de la base------------------------------
DSN_BASE = "DBQ=" & Server.Mappath("visiteurs.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
<%'-------création de la connection et du recordset-----------
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset")%>
<%'-------définition et exécution de la requête---------------
RequeteSQL = "select * from clients"
RS.Open RequeteSQL , Conn, 3, 3, 1
Nb=RS.recordcount
If Nb>0 Then
response.redirect "inscription.asp?A=Le login " & request.form("login") & " est déjà utilisé."
Else
Set RS = Nothing
Set RS = Server.CreateObject("ADODB.Recordset")
RequeteSQL = "select * from clients "
RS.Open RequeteSQL , Conn, 3, 3, 1
RS.addnew
RS("login")=request.form("login")
RS("motpasse")=request.form("pass")
RS("nom")=request.form("nom")
RS("prenom")=request.form("prenom")
RS("email")=request.form("email")
RS("date")=DATE
RS.update
If Err.number >0 Then
Response.Write " Impossible de mettre à jour la base de données "
Else
Response.Write "Votre inscription est validé ! "
End If
Set RS = Nothing
End if
Conn.Close
Set Conn = Nothing%>
</body>
</html>
Merci d'avance !
Amicalement votre