Guia de Programação

[smez]

Estou tentando fazer uma Guia de Programação igual a esse

http://www.tvalphaville.com.br/index.php?s...iadeprogramacao

mas o meu sai assim

http://www.supermidia.tv.br/2010/programacao.asp

não esta mesclando as celulas

estou fazendo assim

<table width="100%" border="0" cellspacing="2" cellpadding="4">
              <%
              Session.LCID = 1046
function PoeZero(numero)
if len(numero) = 1 then
PoeZero = "0" & numero
else
PoeZero = numero
end if
end function

function ViraHora(numero)
if numero <> "" then
ViraHora = PoeZero(int(numero/60)) & ":" & PoeZero(numero-(int(numero/60)*60))
end if
end function


          vDia = Day(Date)
        vHora = Hour(now)
        vMinuto = Minute(now)
        vMes = Month(Date)
        vAno = Year(Date)        
HorasInicial = vHora - 1
if vMinuto < 30 Then
HoraInicial = HorasInicial&":30"
elseif vMinuto >= 30 Then
HoraInicial = vHora&":00"
End If
asHoras = HoraInicial
HoraFinal = DateAdd("h",2,HoraInicial)

set canal = createobject("adodb.recordset")
set canal.activeconnection = abredb
SQL = "SELECT * FROM Canal"
canal.open sql
%>
              <tr>
                <td width="45" rowspan="2" align="center" class="tituloCanal">CANAIS</td>
                <td width="734" colspan="4" align="center" class="tituloData"><strong><%=WeekDayName(WeekDay(Date()))%>, <%=Day(Date)%>/<%=Month(Date)%>/<%=Year(Date)%></strong></td>
              </tr>
              <tr>
                <%
  asHora = dateAdd("n",30,HoraInicial)
  vData_inicial = vDia&"/" & vMes & "/" & vAno&" "&asHora&":00"
  while DatePart("h",HoraInicial) <> DatePart("h",HoraFinal)
  Hora = dateAdd("n",30,HoraInicial)
  vData_Final = vDia&"/" & vMes & "/" & vAno&" "&dateAdd("n",30,HoraInicial)
  %>
                <td class="tituloHora">&nbsp;&nbsp;<strong><%=FormatDateTime(Hora, 4)%></strong></td>
                <%HoraInicial = DateAdd("n",30,HoraInicial) : Wend%>
              </tr>
              <%
   while not canal.eof
   Set programacao = createobject("adodb.recordset")
   set programacao.activeconnection = abredb
   SQL = "set dateformat DMY; SELECT TOP 4 * FROM Programacao WHERE DtInicial >= '"&vData_inicial&"' AND DtFinal <= '"&vData_Final&"' AND CdCanal = '"&canal("CdCanal")&"' ORDER BY DtInicial ASC"
   programacao.open sql
   
   if not programacao.eof then
  %>
              <tr>
                <td align="center" valign="middle" class="canalAmarelo"><img src="imagensDinamica/canais/colorido/<%=canal("logo")%>" /></td>
                <%while not programacao.eof
   DataInicial = formatDateTime(programacao("DtInicial"), 4)
   DataFinal = formatDateTime(programacao("DtFinal"), 4)
   Duracao1 = (DataFinal)-(DataInicial)
   Duracao = (Duracao1)
   celulas = Duracao / 30
                  if strcor = "DestaqueAmarelo" then
                    strcor = "DestaqueAzul"
                else
                    strcor="DestaqueAmarelo"
                end if
    %>
                <td class="<%=strcor%>" <%If celulas > 1 then%>colspan="<%=celulas%>"<%End IF%> align="center"><%=programacao("Nome")%></td>
                <%programacao.movenext : wend%>
              </tr>
              <%
 end if
  canal.movenext : wend
  Dim HoraInicial, HoraFinal
'HoraInicial = "00:00"
  %>
            </table>

o que será que estou fazendo de errado???

[Rafael Spilki]

Isso aí você vai resolver no forum de HTML / CSS usando colspan ou rowspan... aguarde algum moderador mover seu tópico pra área correta.

[]'s