Que sucede a est codigo?????

8461277 · #1 (**permalink**) 20/06/2003, 06:49

Amigos por favor si alguien puede sacarme de duda con este codigo, tengo tres paginas: 2 en html y uno en asp.

1) La primera pagina es un formulario en html, y es el siguiente:
<html>

<head>

<title>Formulario para consulta sencilla</title>
</head>

<body OnLoad="javascript:document.fconsulta5.cedula.focu s();">
<h1 align="center">Consulta para Notas</h1>
</p><BR>
<H1><B>Intrucción:</B></H1>
<h3>Por favor Introdusca su NÚMERO DE CÉDULA SIN PUNTO, y luego presiona el botón de enviar: </h3>
<form method="get" action="aviso.html" name="fconsulta5" AUTOCOMPLETE="OFF">
<table border="1" width="50%">
<tr>
<td width="40%"><B>Cedula Identidad:</B></td>
<td width="50%"><input type="text" name="cedula" size="8"></td>
</tr>
<tr>
<td width="16%"><input type="submit" value="Enviar" name="B1"></td>
<td width="84%"><input type="reset" value="Restablecer" name="B2"></td>
</tr>
</table>
</form>
************************************************** **
2) La segunda pagina es tanbien una pagina html, y su codigo es:
pagina aviso.html
<html>

<head>

<title>Aviso de espera</title>
</head>

<body >
Espere por favor!!!!!!!!!!

<%resultadonotas4.asp?cedula=<%=cedula%>
<meta http-equiv="refresh" content="5;URL=resultadonotas4.asp">
</body>
************************************************** **
3) Y la tercera pagina es la que recoge la consulta en asp, y parte del codigo es:
<html>

<head>
<meta http-equiv="Content-Language" content="es">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Consulta de una Base de Dato</title>

</head>

<body>

</table>
</head><body bgcolor="#808000">
<div align="center">
<center>
<table border="2" width="50%" bgcolor="#008000">
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF"><B>RESULTADO DE LAS NOTAS</B></font></td>
</tr>
</table>
</center>
</div>
<BR>
<CENTER><a href="fconsulta4.html"><H2><B>Volver al Formulario</B></H2></a></CENTER>
<BR>
<%
'Aqui compruebo que esta colocando 8 digitos
If Len(Request.Form("cedula")) <8 then
'el campo no fue llenado, entonces...
response.write "<CENTER><H1><B>¡ERROR!</B></H1></CENTER>"
response.write "<CENTER><B><H1>Por Favor rellenar con Tú Cédula de 8 Dígitos, presiona Volver al Formulario, para intentarlo otra vez</H1></B></CENTER>"
response.end
End If%>
<%=request.querystring("cedula")%>
<%ccedula=request.form("cedula")
set rs=createobject("ADODB.Recordset")
sqltxt="select * from Alumnos where cedula like '%"&ccedula&"%'"
'response.write (sqltxt)
rs.open sqltxt,"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\asp\bdfisica2.mdb;"%>
************************************************** **
Nota: lo que esta en negrita es donde trato de recoger el dato que me pasa por url desde aviso, pero esto no se da, PORQUE SERA, ES QUE ESTA MALO, SERA QUE ALGUIEN ME PUEDE ORIENTAR PARA RESOLVERLO, TENGO VARIOS DIAS TRATANDO DE RESOLVERLO Y NO HE PODIDO

mIGUEL

Bravenap · #2 (**permalink**) 20/06/2003, 07:05

Una pregunta simple. Dices que la segunda página es también HTML (aviso.html), entonces ¿cómo es que tiene código ASP?

A lo mejor es ahí donde está todo el meollo de la cuestión.

Un saludo.

8461277 · #3 (**permalink**) 20/06/2003, 07:14

oK, VOY A PROBAR a ver lo cambio a asp y te aviso

8461277 · #4 (**permalink**) 20/06/2003, 07:22

Probe y me sale el siguiente error:
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0408)
Carácter no válido
/asp/aviso.asp, línea 11, columna 19
resultadonotas4.asp?cedula=<%=cedula
------------------^
QUE PASARÁ, YA QUE CUANDO ESTABA EN HTML REDIRECCIONABA BIEN Y EN LA URL SE OBSERVAVA EL ENVIO DE LA VARIABLE CEDUAL, PERO CUNDO LLEGABA A LA PAGINA DE MOSTRAR LOS RESULTADOS, ME MOSTRABA LA PARTE DEL CODIGO CUANDO EL FORMULARIO NO SE ENVIAVA NADA(VACIO), ES DECIR NO RECOGIA EL DATO DE LA URL ENVIADA POR LA PAGINA DE AVISO?????? AYDEUNME????
MIGUEL

