2 veces una pagina de modificar datos?????

[8461277]

Amigo, revisando bien me di cuenta que el adminsitrador del centro REGISTRABA 2 VECES EL MISMO PROFESOR, esto no debería suceder ya que en el codigo yo coloque una verificación de cuando hay alguien regsitrado y lo anunciaria como tal, al principio de colocar esta pagina en la red local funcionaba a la mil maravilla, pero parece que ya no, les dejo el codigo que utilizo para registrar los profesores:

<%

'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 like '%"&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 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("Observacion") = Request.Form("Observacion")
TBL.Update
TBL.Close

DB.Close

Set DB = Nothing
Set TBL = Nothing

Response.Write "Se a Registrado el Profesor con Exito en la Base de Datos"
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 se encuentra Registrado en la Base de Datos"
end if
%>

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


QUE ESTARA PASANDO, de pronto borre los datos duplicados.....


Miguel-Venezuela