Horario semanal

[Myakire]

Algo rápido ...

Código:

<table border=1>
<tr><td>Domingo<td>Lunes<td>Martes<td>Miércoles<td>Jueves<td>Viernes<td>Sábado
<tr>
<%
Hoy = Weekday(Date())
Fecha = DateAdd("d",(Hoy-1)*(-1), Now())
'Como la semana empieza en Domingo (1) y termina en Sábado (7), iniciamos una variable con la fecha de inicio de semana. Si hoy es el día 4, hay que hacer un DateAdd con -3.
for i=1 to 7
  %><td><%=Fecha%><%
  Fecha = DateAdd("d",1, Fecha)
next
%>
</table>

Saludos