Bravenap · #5 (**permalink**) 20/06/2003, 09:14

Vamos a ver.

En la primera página (HTML) tienes un formulario que envía una información para ser procesada por una tercera página (ASP). Pero quieres que pasa previamente por una segunda (que ahora ya es ASP) informando al ususario de la espera y redireccionándolo finalmente a la tercera.

Pues bien, la segunda página deberá recoger el valor que se ha introducido en el formulario (recuerda que tienes que cambiar en el form aviso.html por aviso.asp) para dárselo a la variable cedula.
Si no recoges ese valor, <%=cedula%> estará vacío. Por tanto debes recoger primero el valor:

cedula=Request.Form("cedula")

Una vez hecho esto ya tienes la variable cedula con un valor. Ahora hay que pasar ese valor a la tercera página para que lo procese. Has decidido pasarlo en la url, entonces

<meta http-equiv="refresh" content="5;URL=resultadonotas4.asp?cedula<%=cedula %>">
Tal y como lo tenías, te daba error porque además no cerrabas la etiqueta de ASP (<%...%>).

Llegamos a la tercera página ¿como recoges la variable cedula y su valor? Ya no lo puedes hacer con Request.Form puesto que la página desde la que has llegado no contiene un form. De modo que cambia lo que tengas como Request.Form("cedula") por Request.Querystring("cedula") y guárdalo en una nueva variable. Si quieres llámala otra vez cedula. Ahora utiliza esta variable para tu consulta en bases de datos o cualquier otra cosa que necesites.

Pues de momento, y por lo que has puesto esto es todo para solucionar los problemas que tenías.

De todas formas te aclaro algunas cosas por si no las tienes muy claras.

ASP es un lenguaje que se ejecuta en el servidor, es decir, cuando un usuario hace una petición al servidor de una página ASP, antes de salir comprueba todo el código e interpreta lo que esté en la etiqueta <%%> y devuelve una página con los resultados de esa ejecución en simple HTML (o JS, CSS, ...). Cuando el servidor recibe una petición de un archivo .htm o .html lo envía directamente, por lo que si en él hay instrucciones ASP no serán comprobadas.

Tú pasas la información recogida en el formulario a un archivo .html. Este tipo de archivos, en principio no son dinámicos, así que no podrán cambiar a petición del usuario. Es por eso por lo que debes recoger los datos con ASP.

Finalmente. ¿Realmente necesitas ese paso intermedio? Si la consulta a la base de datos no es muy grande y no se tiene que ejecutar mucho código, es probable que tardes más en decirle al usuario que espere que lo que realmente vas a tardar en mostrar los resultados. Para este tipo de cosas suele haber otra cosa que se llama Buffer y Flush. Sirve para ir enviando un poco de información, por ejemplo, un "Espere" hasta que se termine de ejecutar e interpretar todo el código y se envíen todos los resultados completos.

Bueno, espero que ta hayan quedado las cosas algo más claras y haberte podido ayudar en algo.

Un saludo.

8461277 · #6 (**permalink**) 20/06/2003, 09:51

Hola amigo gracia por tu pasencia, pero cuando trato de recoger la valor de la segunda pagina me dice lo que esta en esta parte del codigo de la tercera pagina, la cual es:
'Aqui compruebo que esta colocando 8 digitos
If Len(Request.Form("cedula")) <8 then
'el campo no fue llenado, entonces...
response.write "<CENTER><H1><B>¡ERROR!</B></H1></CENTER>"
response.write "<CENTER><B><H1>Por Favor rellenar con Tú Cédula de 8 Dígitos, presiona Volver al Formulario, para intentarlo otra vez</H1></B></CENTER>"
response.end
End If%>

y en la url me arroja esto:http://lumenxxi/asp/resultadonotas4.asp?cedula
creo que viene vacio????????

Si quito esa parte del codigo que coloque al principio me lanza el primer dato de la BD

Porque pasa eso, es mas coloque como me lo dijiste:
<%ccedula=request.querystring("cedula")
set rs=createobject("ADODB.Recordset")
sqltxt="select * from Alumnos where cedula like '%"&ccedula&"%'"
'response.write (sqltxt)
rs.open sqltxt,"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\asp\bdfisica2.mdb;"%>

Me orienta por favor????

