Con el response.end siempre sale el mensaje de error aunque no se produzca ninguno, y sin él, salen las dos cosas: la de error y la que muestra los datos "correctos" como si no hubiera ocurrido el error (pero no se inserta nada en la base de datos)
Código:
'Instanciamos y abrimos nuestro objeto conexion PARA INSERTAR LOS DATOS
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../data/BD.mdb"))
on error resume next
' acá va la linea que podría dar error
' AQUI EMPIEZA LA SENTENCIA QUE INTRODUCE LOS DATOS
'Ahora creamos la sentencia SQL con la que insertaremos los valores
sSQL="Insert Into registro (codigo,cantidad,...) values ('" & codigo & "','" & cantidad & "',...)"
'Ejecutamos la orden
set RS = conn.Execute(sSQL)
' AQUI TERMINA LA SENTENCIA QUE INTRODUCE LOS DATOS
if error.number > 0 then
' Se produjo un error, así que lo controlamos
Response.Write "<html><head></head><body><p align='center'><font face='Arial' color='#FF0000'><b>ERROR:</b></font></p><p align='center'> </p><p align='center'><font face='Arial'><b>EL CÓDIGO INSERTADO YA EXISTE EN LA BASE DE DATOS.</b></font></p><p align='center'> </p><p align='center'><font face='Arial'><b>POR FAVOR, COMPRUEBE QUE LOS DATOS QUE HA INTRODUCIDO SON CORRECTOS.</b></font></p><p align='center'> </p><p align='center'><input type='button' onclick='history.back()' value='Volver'></p></body></html>"
RESPONSE.END
end if
'cierro esta conexión para poder abrir otra
conn.close
'Instanciamos y abrimos nuestro objeto conexion PARA PRESENTAR LOS DATOS INSERTADOS DESDE LA B.D.
...
¿alguna idea? ¿qué error tonto estoy cometiendo?
-gracias-