1613 connectés

FORUM HardWare.fr

Programmation

[ASP] Urgent

Recherche :

Dernière réponse
Sujet : [ASP] Urgent
DJERO	Merci à toi :D :D

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

DJERO

Merci à toi

:D :D

duch

un conseille pour que tes requêtes soient plus lisibles :

login = trim(replace(request.form("LOGIN" ), "'", "''" ))
password = trim(replace(request.form("password" ), "'", "''" ))

sql = "SELECT URL FROM clients WHERE login = '" & login & "' AND mdp = '" & password & "'"

sinon il manquait effectivement le " à la fin (le ; c'est pas la peine) mais je n'aurais jamais vu ça si je n'avais réecri ta requête.

je pense que tu peux aussi écrire :

sql = "SELECT URL FROM clients WHERE login = '" & login & "' AND mdp = '" & password

--Message édité par duch--

DJERO

Je vais essayer ça :D

Merci

laihaunet

et puis ferme le guillemet! :)

a la fin de ta ligne:

&"';"

laihaunet

essaye le point virgule pour finir la requete.
Il devrait aimer ! :)

DJERO

En fait voila le code complet:

<%@ Language=VBScript %>
<%
dim cnx
Set cnx = Server.CreateObject("ADODB.Connection" )
cnx.Open Application("DSN_SITE" )
sql = "SELECT URL FROM clients WHERE login = '" & trim(replace(request.form("LOGIN" ), "'", "''" )) & "' AND mdp = '" & trim(replace(request.form("password" ), "'", "''" )) & "'
dim rs
set rs = server.CreateObject("ADODB.Recordset" )
set rs.ActiveConnection = cnx
rs.CursorType = 0 ' adOpenForwardOnly
rs.LockType = 1 ' adLockReadOnly
rs.Open sql
cpt = 0
do while not rs.EOF
url = rs("URL" )
cpt = cpt + 1
rs.movenext
loop
if cpt = 0 then
cnx.close
set cnx = nothing
response.write "Erreur : Login incorrect"
elseif cpt > 1 then
rs.close
set rs = nothing
cnx.close
set cnx = nothing
response.write "Erreur : Plusieurs comptent ont ce login !"
else
rs.close
set rs = nothing
cnx.close
set cnx = nothing
response.redirect url
end if
%>

DJERO

Voici le message d'erreur:

Erreur de compilation Microsoft VBScript error '800a0409'

Constante chaîne non terminée

/page/acces.asp, line 6

sql = "SELECT URL FROM clients WHERE login = '" & trim(replace(request.form("LOGIN" ), "'", "''" )) & "' AND mdp = '" & trim(replace(request.form("password" ), "'", "''" )) & "'
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

laihaunet

fo pas un point virgule a la fin?

sinon c koa lerreur qui lte donne?

DJERO

Je crois que la syntaxe de ma requete n'est pas bonne :

sql = "SELECT URL FROM clients WHERE login = '" & trim(replace(request.form("LOGIN" ), "'", "''" )) & "' AND mdp = '" & trim(replace(request.form("password" ), "'", "''" )) & "'

Aidez moi... :(