mira te mando esta parte de codigo, lo unico que quiero hacer es validar el campo donde el administrador ingrese el numero de personal, si ya se encuentra dentro de la base de datos le mande un mensaje de que ya existe de lo cotrario que lo ingrese; lo que pasa es que ya esta todo el sistema; solo hay que hacerle unas modificaciones; o de que otra manera se puede validar ese campo, donde te lo resalto y esta la carita es lo que quiero modificar, la verdad soy nueva en esto
<%
sqla="select subp from Prop_Ind where idp='"&idr&"'"
Dim infPAa
'---------------- Conexion con tabla Dautor ------------------
Set infPAa = Server.CreateObject("ADODB.Recordset")
infPAa.ActiveConnection = MM_pi_STRING
infPAa.Source = sqla
infPAa.Open()
'------------------ conexion con la tabla subprograma para verificar el nombre de acuerdo al número de subprograma-----
Dim infSub, subp
subp=infPAa.fields("subp")
Set infSub = Server.CreateObject("ADODB.Recordset")
infSub.ActiveConnection = MM_pi_STRING
infSub.Source = "Select nomsub from subprograma where subp='"& subp &"'"
infSub.Open()
%>
<tr>
<td><font size="2" face="Arial, Helvetica, sans-serif">Nombre del subprograma:</font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif"><% =infSub.fields("nomsub")%>
<% infSub.Close()
Set infSub = Nothing %>
</font></td>
</tr>
<tr>
<td><font size="2" face="Arial, Helvetica, sans-serif">Duración:</font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif"><%=Rep.fields("duracion")%></font></td>
</tr>
<tr>
<td><font size="2" face="Arial, Helvetica, sans-serif">Permiso:</font></td>
<td><font size="2" face="Arial, Helvetica, sans-serif"><%=Rep.fields("permiso")%></font></td>
</tr>
<tr>
<td colspan="2"><div align="center"><font size="2" face="Arial, Helvetica, sans-serif">Resumen:</font></div></td>
</tr>
<tr>
<td colspan="2"><p><font size="2" face="Arial, Helvetica, sans-serif"><%=Rep.fields("resumen")%></font></p>
</td>
</tr>
<tr>
<td colspan="2"><div align="center"><hr></div></td>
</tr>
<tr>
<td><div align="center"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif">
<form name=mod method="POST">
<input type="button" value="Modificar" onClick="window.location.replace('modifica1.asp?id =<%=id%>&idr=<%=idr%>');">
</form></font></div></td>
<td><div align="center"><font size="2" face="Arial, Helvetica, sans-serif">
<form name=del action="eliminar1.asp?id=<%=id%>&idr=<%=idr%>" method="POST">
<input type=button onclick="pregunta()" value="Eliminar">
</form></font></div></td>
</tr>
</table>
<%Rep.close
End if
if id="A" then
sql="select num_personal,nombre, nombreD, nombreG from Autores, Division, Gerencia where num_personal='"&idr&"'and Autores.clave_D=division.clave_D and Autores.clave_G=Gerencia.clave_G"
'---------- Conexion para mostrar Autores ------------
Set ReA = Server.CreateObject("ADODB.Recordset")
ReA.ActiveConnection = MM_pi_STRING
ReA.Source = sql
ReA.CursorType = 3
ReA.CursorLocation = 3
ReA.LockType = 3
ReA.Open()
%>
<table width="90%" border="0" align="center">
<tr>
<td colspan="2"><div align="center"><p><font size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#000066">Autores</font></strong></font></p><p><hr></p></div></td>
</tr>
<tr>
<td width="38%"><font size="2" face="Arial, Helvetica, sans-serif">Número de personal</font></td>
<td width="62%"><font size="2" face="Arial, Helvetica, sans-serif"><%=ReA.fields("num_personal")%></font>
<SCRIPT LANGUAGE = "VBScript">
num_personal = INPUTBOX ("¿Ingrese el Numero de Personal?",, "num_personal")
IF (num_personal = "num_personal") THEN
MSGBOX ("Este registro ya existe")
ELSE
MSGBOX ("ingrese el numero de personal")
END IF
</SCRIPT>
</td>
</tr>
<tr>
