Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Galera to fazendo um sistema para listar do banco de dados as informações de alguns hoteis cadastrados, tem q aparecer assim
Nome | Categoria | Apto SGL | Apto Dbl / Twn
Só q o q acontece pra cada valor de apartamento eu tenho um registro, quer dizer não dá pra fazer um while normal somente mudando de registro pq senão um Hotel repetiria 3 vezes e isso não pode acontecer.
Eu fiz o seguinte:
ASP
[*]
[*]<!-- #Include File = "Conn.asp" -->
[*]<% Response.Buffer = True %>
[*]
[*]<%
[*]'IDProjeto = Session("Projeto")
[*]IDProjeto = 72
[*]
[*]Query = "SELECT DISTINCT ENTIDADE.ID, ENTIDADE.NOME, HOTEL.CATEGORIA"_
[*] & " FROM ENTIDADE, NEGOCIACAOHOSPEDAGEM, NEGOCIACAOHOSPEDAGEMSERVICOH, HOTEL"_
[*] & " WHERE NEGOCIACAOHOSPEDAGEM.ID_HOTEL = ENTIDADE.ID AND"_
[*] & " HOTEL.ID_ENTIDADE = ENTIDADE.ID AND"_
[*] & " NEGOCIACAOHOSPEDAGEM.ID = NEGOCIACAOHOSPEDAGEMSERVICOH.ID_NEGOCIACAOHOSPEDAGEM AND"_
[*] & " NEGOCIACAOHOSPEDAGEM.ID_HOTEL = ENTIDADE.ID AND"_
[*] & " NEGOCIACAOHOSPEDAGEM.ID_PROJETO = " & IDProjeto & "ORDER BY Categoria Desc"
[*]
[*]Set ObjRSHoteis = Server.CreateObject("ADODB.Recordset")
[*]%>
[*]<html>
[*]<head>
[*]<title>Documento sem título</title>
[*]<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
[*]</head>[*]
[*]<body>
[*]<table width="100%" border="1" cellspacing="2">
[*] <tr bgcolor="#dddddd">
[*] <td><div align="center"><font size="2"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Hotéis</font></strong></font></div></td>
[*] <td><div align="center"><font size="2"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Categoria</font></strong></font></div></td>
[*] <td><div align="center"><font size="2"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Apto Individual</font></strong></font></div></td>
[*] <td><div align="center"><font size="2"><strong><font face="Verdana, Arial, Helvetica, sans-serif">Apto Duplo / Twin</font></strong></font></div></td>
[*] </tr>[*] <%
[*] ObjRSHoteis.CursorType = 2
[*] ObjRSHoteis.LockType = 3
[*] ObjRSHoteis.Open Query, Conn_Reserva
[*]
[*] While ObjRSHoteis.Eof = False
[*] %>
[*] <tr bgcolor="#F2F2F2">
[*] <td><div align="center"><%=ObjRSHoteis(1)%></div></td>[*] <%
[*] Select case ObjRSHoteis(2)
[*] Case 0
[*] Categoria = "Turística"
[*] Case 1
[*] Categoria = "Luxo"
[*] Case 2
[*] Categoria = "Superior"
[*] End Select
[*] %>
[*] <td><div align="center"><%=Categoria%></div></td>
[*] <%
[*] IDHotel = ObjRSHoteis(0)
[*]
[*] QueryTarifa = "SELECT SERVICOHOSPEDAGEM.TARIFAVENDA, SERVICO.DESCRICAO"_
[*] & " FROM ENTIDADE, NEGOCIACAOHOSPEDAGEM, SERVICOHOSPEDAGEM, NEGOCIACAOHOSPEDAGEMSERVICOH, HOTEL, SERVICO"_
[*] & " WHERE NEGOCIACAOHOSPEDAGEM.ID_HOTEL = " & IDHotel & " AND"_
[*] & " HOTEL.ID_ENTIDADE = ENTIDADE.ID AND"_
[*] & " SERVICOHOSPEDAGEM.ID = NEGOCIACAOHOSPEDAGEMSERVICOH.ID_SERVICOHOSPEDAGEM AND"_
[*] & " NEGOCIACAOHOSPEDAGEM.ID = NEGOCIACAOHOSPEDAGEMSERVICOH.ID_NEGOCIACAOHOSPEDAGEM AND"_
[*] & " NEGOCIACAOHOSPEDAGEM.ID_HOTEL = ENTIDADE.ID AND"_
[*] & " SERVICO.ID = SERVICOHOSPEDAGEM.ID_SERVICO AND"_
[*] & " NEGOCIACAOHOSPEDAGEM.ID_PROJETO = " & IDProjeto & "order by SERVICOHOSPEDAGEM.TARIFAVENDA"
[*]
[*] Set ObjRSTarifas = Server.CreateObject("ADODB.Recordset")
[*] ObjRSTarifas.CursorType = 2
[*] ObjRSTarifas.LockType = 3
[*]
[*] ObjRSTarifas.Open QueryTarifa, Conn_reserva
[*] %>
[*] <td><div align="center"><%=CInt(ObjRSTarifas("TarifaVenda"))%></div></td>
[*] <%
[*] ObjRSTarifas.MoveNext
[*] %>
[*] <td><div align="center"><%=CInt(ObjRSTarifas("TarifaVenda"))%></div></td>
[*] <%
[*] ObjRSTarifas.Close
[*] Set ObjRSTarifas = Nothing
[*] %>
[*] </tr>
[*] <% ObjRSHoteis.MoveNext : Wend %>
[*]</table>
[*] <%
[*] ObjRSHoteis.Close
[*] Set ObjRSHoteis = Nothing
[*] %>
[*]</body>
[*]</html>[*]
[*]
Só que na hora que eu executo apresenta um erro:
Tipo de erro:
(0x80020009)
Exceção.
/testeIT/tarifas.asp, line 75
na linha 75 tem o seguinte:
<td><div align="center"><%=CInt(ObjRSTarifas("TarifaVenda"))%></div></td>
Se alguém souber o pq disso por favor me ajude. :(
Carregando comentários...