Sequencia

[Guest Ana :)]

GALERA,

ESSE CODIGO ABAIXO, GERA UMA "SEQUENCIAZINHA"...... DESTA FORMA:

7:30 - 7:00

8:30 - 8:00

9:30 - 9:00

10:30 - 10:00

EU QUERIA QUE GERASSE A SEGUINTE SEQUENCIA:

7:30 - 8:00

8:00 - 8:30

8:30 - 9:00

9:00 - 9:30

SE alguém PUDER ME AJUDAR..........AGRADECEREI MUITO...

<%

For I = 7 to 18

If I = 18 then

strAdder = 0

else

strAdder = I + 1

end if

Response.Write "<TR><TD ALIGN='RIGHT' CLASS='MARGIN' WIDTH=100>"&I &":30 - " &strAdder _

&":00</TD><TD WIDTH='30' CLASS='CONTENT'>" &aMessageMOD(I) &"</TD><TD WIDTH='100' CLASS='SUBJECT'>&nbsp;" &aMessages(I) _

&"</TD><TD WIDTH='300'>&nbsp;" &aMessageContent(I) &"</TD><TD WIDTH=40><a href='editmessages.asp?code=1&time=" &strAdder &":00" &"&date=" _

&dtDate &"'><IMG SRC='./images/modify.gif' border=0 ALT='add/edit'></a>&nbsp;&nbsp;" &"<a href='editmessages.asp?code=2&time=" &strAdder &":00" &"&date=" &dtDate _

&"'><IMG SRC='./images/delete.gif' border=0 ALT='delete'></a></TD></TR>"

Next

%>

bjim

[Graymalkin]

Veja se seria isso:

h1 = timeserial(7, 30, 0)
do
    s = left(h1, 5)
    h1 = timeserial(hour(h1), minute(h1)+30, 0)
    s = s & " - " & left(h1, 5)
    response.write s & "<br />"
loop until h1 = timeserial(9, 30, 0)

Certo? ;)

Graymalkin

[Marcio-Free-lance]

Olá, como vai.

está como você pediu, espero ter ajudado, vendo que você está com dificuldade de montar a tabela em lista, basta só acrecentar mais TD e asim por diante, abraçõs.

7:30 8:00

8:00 8:30

8:30 9:00

9:00 9:30

9:30 10:00

<table width="12%" border="0" align="center" cellpadding="0" cellspacing="0">

<%

For I = 7 to 18

If I = 18 then

strAdder = 0

else

strAdder = I + 1

end if

%>

<tr>

<td width="45%"><%=I%>:30 </td>

<td width="55%"><%=strAdder%>:00</td>

</tr>

<tr>

<td><%=strAdder%>:00</td>

<td><%=strAdder%>:30</td>

</tr>

<%Next%>

</table>