Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Problema con consulta de base de datos
 Foro Bloqueado  Tema Bloqueado


Autor Temas
mtmunozs
Starting Member

Guatemala
7 Posts
Mensajes - 22 Jul 2007 :  00:18:19  Ver Perfil  Enviar Email
tengo un problema con una pagina sencilla de asp, el error dice lo siguiente:
Microsoft VBScript compilation error '800a03fb'

Expected 'Loop'

/consulta.asp, line 98

y el codigo de la pagina es:

<%

Dim con,rs,sql,datos

datos= Server.MapPath ( "fpdb/compuintel.mdb " )

' Creamos el objeto para la conexion y la abrimos

Set con= Server.CreateObject("ADODB.connection")
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source="&datos&";"


' Creamos la sentencia SQL para interactuar con la base de datos que ya esta abierta y lista para recibir ordenes, y seleccionamos toda la tabla pues queremos todos los registros de la base de datos, la tabla que usaremos en este caso se llama lista ;-).

sql= "SELECT * FROM ordenes"

' Ejecutamos la operacion.

Set rs= con.execute(sql)

%>

<HTML>
<HEAD>
<TITLE>Consulta</TITLE>
</HEAD>
<BODY>
<h2 align="center">Consulta a mi base de datos</h2>
<br>
<Table align="center" width="70%" border="0">
<tr bgcolor="#338899">
<td style="width: 98px">Orden:</td>
<td style="width: 220px">Nombre</td>
<td style="width: 220px">Apellido</td>
</tr>

<%
' Iniciamos un bucle mientras la base de datos no esté vacia

total=0
Do While Not rs.EOF
%>

<!-- Imprimimos el resultado de la consulta -->

<tr>
<td style="width: 98px"><%=rs("ordenes")%></td>
<td style="width: 220px"><%=rs("nombres")%></td>
<td><%=rs("apellidos")%></td>

</tr>
<tr bgcolor="#338899">
<td style="width: 98px">Telefono:</td>
<td style="width: 220px">Equipo:</td>
<td>Falla:</td>
</tr>

<%
' Iniciamos un bucle mientras la base de datos no esté vacia

total=0
Do While Not rs.EOF
%>

<tr>
<td style="width: 98px; height: 74px"><%=rs("telefono")%></td>
<td style="width: 220px; height: 74px"><%=rs("equipo")%></td>
<td style="height: 74px"><%=rs("falla")%></td>
</tr>
<tr bgcolor="#338899">
<td style="width: 98px">Reparaciones:</td>
<td colspan="2"></td>
</tr>

<%
' Iniciamos un bucle mientras la base de datos no esté vacia

total=0
Do While Not rs.EOF
%>

<tr>
<td colspan="3"><%=rs("reparaciones")%></td>
</tr>
<tr bgcolor="#338899">
<td style="width: 98px">Costo:</td>
<td colspan="2"></td>
</tr>

<%
' Iniciamos un bucle mientras la base de datos no esté vacia

total=0
Do While Not rs.EOF
%>

<tr>
<td style="width: 98px"><%=rs("Costo")%></td>
<td colspan="2"></td>
</tr>
</table>
<p align="center" style="text-decoration: underline"><a href="clientes.html">Otra vez</a></p>

</BODY>
</HTML>

Admin
Forum Admin

España
229 Posts
Posted - 31 Jul 2007 :  12:21:59  Ver perfil  Enviar e-mail
los "do while2 estan sin cerrar, debes de cerrarlos con "loop"

Do While NOT rs.EOF%>

<tr>
<td><%= rs("Producto")%></td>
<td><%= rs("Cantidad")%></td>
<td align="right"><%= FormatCurrency(rs("Precio"))%></td>
</tr>

<% rs.MoveNext
Loop
rs.Close
Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar