Duplicado, como lo evito????????

[8461277]

E utilizado todos lo codigos que vas a ver aqui y nada no detecta si esta ya registrado sino que lo registra sin importar que este ya en la BD

te dejo el codigo:

'Verificamos si dentro registro el profesor existe en la BD
cedula=request.form("Cedula")
set rs=createobject("ADODB.Recordset")
'sqltxt="SELECT cedula FROM profesores WHERE cedula=" & Request.Form("Cedula")
'sqltxt="select cedula from profesores where Cedula = " & request.form("Cedula") & ""
sqltxt="select cedula from profesores where cedula="&cedula&" "
'response.write (sqltxt)
rs.open sqltxt,"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\asp\posturg\profesores.m db;"

if rs.eof and rs.bof then
'Aqui se iserta el profesor si no se encuentra en la BD
if Request.Form <> "" Then
Dim DB, TBL
Set DB = Server.CreateObject("ADODB.Connection")
Set TBL = Server.CreateObject("ADODB.RecordSet")
DB.Mode = adModeReadWrite
DB.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("profesores.mdb"))

TBL.Open "profesores" ,DB, 1, 2
TBL.AddNew
TBL("Cedula") = Request.Form("Cedula")
TBL("Nombre") = Request.Form("Nombre")
TBL("Profesion") = Request.Form("Profesion")
TBL("Categoria") = Request.Form("Categoria")
TBL("Sueldo") = Request.Form("Sueldo")
TBL("Cat-Acd-Otra-Int") = Request.Form("Cat-Acd-Otra-Int")
TBL("Sueldo-Cat") = Request.Form("Sueldo-Cat")
TBL("Otras-Int") = Request.Form("Otras-Int")
TBL("Sueldo-Otras-Int") = Request.Form("Sueldo-Otras-Int")
TBL("Ultimo-Lapso-Post-URG") = Request.Form("Ultimo-Lapso-Post-URG")
TBL("Nombre-Post") = Request.Form("Nombre-Post")
TBL("Materias") = Request.Form("Materias")
TBL("Coord-Post") = Request.Form("Coord-Post")
TBL("Direcc-Personal") = Request.Form("Direcc-Personal")
TBL("Direcc-Trabajo") = Request.Form("Direcc-Trabajo")
TBL("Telef-Habit") = Request.Form("Telef-Habit")
TBL("Telef-Celular") = Request.Form("Telef-Celular")
TBL("E-mail") = Request.Form("E-mail")
TBL.Update
TBL.Close

DB.Close

Set DB = Nothing
Set TBL = Nothing

Response.Write "Se a Registrado el Profesor con Exito"
end if

else
' Aqui verificamos si existe el Porfesor en la BD
a=request.form("cedula")
'response.write (a)
b=rs("Cedula")
'response.write (b)

a=b
response.write "<font color='red'>El Profesor ya esta Registrado"
end if
%>

</CENTER>
</H1>
</B>
</BODY>
</HTML>

Las coasa mas rara que suceden son la de programacion y la compuatcion

Miguel