Miguel

Bravenap · #7 (**permalink**) 20/06/2003, 10:22

Paciencia hay mucha, no te preocupes.

Lee de nuevo mi mensaje y entenderás qué está mal.

En la tercera página pones

...
If Len(Request.Form("cedula")) <8 then
...

No puedes recoger un valor de un formulario si no vienes de un formulario. Recuerda que el formulario lo olvidámos al pasar de la primera a la segunda página. De la segunda a la tercera pasamos el valor de cedula, que no es el nombre del campo de texto del formulario ya que ya no existe, sino de una variable enviada por url. Cambia entonces también esto a:

...
If Len(Request.Querystring("cedula")) <8 then
...

Así te comprobará que la variable pasada por url tiene al menos 8 dígitos.

Luego en la consulta a la bas de datos, sí haces bien la recogida de la variable, pero está mal la sentencia SQL

sqltxt="select * from Alumnos where cedula = '" & ccedula & "'"

Esto hace que el valor del campo buscado coincida con el de la variable, no que se le parezca.

También deberías revisar un poco como tienes colocada la conexión a la base de datos. Mira algunos ejemplos y colócala mejor. Puede que funcione, es sólo cuestión de formas par que el código no sea muy lioso.

Un saludo.

Por cierto, también me llamo Miguel.

8461277 · #8 (**permalink**) 20/06/2003, 13:12

Bueno es verdad la pasencia es la virtu de todos los hombres!!
Colocando tus consejos me lanza el siguiente error:
Tipo de error:
Microsoft JET Database Engine (0x80040E07)
No coinciden los tipos de datos en la expresión de criterios.
/asp/resultadonotas4.asp, línea 44

Siento que la solucion esta cerca, y que dicha solucion lo tengo en la narizes pero mi cabeza ya no da mas, el codigo va hasta el momento va asi:
'Aqui compruebo que esta colocando 8 digitos
If Len(ccedula=Request.Querystring("cedula"))<8 then
'el campo no fue llenado, entonces...
response.write "<CENTER><H1><B>¡ERROR!</B></H1></CENTER>"
response.write "<CENTER><B><H1>Por Favor rellenar con Tú Cédula de 8 Dígitos, presiona Volver al Formulario, para intentarlo otra vez</H1></B></CENTER>"
response.end
End If%>

<%ccedula=request.querystring("cedula")
set rs=createobject("ADODB.Recordset")
sqltxt="select * from Alumnos where cedula ='"&ccedula&"'"(LINEA 44)
'sqltxt="select * from Alumnos where cedula like '%"&ccedula&"%'"
response.write (sqltxt)
rs.open sqltxt,"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\asp\bdfisica2.mdb;"%>

Espero no molestarte mucho y se esta en la posibilidad de ayudarme te lo agradeceria, ya que eres el unico en este momento que me esta ayudando. Yo e dejado varios pos y nadie lo contestaba y lo del comentario de precarga es verdad hay otra forma, lo e intentado y nada y esta forma par mi la entiendo un poco mas, de toda forma si quieres explicarmelo bueno lo agradeceria?????
Miguel

Bravenap · #9 (**permalink**) 20/06/2003, 13:19

Es posible que el erro se deba a un conflicto entre tipos de datos, es decir, puede que estés recogiendo en la variable un valor numérico y en la base de datos el campo es de texto, o al revés.

Compruba en la base de datos qué tipo de campo es y hablamos.

Un saludo.

8461277 · #10 (**permalink**) 20/06/2003, 14:14

Amigo es campo estaba numerico, decimal y lo cambien a simple, general, y me arroja el siguinete dato, comprueba que la cedual que coloca no existe, siendo esto falzo, ya que toda las cedula existe, es ecir que me verifica en esta parte del codigo:
NOTA: LA QUE ESTA EN NEGRITA
<%
'Aqui compruebo que esta colocando 8 digitos
If Len(ccedula=Request.Querystring("cedula"))<8 then
'el campo no fue llenado, entonces...
response.write "<CENTER><H1><B>¡ERROR!</B></H1></CENTER>"
response.write "<CENTER><B><H1>Por Favor rellenar con Tú Cédula de 8 Dígitos, presiona Volver al Formulario, para intentarlo otra vez</H1></B></CENTER>"
response.end
End If%>

<%ccedula=request.querystring("cedula")
set rs=createobject("ADODB.Recordset")
sqltxt="select * from Alumnos where cedula ='"&ccedula&"'"
'sqltxt="select * from Alumnos where cedula like '%"&ccedula&"%'"
response.write (sqltxt)
rs.open sqltxt,"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\asp\bdfisica2.mdb;"%>

