Loop dentro de uma tabela

[purygringo 0]

Olá,

 

estou com um problema no codigo com o seguinte erro:

error '80020009'.

 

tenho duas tabelas que estao relacionadas, no meu codigo estou colocando um loop dentro de outro e esta gerando o erro, mas nao sei como resolver.

 

ASP

[*]<%

[*]'On Error Resume Next

[*]Do While Not DadosHotel.EOF%>

[*]<tr bgcolor="#CCCC99">

[*]<td><%= DadosHotel("Nome")%></td>

[*]<td colspan="5" bgcolor="#FFFFFF"><div align="left"><strong></strong></div>

[*]<div align="left">

[*]<table width="100%" border="0" cellspacing="0" cellpadding="0">

[*]<%Do While DadosTarifa("id_Hotel") = DadosHotel("id_Hotel")

[*]if not DadosHotel.EOF or DadosHotel.BOF then

[*]%>

[*]<tr bgcolor="#CCCC99">

[*]<td><%= DadosTarifa("Categoria")%></td>

[*]<td width="49"><%= formatcurrency(DadosTarifa("hotBalcaosgl"))%></td>

[*]<td width="49"><%= formatcurrency(DadosTarifa("hotBalcaodbl"))%></td>

[*]<td width="49"><%= formatcurrency(DadosTarifa("hotAcordosgl"))%></td>

[*]<td width="49"><%= formatcurrency(DadosTarifa("hotAcordodbl"))%></td>

[*]</tr>

[*]<%end if

[*]DadosTarifa.MoveNext

[*]Loop

[*]%>

[*]</table>

[*]</div> </td>

[*]</tr>

[*]<%DadosHotel.MoveNext

[*]Loop

[*]

[*]DadosHotel.Close

[*]Set DadosHotel = Nothing

[*]Fecha_BD()

[*]%>

 

Alguem se habilita, pois ja estou com dor de cabeca.

[mkboy 1]

Pode exibir o erro?

[purygringo 0]

error '80020009' /nznovo/servicos2.asp, line 72

[hargon 64]

O que tem na linha 72?

 

Nao sei do que se trata direito, mas acho que com um SELECT bem feito você eliminaria esse monte de LOOP.

[purygringo 0]

Do While DadosTarifa("id_Hotel") = DadosHotel("id_Hotel")if not DadosHotel.EOF or DadosHotel.BOF thenessa e a linha 72

[dark0 0]

brother, qual a descrição completa do erro?Só o codigo do erro.. não diz exatamente o que está acontecendo..

[hargon 64]

tenta isso... alterei a linha 9

 

ASP

• <%

• 'On Error Resume Next

• Do While Not DadosHotel.EOF%>

• <tr bgcolor="#CCCC99">

• <td><%= DadosHotel("Nome")%></td>

• <td colspan="5" bgcolor="#FFFFFF"><div align="left"><strong></strong></div> 

• <div align="left">

• <table width="100%" border="0" cellspacing="0" cellpadding="0">

• <%Do While Not DadosTarifa.EOF

• if DadosTarifa("id_Hotel") = DadosHotel("id_Hotel") then

• if not DadosHotel.EOF or DadosHotel.BOF then

• %>

• <tr bgcolor="#CCCC99">

• <td><%= DadosTarifa("Categoria")%></td>

• <td width="49"><%= formatcurrency(DadosTarifa("hotBalcaosgl"))%></td>

• <td width="49"><%= formatcurrency(DadosTarifa("hotBalcaodbl"))%></td>

• <td width="49"><%= formatcurrency(DadosTarifa("hotAcordosgl"))%></td>

• <td width="49"><%= formatcurrency(DadosTarifa("hotAcordodbl"))%></td>

• </tr>

• <%end if

• end if

• DadosTarifa.MoveNext

• Loop

• %>

• </table>

• </div> </td>

• </tr>

• <%DadosHotel.MoveNext

• Loop

• DadosHotel.Close

• Set DadosHotel = Nothing

• Fecha_BD()

• %>