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...

fo pas un point virgule a la fin?
 
sinon c koa lerreur qui lte donne?

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" ), "'", "''" )) & "'
-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------^

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  
%>

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

et puis ferme le guillemet!
 
a la fin de ta ligne:
 
&"';"

Je vais essayer ça
 
Merci

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--

Merci à toi