Foros del Web » Programando para Internet » ASP Clásico »

Esta precarga no funciona PORQUE???

Estas en el tema de Esta precarga no funciona PORQUE??? en el foro de ASP Clásico en Foros del Web. Este es el codigo que uso: <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 ...
  #1 (permalink)  
Antiguo 19/06/2003, 15:44
Avatar de 8461277  
Fecha de Ingreso: diciembre-2002
Ubicación: san juan de los morros
Mensajes: 887
Antigüedad: 22 años, 4 meses
Puntos: 1
Esta precarga no funciona PORQUE???

Este es el codigo que uso:

<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>

<!-- PRIMER PASO: Copiar dentro del tag HEAD -->
<script language="JavaScript">

ns=document.layers
ie=document.all

function esconde() {
if (ie) document.precarga.style.visibility="hidden";
if(ns) document.precarga.visibility="hide";
}
// -->
</script>


</head>

<body>
<!-- SEGUNDO PASO: Copiar dentro del tag BODY -->
<body onload="esconde();">
<script language="JavaScript">
if(ie || ns) document.write('<div id="precarga" align="center"><br><h2><b>Cargando....</b><br>Por Favor Espere...!!!</div>');
</script>
<%
Response.Flush
' Aquí while para iterar el recordset
%>

</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;"%>

Hojala que me puedan ayudar, Gracias

Miguel
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 21:26.