ASP - asp bd

haber si alguien me puede ayudar me sale este error abajo esta el codigo y no se porque motivo no funciona.

Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: ''
/alta.asp, línea 57

<%
Dim tipoidentificacion, numidentificacion, nombre, apellido1, apellido2, telefono1, telefono2, email, tipovia, direccion, localidad, cp, formapago, numeropago, faltaproducto, observaciones
Dim login, password, pregunta, respuesta
Dim correcto, numcli, n
Dim oConn, rs, strSQL, rs1

'Recogemos el formulario
tipoidentificacion=request.form("tipoidentificacion")
numidentificacion=request.form("numidentificacion")
nombre=Request.Form("nombre")
apellido1=Request.Form("apellido1")
apellido2=Request.Form("apellido2")
telefono1=request.form("telefono1")
telefono2=request.form("telefono2")
email=request.form("email")
tipovia=request.form("tipovia")
direccion=request.form("direccion")
localidad=request.form("localidad")
cp=request.form("cp")
formapago=request.form("formapago")
numeropago=request.form("numeropago")
faltaproducto=request.form("faltaproducto")
observaciones=request.form("observaciones")
login=request.Form("login")
password=request.Form("password")
pregunta=request.form("pregunta")
respuesta=request.form("respuesta")
privilegio=request.form("privilegio")

correcto = true

if tipoidentificacion="" and numidentificacion="" and nombre="" and email="" and telefono1="" and tipovia="" and direccion="" and localidad="" and cp="" and formapago="" and login="" and password="" and pregunta="" and respuesta="" then
correcto = false
Response.Write("Hay campos requeridos que estan en blanco")
end if

if correcto = true then

'hace conexion a base de datos
set oConn = server.createobject("adodb.connection")
oConn.open "FILEDSN=base1"
' mira si el login esta ya usado
strSQL="SELECT * FROM contraseñas WHERE (login=' "&login&" ');"
'Ejecutamos la consulta
set rs=oConn.Execute(strSQL)

'si no nos devuelve vacío es que el login ya está en uso
if not rs.EOF then
Response.Write("El login " &login& " de usuario ya está siendo utilizado.")
Response.Write("Por favor, escoja otro.")

else

' Para ver el ultimo numero de cliente asignado

linia 57 rs1.cursortype = 1
rs1.locktype = 3
strSQL="SELECT * FROM CLIENTE"
'Ejecutamos la consulta
set rs1=oConn.Execute(strSQL)
rs1.movefirst
rs1.movelast
n=numcli+1

' es vacio, así que le insertamos en la bd
strSQL="INSERT INTO cliente VALUES ('"&n&"','"&tipoidentificacion&"','"&numidentificacion&"','"&nombre&"','"&apellido1&"','"&apellido2&"','"&telefono1&"','"&telefono2&"','"&email&"','"&tipovia&"','"&direccion&"','"&localidad&"','"&cp&"','"&formapago&"','"&numeropago&"','"&faltaproducto&"','"&observaciones&"')"

oConn.Execute(strSQL)

strSQL="INSERT INTO contraseñas VALUES ('"&n&"','"&login&"','"&password&"','"&pregunta&"','"&respuesta&"','"&privilegio&"')"
oConn.Execute(strSQL)

Response.Write("Gracias por registrarte, "& nombre)
rs1.close set rs1=nothing
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

%>

te falta la siguente linea
set rs1 = server.createobject("adodb.recordset")
suerte!!