lexus me da este error:
Tipo de error:
Microsoft JET Database Engine (0x80040E07)
No coinciden los tipos de datos en la expresión de criterios.
/asp/agregar4.asp, línea 24
Te coloco todo el codigo de la pagina, como puedes ver es una pagina que es de ingresar datos en una BD de access, la cual yo quiero que averigue ante de registrar a un nuevo profesor si lo encuentra que DIGA PROFESOR ESTA REGISTRADO y si no esta PROFESOR REGSITRADO CON EXITO en la laptop que tengo funciona de maravilla con los parametro originales con que se programo pero no se, sera que hay hasta el momento 45 registrado???? ya uq en mi maquina lo probe con 18 profesores.
Bueno te dejo el codigo por favor ayudenme, tengo la pagina de la red interna paralizada por este defecto, aqui va el codigo:
la pagina se llama agregar.asp
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Ing Miguel Padron 9\08\2003" CONTENT="">
<META NAME="Registra datos de Profesore Postgrado URG" CONTENT="">
<META NAME="Registra datos a BD Profesore Postgrado URG" CONTENT="">
<meta http-equiv="refresh" content="6;URL=form-agregar4.html">
<META HTTP-EQUIV="Page-Enter" CONTENT = "RevealTrans (Duration=1, Transition=23)">
</HEAD>
<CENTER>
<H1>
<B>
<BODY>
<%
'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("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 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>
Miguel
