Mensajes

[Anselmito]

hola!!!

Estoy trabajando en un programa de altas en ASP y necesito saber como poner un mensaje que me diga si la clave principal esta duplicada.

mi codigo es:

<%

cve_perfil1 =ucase(request.form("cve_perfil"))
cve_puestot1 =ucase(request.form("cve_puestot"))


'Convierto rpe1 y nombre1 a VARIABLES DE SESSION para usar en el programa: diagnostico1.asp

session ("scve_perfil") = cve_perfil1
session ("scve_puestot") = cve_puesto1



cve_cenac1 =ucase(request.form("cve_cenac"))
rpe1 =ucase(request.form("rpe"))
f_generica1 =request.form("f_generica")
f_general1 =request.form("f_general")
f_especifica1 =request.form("f_especifica")
conocimientos1=request.form("conocimientos")
habilidades1 =request.form("habilidades")
actitudes1 =request.form("actitudes")


'para ya no utilizar el if y convertir podemos utilizar la funcion insert into tabla(fechavariable)

' instalar el objeto coneccion que permitira conectarnos con la base de datos
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("perfiles")


if (cve_perfil1 <> cve_perfil) then

sSQL="insert into perfil cve_perfil,cve_puestot,cve_cenac,rpe,f_generica,f_ general,f_especifica,conocimientos,habilidades,act itudes) values ('" & cve_perfil1 & "','" & cve_puestot1 & "','" & cve_cenac1 & "','" & rpe1 & "','" & f_generica1 & "','" & f_general1 & "','" & f_especifica1 & "','" & conocimientos1 & "','" & habilidades1 & "','" & actitudes1 & "')"

else
response.Redirect("error.asp")
'ejecutar la orden
set RS = Conn.Execute(sSQL)

end if


%>