<%if rs.eof then%>

<h3 align="center">
<font color="#FF0000"><H1>Tú no Existe, por favor presiona <I>"Volver al Formulario"</I> e intenta de nuevo, <I>GRACIAS!!!</I></H1></font></h3>

No sera que en el formulario el campo es de tipo TEXTO???? se que dice text, pero como se coloca nimerico????? para probar???
Miguel

Bravenap · #11 (**permalink**) 20/06/2003, 14:28

Bien, vamos llegando a la solución.

La variable ccedula es de tipo texto por lo tanto o bien cambias el campo de la base de datos a texto o bien cambias la variable

ccedula=CInt(ccedula)

Esto lo convierte en un valor numérico entero o algo así (Convert Integer). También está CLng (Convert Long) que es para valores de tropecientos-mil-no-sé-cuantos. Con 8 dígitos me da que va a tener que ser Long, pero no estoy seguro. Prueba con los dos.

A ver si ahora lo conseguimos.

8461277 · #12 (**permalink**) 20/06/2003, 14:40

Ok, prove cambiando direcatamente en la BD pero sigue igual, la otra forma no la entiendo en donde lo coloco:
Sera despues de recogerlo con If Len(ccedula=Request.Querystring("cedula"))<8 then..... o
Despues??????????

Miguel

Bravenap · #13 (**permalink**) 20/06/2003, 14:48

Por ejemplo aquí:

<%ccedula=request.querystring("cedula")
ccedula=CLng(ccedula)
set rs=createobject("ADODB.Recordset")
sqltxt="select * from Alumnos where cedula ='"&ccedula&"'"
....

8461277 · #14 (**permalink**) 20/06/2003, 15:23

Ok prove pero no funciona sera que es en la bd voy a revisar a ver y te aviso mañana, de todas formas si tienes ma s sugerencia te lo agradeceria y lo vere mañana, gracis por tu pasensia y espero tenerte mañana para seguir

Miguel

Bravenap · #15 (**permalink**) 20/06/2003, 15:32

¿Probaste con CInt?

8461277 · #16 (**permalink**) 20/06/2003, 15:39

Si y me da el mismo error:
Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: 'CLnt'
/asp/resultadonotas4.asp, línea 40

Que sera??????
Miguel

Bravenap · #17 (**permalink**) 20/06/2003, 16:21

Es CLNG o CINT, pero ponlo así CLng o CInt.

8461277 · #18 (**permalink**) 21/06/2003, 08:00

Hola amigo, lo coloco como me lo pediste y es mas, tambien encierro entre comilla cedula:
<%ccedula=request.querystring("cedula")
ccedula=Clnt("ccedula")
set rs=createobject("ADODB.Recordset")
sqltxt="select * from Alumnos where cedula ='"&ccedula&"'"
'sqltxt="select * from Alumnos where cedula like '%"&ccedula&"%'"
response.write (sqltxt)
rs.open sqltxt,"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\asp\bdfisica2.mdb;"%>

y da lo mismo:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: 'Clnt'
/asp/resultadonotas4.asp, línea 40

Miguel

Bravenap · #19 (**permalink**) 21/06/2003, 08:59

Suponiendo que la página está alojada en C:\Inetpub\wwwroot\ Prueba a ponerlo así:

Código:

<%

ccdula=Request.Querystring("cedula")
ccdula=CInt(ccdula)

SET BASE = Server.CreateObject("ADODB.Connection")
BASE.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./asp/bdfisica2.mdb")	
SQL = "SELECT * FROM Alumnos WHERE cedula = '"& ccedula &"'"
SET RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open SQL, BASE

IF NOT RS.Eof THEN
Response.Write(RS("ccedula"))
END IF

%>

Como ves, al poner CInt("ccedula") tratabas de convertir a un número la la cadena de texto "ccedula" no el valor de la variable ccedula. Además te ordeno un poquito la conexión a la base de datos para que quede algo más claro, pero esto es a tu gusto.

Un saludo y a ver si ahora ya hay suerte.

8461277 · #20 (**permalink**) 21/06/2003, 09:19

Hermanaso sigue dando el mismo error, es mas te dejo todo el codigo de la pagina de resultado, para que te de una idea de como la hice, a lo mejor no es la perfecta pero funciona si hacer lo que intento. Tambien de doy la direccion de mi pagina para que la vea tampoco es de gran cosa, pero funciona para mis alumnos, la direccion es:

