posible error en codigo para cargar datos validacion de login y usuario

[cristianf]

genial estaba el problema ahi miles miles de gracias dejo el codigo completo por si alguien lo necesita

<%
Dim nombre, apellidos, telefono, mail, login, password
Dim correcto
Dim oConn, rs, SQL


'Recogemos el formulario
nombre=Request.Form("nombre")
apellidos=Request.Form("apellidos")
login=Request.Form("login")
password=Request.Form("password")
telefono=Request.Form("telefono")
email=Request.Form("email")
correcto=True

'Comprobamos que no hay campos vacíos
if nombre="" then correcto=False end if
if apellidos="" then correcto=False end if
if login="" then correcto=False end if
if password="" then correcto=False end if
if telefono="" then correcto=False end if
if email="" then correcto=False end if

if correcto then
'Solo si todo está bien, comprobamos con la bd

set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("nuestrabasededatos.mdb")
SQL="SELECT * FROM Usuarios WHERE (Login='"&login&"');"
'Ejecutamos la consulta
set rs=oConn.Execute(SQL)

'si no nos devuelve vacío es que el login ya está en uso
if not rs.EOF then
Response.Write("El nombre de usuario ya está siendo utilizado. ")
Response.Write("Por favor, escoja otro.")
else
' es vacio, así que le insertamos en la bd
SQL="INSERT INTO Usuarios " & "([Login], [Password], Nombre, Apellidos, Telefono, Email)"
SQL=SQL & " VALUES ('"&login&"', '"&password& "', '"&nombre&"','"&apellidos&"','"&telefono&"','"&ema il&"');"
oConn.Execute(SQL)
Response.Write("Gracias por registrarte, "& nombre)
end if


'Limpiamos objetos
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing

else
'El usuario ha metido datos incorrectos
Response.Write("Datos incorrectos!")
end if

%>
gracias nuevamente a todos!!!