¡¡¡¡¡¡¡¡¡¡premio!!!!!!!!!!!!!!!!
El código queda como sigue:
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 err <> 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.
Set conn = Server.CreateObj...
Muchas gracias a sjam7
y Al_Zuwaga
. (Y a Myakyre tb, por su aportación)