http://enlanzando.com/radiologia ó
http://ir-a.net/radiologia
puede colocar 2 cedulas de mis alumnos para que prubes
15301302
16511932
El codigo completo de dicha pagina resultadosnota3.asp es:
<html>

<head>
<meta http-equiv="Content-Language" content="es">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Consulta de una Base de Dato</title>

</head>

<body>

</table>
</head><body bgcolor="#808000">
<div align="center">
<center>
<table border="2" width="50%" bgcolor="#008000">
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF"><B>RESULTADO DE LAS NOTAS</B></font></td>
</tr>
</table>
</center>
</div>
<BR>
<CENTER><a href="fconsulta4.html"><H2><B>Volver al Formulario</B></H2></a></CENTER>
<BR>
<%
'Aqui compruebo que esta colocando 8 digitos
If Len(ccedula=Request.Querystring("cedula"))<8 then
'el campo no fue llenado, entonces...
response.write "<CENTER><H1><B>¡ERROR!</B></H1></CENTER>"
response.write "<CENTER><B><H1>Por Favor rellenar con Tú Cédula de 8 Dígitos, presiona Volver al Formulario, para intentarlo otra vez</H1></B></CENTER>"
response.end
End If%>

<%ccedula=request.querystring("cedula")
ccedula=Clnt(ccedula)
set rs=createobject("ADODB.Recordset")
sqltxt="select * from Alumnos where cedula ='"&ccedula&"'"
'sqltxt="select * from Alumnos where cedula like '%"&ccedula&"%'"
response.write (sqltxt)
rs.open sqltxt,"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\asp\bdfisica2.mdb;"%>

<%if rs.eof then%>

<h3 align="center">
<font color="#FF0000"><H1>Tú no Existe, por favor presiona <I>"Volver al Formulario"</I> e intenta de nuevo, <I>GRACIAS!!!</I></H1></font></h3>

<%else%>
<%
'Aqui sumo los datos acumulados por parcial
a= rs("A1")
'response.write (a)
b= rs("A2")
'response.write (b)
c= rs("A3")
r= a+b+c
'response.write(r)
'rs("Definitiva")=r
'rs.update
%>
<%
'Aqui digo si aprueba o no
if r >= 5.5 Then
x="<font color='blue'>Aprobado</font>"
else
x="<font color='red'>Reprobado</font>"
End if%>

<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="63%">
<tr>
<td width="10%" align="center" bgcolor="#008080">
<font color="#000000"><B>Cédula</B></font></td>
<td width="35%" align="center" bgcolor="#008080">
<font color="#000000"><B>Apellidos y Nombres</B></font></td> </tr>
<tr>
<td width="10%" align="center" bgcolor="#FFFFFF">
<font color="#000000"><font Size="3"><%=FormatNumber((rs("Cedula").Value), 0, -2, -1, -1)%></font></td>
<td width="35%" align="left" bgcolor="#FFFFFF">
<font color="#000000"><font Size="3"><%=rs("Nombre")%></font></td>
</tr>

</table>
<p> </p>
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" >
<tr>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Parcial I<BR>15%</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Prueba Corta<BR>9,25%</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Trabajo</font><BR>3,75%</B></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Participación<BR>1%</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Asistencia<BR>1%</B></font></td>
<td width="15%" align="center" bgcolor="#008080"><font color="#000000"><B>Acumulado<BR>3 Ptos.</B></font></td>
</tr>
<tr>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("Parcial1")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("PC1")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("T1")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("P1")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("As1")%></font></td>
<td width="15%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=FormatNumber(rs("A1"),2)%></font></td>
</tr>
</table>
<p> </p>
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Parcial II<BR>16%</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Prueba Corta<BR>9%</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Trabajo<BR>3%</font></B></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Participación<BR>1%</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Asistencia<BR>1%</B></font></td>
<td width="15%" align="center" bgcolor="#008080"><font color="#000000"><B>Acumulado<BR>3 Ptos.</B></font></td> </tr>
<tr>

<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("Parcial2")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("PC2")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("T2")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("P2")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("As2")%></font></td>
<td width="15%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=FormatNumber(rs("A2"),2)%></font></td>
</tr>
</table>

<p> </p>
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Parcial III</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Prueba Corta</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Trabajo</font></B></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Participación</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Asistencia</B></font></td>
<td width="15%" align="center" bgcolor="#008080"><font color="#000000"><B>Acumulado<BR>4 Ptos.</B></font></td> </tr>
<tr>

