Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

marvazoler

Código para análise

Por , em ASP Clássico

Recommended Posts

marvazoler    0

marvazoler
Postado

Olá galera beleza?

 

O código abaixo está precisando de uma solução, não é exatamente

um problema mas é uma forma mais fácil de mostrar o resultado

 

O script abaixo indica que os dados estão sendo mostrado em colunas na vertical

mas o que eu gostaria de fazer é mostrar na horizontal.

Alguém pode me dar um help?

O campo que vai mostrar em horizontal é o campo CENTRO

<%
			' Declaração da variavel Referencia_anterior
			Dim Referencia_anterior
				   Referencia_anterior = 0
			Do while not oRs.eof
		%>
		</font> <strong><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"> 
		</font></strong> 
		<table width="435" border="0" cellspacing="0" cellpadding="0">
		  <% 
		   	'Compara o valor do registro anterior com o atual e caso seja diferente ele cria os componentes na tela, impedindo que uma referencia seja repetida		   
		   	if (oRs("REFERENCIA") <> Referencia_anterior) then
				Referencia_anterior = oRs("REFERENCIA")
		   %>
		  <tr bgcolor="#CCCCCC"> 
			<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">REFERÊNCIA:</font><font color="#660000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong> 
			  <% Response.Write oRs("REFERENCIA.DESCR")%>
			  </strong></font></td>
		  </tr>
		  <%
				' Finaliza a comparação
				end if
			%>
		  <tr> 
			<td height="22" valign="top"> 
			  <table width="435" border="0" cellspacing="0" cellpadding="0">
				<tr>
				  <td><% coluna = coluna + 1 %><%=oRs("centro")%></td>
				</tr>
				  <%if coluna >= 8 then %>
				  <%coluna = 0%>
				<Tr>
				  <%end if%>				
				</Tr>  
			  </table>
			  </td>
		  </tr>
		</table>
		<% 
  oRs.MoveNext 
  Loop 
  Loop   
%>
desde já agradeço

Compartilhar este post

Link para o post
Compartilhar em outros sites

dataset    0

dataset
Postado

Então ...

 

você precisa colocar o <tr bgcolor="#CCCCCC"> fora do while, e o <tr> que fica depois do "Finaliza a comparação end if " precisa estar fora do while tambpem... deixa só o <td> dentro...

 

daí a cada volta do while ele nao cria uma nova linha (horizotal) ele vai criando apenas os tds (vertical)

 

Capite ?

 

Só relembrando... a mesma coisa que você fizer na parte de cima, você deve fazer na parte de baixo, ou seja, tirar as finalizações das tags HTML de detro do while.

 

Qualquer coisa, posta aí.

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

marvazoler    0

marvazoler
Postado

Amigão obrigado pela atenção

 

o que você me disse não deu certo, por favor dê uma olhada neste escript, eu peguei de uma colega aqui dentro, veja a parte que está o campo CENTRO, do jeito que está me mostra

em vertical, eu preciso em horizontal.

 

<%

Dim oConn

Dim oRs

Dim filePath

Dim varlinha

Dim vartrajeto

Dim vardia

filePath = Server.MapPath("banco.mdb")

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filePath

Set oRs = Server.CreateObject("ADODB.Recordset")

varlinha = Request.QueryString("linha")

vardia = Request.QueryString("dia")

vartrajeto = Request.QueryString("trajeto")

Set oRs = oConn.Execute("SELECT HORARIO.*,LINHA.LINHA,TRAJETO.DESCR,DIA.DIA,REFERENCIA.DESCR FROM ((((HORARIO LEFT JOIN LINHA ON LINHA.CODIGO = HORARIO.COD_LINHA) LEFT JOIN TRAJETO ON TRAJETO.CODIGO = HORARIO.TRAJETO) LEFT JOIN DIA ON DIA.CODIGO = HORARIO.COD_DIA) LEFT JOIN REFERENCIA ON REFERENCIA.CODIGO = HORARIO.REFERENCIA) WHERE HORARIO.COD_LINHA = "&varlinha&" AND HORARIO.trajeto = "&vartrajeto&" AND HORARIO.cod_dia = "&vardia&" order by referencia,centro,horario.cod_dia")

