Suddividere un agenda in mezze ore

[diegoctn]

Ragazzi dovrei suddividere un agenda in mezze ore. Con questo mio vecchio script riesco a suddividere di ora in ora. A me serve la mezz'ora. Consigli?

    
     For I = 8 to 12 
       If I = 12 then 
         strAdder = 0
        else
         strAdder = I + 1
       end if   
       Response.Write "<TR><TD ALIGN='RIGHT' CLASS='MARGIN' WIDTH=100>"&I   &":00-" &strAdder  _
       &":00</TD><TD WIDTH='30' CLASS='CONTENT'>" &aMessageMOD(I) &"</TD><TD WIDTH='100' CLASS='SUBJECT'>" &aMessages(I) _
       &"</TD><TD WIDTH='300'>" &aMessageContent(I) &"</TD><TD WIDTH=40><a href='editmessages.asp?code=1&time=" &I &":00" &"&date=" _
       &dtDate &"'>[img]./images/modify.gif[/img]</a>" &"<a href='editmessages.asp?code=2&time=" &I &":00" &"&date=" &dtDate _
       &"'>[img]./images/delete.gif[/img]</a></TD></TR>"
     Next

[imente]

invece che andare da 0 a 12 vai da 0 a 24
poi se il numero è pari è l'ora, se il numero è dispari è la mezz'ora

ovviamente devi modificarti anche l'array...

ovviamente parlo di un adattamento dello script
non so come sia costruito il resto, forse l'avrei impostato in maniera diversa