entrar como usuario/administrador

[Abu-Dabi]

Hola, tengo el siguiente código, el cual me discrimina, si el usuario que entra es el administrador o no, me da el siguiente error:
Tipo de error: (0x80020009)
Ocurrió una excepción.
confirm-login.asp, line 15


<%
Option Explicit
Dim username2, username, password, password2, rsUser

username = Request.Form("username")
password = Request.Form("password")

'Open connection and insert user details into the database
%>
<!--#include file="conn.asp"-->
<%
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.open "users WHERE username = '&username&'", conn, 3, 3

if (username = "administrador") and (password = rsUser("password")) then
Response.Cookies("loginadmin") = "True"
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing
Response.Redirect("admin.asp")
end if
if (username = rsUser("username")) and (password = rsUser("password")) then
Response.Cookies("usuario")("nombre")="'&username& '"
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing
Response.Redirect("usuario.asp")
end if
%>

[Fr@Nc3$c0]

Sólo comentarte que los parentesis que pones en tus condicionales sobran, me refiero a esto:

if ( username = "administrador") and ( password = rsUser("password")) then

Sería algo así:

If username = "administrador" AND password = rsUser("password") then


Saludos.

[AlZuwaga]

si bien es correcto que esos paréntesis podrían no estar ya que no afecta en nada que estén, veo aquí algo que no me parece correcto...



rsUser.open "users WHERE username = '&username&'", conn, 3, 3

creo que esa SQL está incompleta!

Igual, el error puede estar pasando en alguna parte del archivo incluido (<!--#include file="conn.asp"-->)

[Abu-Dabi]

el conn esta correcto, crea una conexion a base datos, asi que por ese no te preocupes, cómo habria de ser la sentencia sql?

este es el contenido del archivo conn
<%
Dim ConnectString, conn

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("basedatos.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
%>

[Fr@Nc3$c0]

¡
Hola !

La conexión se tendría que abrir así, bajo mi punto de vista:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DRIVER&LUGAR
Set RS = Server.CreateObject("ADODB.Recordset")
' Sentencia SQL o como la llames
SQL = " SELECT users WHERE username = '"&Username&"' "

' Abrimos así la conexión, Primero Sentencia, Luego Conn
' y definimos cursores.
RS.Open SQL, Conn, 3, 3

Quizá te sirva de algo tambíen este link:
http://www.aspfacil.com/articulos/040401.asp

Saludos.