<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("Parcial3")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("PC3")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("T3")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("P3")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("As3")%></font></td>
<td width="15%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=FormatNumber(rs("A3"),2)%></font></td>
</tr>
</table>
<p> </p>
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="14%" align="center"> </td>
<td width="14%" align="center"> </td>
<td width="14%" align="center"> </td>
<td width="14%" align="center"> </td>
<td width="14%" align="center"> </td>
<td width="15%" align="center" bgcolor="#008080"><font color="#000000"><B>Definitiva<BR>10 Ptos.</B></font></td>
</tr>
<tr>
<td width="14%">
<p align="center"> </td>
<td width="14%">
<p align="center"> </td>
<td width="14%">
<p align="center"> </td>
<td width="14%">
<p align="center"> </td>
<td width="14%">
<p align="right"><B><%=x%>=</B></td>
<td width="15%" align="center" bgcolor="#FFFFFF"><b><font face="Times New Roman" size="4" color="#0000FF">
<%=FormatNumber (r,2)%></font></b></td>
</tr>
<%rs.movenext

rs.close
end if%>

</table>
</CENTER>
 
<CENTER>
<p align="center"><a href="fconsulta3.html"><H2><B>Volver al Formulario</B></H2></a></p>
</CENTER>
</body>

</html>

Si puede hacer algo, te lo agradeceria
Migeul

Bravenap · #21 (**permalink**) 21/06/2003, 09:28

Pues a mí no me ha dado ningún error, de hecho he visto que Ambar ha aprobado por los pelos

con un 5.74 aunque más ajustado es el resultado de Braya

.

¿Qué es entonces lo que arroja el error?

Por cierto, las chicas que salen en el redireccionamiento automático se te equivocas al poner la dirección ¿son las alumnas

?

8461277 · #22 (**permalink**) 21/06/2003, 09:35

Jefe, esa es la pgina sin las modificaciones echas por nosotros, ya que ellas estan dentro del servidor virtual que uso con xp, si notates no hay una pagina de aviso que me remita la variable cedula hasta la de resultadonotas3.asp. Solo te di la direccion par que vea como funcionaba sin las modificcaiones que hemos planteado. Es decir que lo que tu viste es la version vieja de lo que yo tenia antes de emprender una nueva version un poco mejorada a mi parecer. Chequea por favor, es mas e codigo de esa pagina de resultados que vistes:
<html>

<head>
<meta http-equiv="Content-Language" content="es">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Consulta de una Base de Dato</title>

</table>
</head><body bgcolor="#808000">
<div align="center">
<center>
<table border="2" width="50%" bgcolor="#008000">
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF"><B>RESULTADO DE LAS NOTAS</B></font></td>
</tr>
</table>
</center>
</div>
<BR>
<CENTER><a href="fconsulta3.html"><H2><B>Volver al Formulario</B></H2></a></CENTER>
<BR>
<%
'Aqui compruebo que esta colocando 8 digitos
If Len(Request.Form("cedula")) <8 then
'el campo no fue llenado, entonces...
response.write "<CENTER><H1><B>¡ERROR!</B></H1></CENTER>"
response.write "<CENTER><B><H1>Por Favor rellenar con Tú Cédula de 8 Dígitos, presiona Volver al Formulario, para intentarlo otra vez</H1></B></CENTER>"
response.end
End If%>

<%ccedula=request.form("cedula")
set rs=createobject("ADODB.Recordset")
sqltxt="select cedula, Nombre, Parcial1, PC1, T1, P1, As1, A1, Parcial2, PC2, T2, P2, As2, A2, Parcial3, PC3, T3, P3, As3, A3, Definitiva from Alumnos where cedula like '%"&ccedula&"%'"
'response.write (sqltxt)
rs.open sqltxt,"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\asp\bdfisica2.mdb;"%>

<%if rs.eof then%>

<h3 align="center">
<font color="#FF0000"><H1>Tú no Existe, por favor presiona <I>"Volver al Formulario"</I> e intenta de nuevo, <I>GRACIAS!!!</I></H1></font></h3>

<%else%>
<%
'Aqui sumo los datos acumulados por parcial
a= rs("A1")
'response.write (a)
b= rs("A2")
'response.write (b)
c= rs("A3")
r= a+b+c
'response.write(r)
'rs("Definitiva")=r
'rs.update
%>
<%
'Aqui digo si aprueba o no
if r >= 5.5 Then
x="<font color='blue'>Aprobado</font>"
else
x="<font color='red'>Reprobado</font>"
End if%>

