[ AYUDA ] Ciclo While Me cuesta entenderlo

[maurozone]

Hola. Soy MauroZone. Durante todo este dia estuve divagando por estos foros sacando funciones, codigos y todo. Pero todavia tengo un problema. Miren, hay un espacio en el que tengo que mostrar ciertas imagenes cargadas en Access. Bueno. Este codigo:

Código PHP:

  <style type='text/css'> 
<!-- 
.Estilo1 { 
    font-size: 12px; 
    font-family: Geneva, Arial, Helvetica, sans-serif; 
} 
--> 
</style> 
<% 
 
      Dim conexion, registros, basedatos, imagenes 
 
      ' El primer paso consiste en declarar algunas variables  
      'que nos serán de utilidad. 
 
 
      ' De estas tres variables, utilizaremos la primera para nuestra conexión  
      'a la base de datos, la segunda para seleccionar los registros y la tercera  
      'para ingresar la dirección donde se encuentra nuestra base de datos. 
 
       
 
      basedatos = Server.MapPath("BaseEnviar.mdb") 
 
      ' En la asignación anterior, la instrucción Server.Mappath  
      'nos da el Path completo en el servidor hacia el archivo ejemplo.mdb que  
      'se encuentra en el mismo directorio que el ejemplo. 
 
      ' También se puede utilizar el path completo para definir esta variable  
     ' que quedaría algo así: 
 
      ' basedatos = "c:\Inetpub\wwwroot\ejemplo.mdb" 
 
 
       
 
      Set conexion = Server.CreateObject("ADODB.Connection") 
 
      ' Declaramos nuestra conexión a bases de datos. 
 
       
 
      conexion.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("BaseEnviar.mdb"))  
 
 
      ' Abrimos la conexión a través del OLE Driver., indicandole  
      'la dirección de la base de datos por medio de la variable que declaramos  
      'algunas líneas antes. 
 
      ' Así como utilizamos el OLE Driver, también pudimos utilizar una conexión  
     ' por medio del ODBC y un DNS declarado en el sistema, aunque este Driver  
     ' es el más rápido y recomendado para utilizar. 
 
       
 
      Set registros = conexion.Execute("SELECT * FROM Tblm_elempro") 
 
      ' A continuación, declaramos en registro los datos  
     ' que estaremos seleccionando en la base de datos. 
 
      ' Por medio de lenguaje SQL Seleccionamos todos los campos de la registros.Fields Ejemplo,  
     ' ordenándolos por el campo Nombre. 
 
 
       
 
      Do While Not registros.EOF 
 
      ' Para empezar a mostrar los registros, utilizamos  
     ' un CICLO que se repetirá mientras no lleguemos al final de los registros  
     ' encontrados. 
 
      ' Luego de esto, iremos tomando los valores de la base de datos e imprimiéndolos  
     ' dentro del HTML. 
 
