Registro em coluna com problema

[marvazoler 0]

Olá galera beleza?

 

Estou com um séria problema e não consigo resolver por nada, o script abaixo

 

precisa de uma olhada, sou iniciante em asp.

é o seguinte:

 

Nas últimas linhas o campo CENTRO precisa ser mostrar em colunas, com a seguinte estrutura

 

05:00 06:00 07:00

05:05 06:15 07:03

05:10 06:23 07:55

 

bom, fiz tudo que eu sabia para funcionar pois podem ver que tem um if no meio

 

olha não sei mais o que fazer!

 

<%
Dim oConn 
Dim oRs
Dim filePath
Dim Referencia_anterior
Dim varHora
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")
if oRs.EOF then
	response.write "<script>history.back(1);alert('Registro não encontrado.')</script>"
end if

%>
</font><br> 
<table width="400" align="center" cellpadding="0" cellspacing="0" class="edit">
  <tr valign="top"> 
	<td width="555" height="99"> 
	  <table width="400" cellpadding="0" cellspacing="0">
		<tr> 
		   <td>
			<div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>LINHA: 
			  <% Response.Write ("0" & oRs("trajeto"))%>
			  - 
			  <% Response.Write oRs("trajeto.DESCR")%>
			  </strong></font></div>
		   </td>
		  </tr>
	  </table><br>
	  <table width="400" cellspacing="0" cellpadding="0">
	  <%do while not oRs.eof%>
		<tr> 
		   <td bgcolor="#FFFFFF"> 
			 <div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong> 
			 <% 
		  if (oRs("REFERENCIA") <> Referencia_anterior) then				 Referencia_anterior = oRs("REFERENCIA")
			 %>
			 <% Response.Write oRs("REFERENCIA.DESCR")%>
				</strong></font></div>
		   </td>
		</tr>
		<tr>
		   <td><div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong> 
				<% Response.Write oRs("DIA")%>
				</strong></font></div>
		   </td>
		</tr><%end if%>
	  <tr>			
		 <td>
		  <%
			   varHora = oRs("centro")			   			 
			   If Hour(varHora) = Hour(oRs("centro")) Then
			   response.write oRs("centro") &"<BR>"
			   Else
			   response.write "</td><td>"
			   End If
			   varHora = oRs("centro")
			  %>
			</td>
		</tr>
		<%
			oRs.movenext		 
			loop					
	   %>  
			
	 </table>
	 <div align="center"><img src="bot%F5es.png" onClick="java script:history.back(-1)"></div>
	</td>
  </tr>
</table>

Desde já agradeço

[Ted k' 126]

qual é o IF???

[marvazoler 0]

Camarada beleza?

é o seguinte

 

se você puder acessar isso. www.vjd.com.br/filtrar030_teste.asp

 

e comolar no filtro

 

Grupo BELA VISTA

LINHA BELA VISTA

DIA SEGUNDA A SEXTA

 

vai ver que os registros estão mosstrando por referencia certinho

mas é preciso que me mostre horizontalmento o campo

 

centro, que são os horários