<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="63%">
<tr>
<td width="10%" align="center" bgcolor="#008080">
<font color="#000000"><B>Cédula</B></font></td>
<td width="35%" align="center" bgcolor="#008080">
<font color="#000000"><B>Apellidos y Nombres</B></font></td> </tr>
<tr>
<td width="10%" align="center" bgcolor="#FFFFFF">
<font color="#000000"><font Size="3"><%=FormatNumber((rs("Cedula").Value), 0, -2, -1, -1)%></font></td>
<td width="35%" align="left" bgcolor="#FFFFFF">
<font color="#000000"><font Size="3"><%=rs("Nombre")%></font></td>
</tr>
<%
Response.Flush%>

</table>
<p> </p>
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" >
<tr>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Parcial I<BR>15%</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Prueba Corta<BR>9,25%</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Trabajo</font><BR>3,75%</B></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Participación<BR>1%</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Asistencia<BR>1%</B></font></td>
<td width="15%" align="center" bgcolor="#008080"><font color="#000000"><B>Acumulado<BR>3 Ptos.</B></font></td>
</tr>
<tr>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("Parcial1")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("PC1")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("T1")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("P1")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("As1")%></font></td>
<td width="15%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=FormatNumber(rs("A1"),2)%></font></td>
</tr>
</table>
<p> </p>
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Parcial II<BR>16%</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Prueba Corta<BR>9%</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Trabajo<BR>3%</font></B></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Participación<BR>1%</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Asistencia<BR>1%</B></font></td>
<td width="15%" align="center" bgcolor="#008080"><font color="#000000"><B>Acumulado<BR>3 Ptos.</B></font></td> </tr>
<tr>

<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("Parcial2")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("PC2")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("T2")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("P2")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("As2")%></font></td>
<td width="15%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=FormatNumber(rs("A2"),2)%></font></td>
</tr>
</table>

<p> </p>
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Parcial III</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Prueba Corta</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Trabajo</font></B></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Participación</B></font></td>
<td width="14%" align="center" bgcolor="#008080"><font color="#000000"><B>Asistencia</B></font></td>
<td width="15%" align="center" bgcolor="#008080"><font color="#000000"><B>Acumulado<BR>4 Ptos.</B></font></td> </tr>
<tr>

<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("Parcial3")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("PC3")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("T3")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("P3")%></font></td>
<td width="14%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=rs("As3")%></font></td>
<td width="15%" align="center" bgcolor="#FFFFFF"><font color="#000000"><font Size="3"><%=FormatNumber(rs("A3"),2)%></font></td>
</tr>
</table>
<p> </p>
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="14%" align="center"> </td>
<td width="14%" align="center"> </td>
<td width="14%" align="center"> </td>
<td width="14%" align="center"> </td>
<td width="14%" align="center"> </td>
<td width="15%" align="center" bgcolor="#008080"><font color="#000000"><B>Definitiva<BR>10 Ptos.</B></font></td>
</tr>
<tr>
<td width="14%">
<p align="center"> </td>
<td width="14%">
<p align="center"> </td>
<td width="14%">
<p align="center"> </td>
<td width="14%">
<p align="center"> </td>
<td width="14%">
<p align="right"><B><%=x%>=</B></td>
<td width="15%" align="center" bgcolor="#FFFFFF"><b><font face="Times New Roman" size="4" color="#0000FF">
<%=FormatNumber (r,2)%></font></b></td>
</tr>
<%rs.movenext

rs.close
end if%>

</table>
</CENTER>
 
<CENTER>
<p align="center"><a href="fconsulta3.html"><H2><B>Volver al Formulario</B></H2></a></p>
</CENTER>
</body>

</html>

Observa la diferncia con respecto al otro

Miguel, que estoy haciendo mal?????

Bravenap · #23 (**permalink**) 21/06/2003, 10:13

Pues mira, ya no sé qué puede estar pasando. Se me ocurre sólo que pruebes varias cosas:

