Sistema de registro

[Batan]

Hola buenas tardes.
Haber si me pueden ayudar en este problema:
Tengo un sistema de registros que valida si el usuario esta registrado o no y por otra parte valida un codigo.

En la base de datos hay una tabla usuarios y otra codigo.

Código ASP:

sql = "SELECT codigo.codigo, usuario.nick FROM codigo, usuario WHERE nick = '"& nick &"' and codigo = '"& codigo &"'"
 
   Set recordset = Server.CreateObject ("ADODB.RecordSet")
   recordset.Open sql, conexion
 
   If recordset.Fields("nick") = nick or Not recordset.Fields("codigo") = codigo then
        Response.Write "Este nick ya esta registrado"
   Else
        Dim fecha_registro
        fecha_registro = Date()
        Dim fecha_nacimiento
        fecha_nacimiento = CInt(dia) & "/" & CInt(mes) & "/" & CInt(anio)
        sql="insert into usuario(nick,contrasenia,email,sexo,fecha_nacimiento,pais,quien_recluto,nombre_apellidos,mision,ip,fecha_registro) values('"&nick&"','"&contrasenia&"','"&email&"','"&sexo&"','"&CDate(fecha_nacimiento)&"','"&pais&"','"&quien_recluto&"','"&nombre_apellidos&"','"&mision&"','"&ip&"','"&Date()&"')" 
        conexion.execute(sql)     
   End If
 

Mi problema esta en que si pongo un codigo que no existe me sale el siguiente error:

error '80020009'

/a/n/g/angelgon/gts/registro.asp, line 6

Y si pongo un usuario que ya existe me lo sigue grabando... y no lo entiendo.

Gracias por su tiempo y saludos

[IsaBelM]

no acierto a entender cual es el propósito de la condicional
si la consulta no trae ningún registro, entonces hace la insercción. de lo contrario levanta mensaje de error

if not recordset.eof then
' levanta el alerta
else

si eso no resulta, lee este articulo