Loop

[Marcos-rj]

To tentando fazer um loop. mas da o seguinte erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: '[string: "08:00"]'

/odontocenter/loop.asp, line 6

<%horario = "08:00"
horario = left(horario, 5)%>
<p>&nbsp;</p>
<div align="center">
<table border="1" width="56%">
<%for j = horario to "18:00"%>
<tr>
<td>&nbsp;<%=j%></td>
</tr>
<%
horario = dateadd("n", 60,horario)
next
%>    
</table>
</div>

Se eu não colocar no formato de hora "08:00" funciona, mas preciso que seja no formato de hora.

alguém teria uma ideia? já to sem e de cabeça cheia!

[Marcos-rj]

Resolvi assim:

<%
horario = 8
%>
<p>&nbsp;</p>
<div align="center">
<table border="1" width="56%">
<%for j = horario to 18%>
<tr>
<td>&nbsp;
<%
hora = FormatdateTime(j&":00",4)
Response.Write(hora)
%></td>
</tr>
<%
next
%> 
</table>
</div>