Consulta a varios campos en la BD

[edysierra]

Camilo, el codigo que me pasaste es justo lo que necesitaba, en especial por la simpleza, yo me estaba complicando inutilmente.
Ahora bien, el problema es que me tira un error en la linea que pido la consulta sobre la BD, y sería una "
Al menos eso es lo que aparece en pantalla. El punto es que he probado de varias maneras pero la lectura del codigo queda aqui. Yo iba insertando un Response.Write cada tanto como para ver donde se producia el error.
Copio lo que llevo hasta aqui con el comentario sobre la linea del error:

<%
Response.Buffer = True

Dim user, rs

user=Session("Usuario")

'Response.Write("El nombre es: " & user )

Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\webspace\resadmin\electronicapopular\ele ctronicapopular.com.ar\db\datos.mdb;"



SQL="SELECT * FROM usuarios WHERE " & _
"Usuario='"&user&"'" /*AQUI ES DONDE SE PLANTA LA LECTURA, Y LA COMILLA NO SE DONDE LE FALTARIA

rs.Open SQL, oConn, 1, 2

'es simple para saber si es no esta activo haz esto:
if rs("activo")="SI" then
response.redirect("error.asp?error=true")
end if

if rs("activo")<> "SI" then
'Añado un nuevo registro
rs("activo")="SI"
rs.Update
session("usu")=rs("usuario")
rs.close
response.redirect("error.asp?activo=true")
end if
%>

Gracias de nuevo por la ayuda que me estas dando...

Edysierra