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
%>
