Buscar un usuario en la BD

[edysierra]

Hola a todos!
Tengo un problema de error en el siguiente código:

<%
Dim useremail

useremail = Request.form("email")
if useremail <> ""then
Dim strSql, rs, i

strSql = "Select *FROM usuarios WHERE Email='"&useremail&"'"

' Creamos la conexion a la base de datos
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:..\db\datos.mdb;"

rs.open strSql, conexionactiva, 0, 1

for i=0 to rs.Fields.Count-1
Response.write rs.Fields(i).Name & ":" & rs.Fields(i) & "<br>"
next
rs.Close
Set rs=nothing
End if
%>

Yo necesito que, al ingresar el email de un usuario, aparezcan en pantalla todos los datos del mismo que estan en la BD. En la linea del rs.open me da un error de que falta una comilla...
Si alguien puede darme una mano com o siempre muy agradecido

Edysierra