Problemas Com Hora

[smez]

<%
    Dim DataAtual

    DataAtual=month(date) & "/" & day(date) & "/" & year(Date)	
    HoraAtual=hour(Time) & ":" & minute(time)

    regs = 10'Aqui setamos quantos registros serão listados por página
    pag = request.querystring("pagina")

    if pag = "" Then
    pag = 1
    end if

    set rs = createobject("adodb.recordset")
    set rs.activeconnection = abredb
    
    rs.cursortype = 3 'Definimos o cursor a ser utilizado
    rs.pagesize = regs
    
    SQL = "SELECT *  FROM PROGRAMACAO INNER JOIN CANAIS ON CANAIS.CODIGO = PROGRAMACAO.COD_CANAL WHERE DATA = #" & DataAtual & "# AND HORA = #" & HoraAtual & "# ORDER by codigo ASC"
    rs.open sql
    
    if rs.eof or rs.bof then
    response.write "<font face='Verdana, Arial, helvetica, sans-serif' size='5'><b>SEM PROGRAMAÇÃO</b></font>"
    else
    rs.absolutepage = pag
    contador = 0
            	%>
                  <table border="0" width="95%" cellspacing="1">
    <%do while not rs.eof and contador < rs.pagesize%>
                    <tr>
                      <td width="3%"><font size="1" face="Verdana"><img border="0" src="canais_p/21.jpg"></font></td>
                      <td width="97%"><font size="1" face="Verdana"><b><font color="#FFFFFF">Nome
                        do canal</font></b><br>
                        <br>
                        <font color="#FFFFFF">12:00 - programa</font></font></td>
                    </tr>
              <%
    contador = contador +1
    rs.movenext
    loop
    %>
                  </table>
              <%
    end if
    rs.close
    set rs = nothing
    set conn=nothing
    %>

ele mostra somente a consulta da hora atual, como que eu faço para ele mostrar assim se não tiver cadastrado a hora atual ele mostra a proxima hora + proxima,

Como eu faço isso

[Super_Zica_Man]

não entendi cara como assim hora + proxima ?

[smez]

tipo assim to fazendo um site de TV A CABO, dai na página principal mostra o que esta passado na tv, tipo assim

SBT

12:00 - chaves

GLOBO

12:00 - Jornal HJ

Se não estiver cadastrado no banco de dados nada de um seguinte horario ele mostra a proxima programação do horario + proximo.

[smez]

help

[Super_Zica_Man]

cara postei a duvida em varios forums pra ver se alguém sabia olha aki se serve pra vc:

http://www.superasp.com.br/forum_respostas...p=5,5&id=9139#1

se nãoserviu possot entar arrumar outra coisa meu pai disse q ele sabe um jeito de programar isso em delphi com um componente do programa pod ser q ele saiba programar isso pra vb também vo ver qualquer coisa posto aki...