1. Pon la conexión a la base de datos tal y como te lo indiqué antes.
2. Prueba de nuevo con CLng.
3. Cambia de nuevo el SQL a like.
4. No transformes la variable a un valor numérico.
5. Comprueba que en la barra de ruta la variable cedula se pasa correctamente y con su valor.
6. Antes de hacer la conexión, o bien ponla como comentarios (') para que no se ejecute, que te escriba en la página la variable ccedula para ver si está bien.

Si no es así, podemos poner otra vez las dos páginas para empezar de cero

.

8461277 · #24 (**permalink**) 23/06/2003, 07:13

Hola amigo, disculpa por no haberte contestado, lo que pasa es que me conecto en mi trabajo, pero tube el fin de semana investigando y decidi hacerlo desde el priincipio con una bd nueva, empleando los consejos que tu me das: tengo varias preguntas?????
Me puede decir como yo puedo saber que recojo el dato en la pagina de aviso???? porque sigo creyendo que no la envia a la pagina de resultado, ya que como te dije prove y me sale esto nuevo:

Tipo de error:
ADODB.Field (0x80020009)
El valor de BOF o EOF es True, o el actual registro se eliminó; la operación solicitada requiere un registro actual.
/asp/resultadonotas5.asp

Creo que indica que dicha variable lo elimina o no lo recoge???? creo de todas manera orientame, hoy realizare lo que me dejaste el sabado. Ademas si tu tiene un ejemplo de paso de variables entre paginas mandamelo a mi correo para observar y probar, mi e-mail: es [email protected]
Gracias miguel, y estare por aqui hasta el sabado en la mañana

Bravenap · #25 (**permalink**) 23/06/2003, 07:49

Como dicen los forenses, vayamos por partes

:

Tenemos la primera página formulario.html. En ella rellenamos el campo del formulario donde introducimos la cadena a buscar más tarde.

Código:

<input type="text" name="cedula" size="8">

Cuando le damos a enviar nos lleva a la página aviso.asp donde habrá que recoger el contenido del formulario para más tarde redireccionar.

Código:

<%
cedula=Request.Form("cedula")
%>
<meta http-equiv="refresh" content="5;URL=resultadonotas4.asp?cedula=<%=cedula%>">

Bueno, pues ahí creo que estaba el error. Nos habíamos comido el = y por eso, si te fijas en la barra de direcciones, probablemente te pasara la siguiente ruta

http://www.dominio.com/.../resultado...p?cedula546879

cuando tenía que haber sido

http://www.dominio.com/.../resultado...?cedula=546879

Ahora probablemente funcione. El último error significaba que la consulta había llegado al final de la tabla sin encontrar nada, ya que ¡no se le había pasado nada!

vamos a ver si esta es la definitiva, que nos van a tener que dar un premio

Un saludo.

8461277 · #26 (**permalink**) 23/06/2003, 08:35

Hermano todavia nada en la barra de direccion se presenta esto:

http://lumenxxi/asp/resultadonotas4.asp?cedula

mas nada, tu tiene razon deberia ser como:

http://lumenxxi/asp/resultadonotas4.asp?cedula=15301302

pero no es asi, siguiremos revisando????, es mas estuve buscando donde est que nos faltaba el (=)????????

Miguel

8461277 · #27 (**permalink**) 23/06/2003, 09:00

logre resolver algo, por lo meno ya aparece en la ruta:

select * from Alumnos where cedula ='16511932'
Tú no Existe, por favor presiona "Volver al Formulario" e intenta de nuevo, GRACIAS!!!

COMO VES SE IMPRIME EL VALOR QUE TRAE DE LA SEGUNDA PAGINA PERO DICE QUE EL NO EXISTE, CUANDO SI QUE SERA ESTA VEZ???
Otra pregunta, que me recomienda que debo hacer un campo numerico en access, es decir como seria el formato mas comun para trabaja con paginas asp?????

MIGUEL, SIENTO QUE NOS ESTAMOS ACERCANDO A LA RESPUESTA????

Bravenap · #28 (**permalink**) 23/06/2003, 17:44

Tengo poca práctica con ASP sobre Access pero yo prefiero usar siempre campos de texto.

Sobre el nuevo error que obtienes me da que vuelve a ser problema de los tipos de datos. Prueba a hacer tú una consulta a la base de datos sin rellenar el formulario, es decir, directamente sobre el código, con y sin comillas

select * from Alumnos where cedula ='16511932'

select * from Alumnos where cedula =16511932

Y con un valor que sepas seguro que existe, claro.

Un saludo.

8461277 · #29 (**permalink**) 25/06/2003, 07:06

Hola amigo, gracias por tu pasencia, ya lo resolvi y todo gracias a ti, espero no haberte atormentado con estas pequeñeses por lo menos fuiste lo bastante diligente para guiarme. Pronto me tendras por aqui preguntando tonterias!!

Gracias Miguel