Response.Write("<table width='520'border='0'cellpadding='0'cellspacing='0'class='Estilo1'>") 
Response.Write("<!--DWLayoutTable-->") 
Response.Write("<tr>") 
Response.Write("<td height='17'colspan='2'valign='top'><!--DWLayoutEmptyCell-->&nbsp;</td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='224'colspan='2'align='center'valign='middle'>") 
Response.Write("<img src='figuras/" & registros.Fields("rutagraf") & "' width='370' height='265'/><br/></td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td width='168'height='15'valign='top'><strong>Precio</strong></td>") 
Response.Write("<td width='352'valign='top'>"& registros.Fields("precio") &"</td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='15'valign='top'><strong>Antiguedad</strong></td>") 
Response.Write("<td valign='top'>"&registros.Fields("anioantiguedad")&"</td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='16'valign='top'><strong>Estado</strong></td>") 
Response.Write("<td valign='top'>"&registros.Fields("estado")&"</td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='15'valign='top'><strong>Provincia</strong></td>") 
Response.Write("<td valign='top'>"&registros.Fields("des_provincia")&"</td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='15'valign='top'><strong>Poblacion</strong></td>") 
Response.Write("<td valign='top'>"&registros.Fields("des_poblacion")&"</td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='15'valign='top'><strong>Zona</strong></td>") 
Response.Write("<td valign='top'>"&registros.Fields("des_zona")&"</td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='15'valign='top'><strong>Orientacion / Vista</strong></td>") 
Response.Write("<td valign='top'>"&registros.Fields("des_orientacion")&" / "&registros.Fields("des_vista")&"</td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='15'valign='top'><strong>Ubicacion</strong></td>") 
Response.Write("<td>"&registros.Fields("ubicacion")&"</td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='15'valign='top'><strong>Amoblamiento</strong></td>") 
Response.Write("<td valign='top'>"&registros.Fields("amueblado")&"</td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='15'valign='top'><strong>Techo</strong></td>") 
Response.Write("<td valign='top'>"&registros.Fields("Techo")&"</td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='15'valign='top'><strong>Habitaciones</strong></td>") 
Response.Write("<td valign='top'>"&registros.Fields("num_salones")&"</td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='15'valign='top'><strong>Armarios</strong></td>") 
Response.Write("<td valign='top'>"&registros.Fields("num_armarios")&"</td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='15'valign='top'><strong>Terrazas</strong></td>") 
Response.Write("<td valign='top'>"&registros.Fields("num_terrazas")&"</td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='15'valign='middle'><strong>Servicios Publicos</strong></td>") 
Response.Write("<td valign='top'>"&registros.Fields("aguacaliente")&"</td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='15'valign='top'><strong>Financiacion</strong></td>") 
Response.Write("<td valign='top'>"&registros.Fields("financiacion")&"</td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='19'>&nbsp;</td>") 
Response.Write("<td></td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='103'colspan='2'valign='top'><table width='100%'border='0'cellpadding='0'cellspacing='0'>") 
Response.Write("<!--DWLayoutTable-->") 
Response.Write("<tr>") 
Set imagenes = conexion.Execute("SELECT * FROM Tblr_elemGraf WHERE cod_elemento = " & registros.Fields("cod_elemento")) 
while imagenes.Fields("cod_elemento") = registros.Fields("cod_elemento") 
' Mostrando Habitaciones 
Response.Write("<td width='100'height='103'valign='top'><table width='100%'border='0'cellpadding='0'cellspacing='0'>") 
Response.Write("<!--DWLayoutTable-->") 
Response.Write("<tr>") 
Response.Write("<td width='100'height='82'align='center'valign='middle'>" & imagenes.Fields("Descripcion") & "<a href='" & imagenes.Fields("rutagraf") & "' target='_blank'><img src='figuras/" & imagenes.Fields("rutagraf")& "' width='50' height='50' border='0' /></a></td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='21'align='center'valign='middle'></td>") 
Response.Write("</tr>") 
Response.Write("</table></td>") 
Response.Write("<tdwidth='420'>&nbsp;</td>") 
Response.Write("</tr>") 
Response.Write("</table></td>") 
wend 
Response.Write("<td width='100'height='103'valign='top'><table width='100%'border='0'cellpadding='0'cellspacing='0'>") 
Response.Write("<!--DWLayoutTable-->") 
Response.Write("<tr>") 
Response.Write("<td width='100'height='82'align='center'valign='middle'>MINIATURA<imgsrc='figuras/.jpg'width='50'height='50'/></td>") 
Response.Write("</tr>") 
Response.Write("<tr>") 
Response.Write("<td height='21'align='center'valign='middle'>"&registros.Fields("cocina")&"</td>") 
Response.Write("</tr>") 
Response.Write("</table></td>") 
Response.Write("<tdwidth='420'>&nbsp;</td>") 
Response.Write("</tr>") 
Response.Write("</table></td>") 
Response.Write("</tr>") 
Response.Write("</table>") 
 
      registros.MoveNext 
 
      Loop 
 
      ' Cada vez que se ejecuta el ciclo, le pedimos  
     ' por medio de .MoveNext que pase al siguiente registro encontrado 
 
      ' La instrucción Loop es la que indica hasta donde debe de repetirse el  
      'ciclo. 
 
 
       
 
      registros.Close 
 
      Set registros = Nothing 
 
      conexion.Close 
 
      Set conexion = Nothing 
 
      'Algo muy importante que debemos recordar es cerrar  
      'nuestras conexiones, para no dejar la base de datos abierta. 
 
 
      ' Para esto, primero la cerramos por medio de .Close y a continuación es  
      'recomendable declararles valores de "nada", para dejar las variables limpias.  
       
 
      %>  
   

Me tira este error:

Código PHP:

  Active Server Pages- Error '80020009'  
 
/aca/prueba.aspx, line 154  
   

Si quieren fijense el codigo. Por favor, agradeceria si me pueden responder a la brevedad. Saludos, Mauro.

[El_Metallick]

Hola amigo... algunas observaciones... no se quien se de el trabajo de averiguar cual es la linea 154 y lo otro... aspx es extención de ASP.NET no de ASP... y tu codigo por lo poco que lo vi es ASP por ende la extensión deberia ser asp... saludos

[trasgukabi]

Iniciado por El_Metallick

Hola amigo... algunas observaciones... no se quien se de el trabajo de averiguar cual es la linea 154 y lo otro... aspx es extención de ASP.NET no de ASP... y tu codigo por lo poco que lo vi es ASP por ende la extensión deberia ser asp... saludos

Eso es indiferente, Metallick

si la línea del error es ésta:

Código:

while imagenes.Fields("cod_elemento") = registros.Fields("cod_elemento")

lee ésto:
http://classicasp.aspfaq.com/general...09-errors.html

Y la próxima vez, especifica un poco más, por favor.

Un saludo

[maurozone]

En esa pagina no esta mi error. No entiendo. Alguien puede postear el codigo corregido?

[El_Metallick]

pues si no esta en esa pagina como vamos a corregirlo???... no entiendo lo que quieres.... saludos

[trasgukabi]

Posteas un error 80020009. Te indico una página donde se explican los errores 80020009. Dices que ahí no está tu error y no das más datos. Y aún pides más ayuda?....sin comentarios.

O pones el error completo que te da, o aprendes a programar. Lo que más rabia te dé.