if oRs.EOF then

response.write "<script>history.back(1);alert('Registro não encontrado.')</script>"

end if

 

%>

<br>

<font color="#CC0000" size="2" face="Verdana, Arial, Helvetica, sans-serif"> </font>

<table width="555" border="0" align="center" cellpadding="0" cellspacing="0" class="edit">

<tr valign="top">

<td width="555" height="177">

<div align="center">

 

 

<table width="435" border="0" cellspacing="0" cellpadding="0" height="55" >

<tr bgcolor="#000066">

<td width="435" height="18">

<div align="right"></div>

<div align="center"> <font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>LINHA: 

<% Response.Write ("0" & oRs("trajeto"))%>

-

<% Response.Write oRs("trajeto.DESCR")%>

</strong></font> <font color="#FF9900"><strong><font color="#FF9900">

</font></strong></font> </div></td>

</tr>

 

<tr>

<td height="18"> <div align="center"><strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">

</font></strong>

<table width="435" border="0" cellspacing="0" cellpadding="0">

<tr>

<td width="273" bgcolor="#97DDFF"> <div align="left"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>

<% Response.Write oRs("DIA")%>

</strong></font></div></td>

</tr>

<tr>

<td bgcolor="#FFFFFF"></td>

</tr>

</table>

<strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">

</font></strong></div></td>

</tr>

</table>

<%

' Declaração da variavel Referencia_anterior

Dim Referencia_anterior

Do while not oRs.eof

%>

</font> <strong><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">

</font></strong>

<%

'Compara o valor do registro anterior com o atual e caso seja diferente ele cria os componentes na tela, impedindo que uma referencia seja repetida

if (oRs("REFERENCIA") <> Referencia_anterior) then

Referencia_anterior = oRs("REFERENCIA")

%>

 

<table width="435" border="0" cellspacing="0" cellpadding="0">

<tr bgcolor="#CCCCCC">

<td><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">REFERÊNCIA:</font><font color="#660000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>

<% Response.Write oRs("REFERENCIA.DESCR")%>

</strong></font></td>

</tr>

<%

' Finaliza a comparação

end if

'

%>

<tr>

<td height="48" valign="top"><strong> </strong><strong><font size="1" face="Verdana, Arial, Helvetica, sans-serif">

<%do while not ors.eof

coluna = coluna + 1%>

<table width="435" border="0">

<Tr>

<Td><%=ors("centro")%></td>

</tr><Tr>

</tr>

</table><%if coluna >= 3 then

coluna = 0

%>

<%end if%>

<%

ors.movenext

loop

loop

%>

</td>

</tr>

</table>

<div align="left"><img src="file:///S|/bot%F5es.png" onClick="java script:history.back(-1)"></div>

</div></td>

</tr>

</table>

Compartilhar este post

Link para o post
Compartilhar em outros sites

dataset    0

dataset
Postado

Amigo.. o teu codigo ta fora das tags code.

 

É só analizar... a sua dúvida é simples demais, entao vejo que você nao tem conhecimento sobre a linguagem ASP e nem HTML. Sugiro um estudo, pode ser até uma olhada basica nas duas linguagens coisa de 2 ou 3 dias, você vai crescer bastante.

 

Mas vamos la...

 

Veja que essa parte está dentro do while do seu Do while not oRs.eof

<table width="435" border="0" cellspacing="0" cellpadding="0">
<tr bgcolor="#CCCCCC">

Tira ele e coloca depois do </table> emediatemente acima. A mesma lógica você faz após o Loop

 

Mas pensa na dica que te dei... de estudar... beleza?

 

Abraços.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito