O princípio é relativamente simples, ou seja, usar a função de data para obter a data e depois substituí-la por uma matriz de string fixa.
Copie o código da seguinte forma:td=date()
'Desta vez definimos a data atual, principalmente para conveniência de depuração. Em aplicações reais, você pode usar a data do dia atual..
str=123456
' Gera uma string com o dia específico. da semana, basta tomá-lo com base na posição..
for x=1 to 7
'Este loop serve principalmente para determinar qual dia é a segunda-feira mais próxima...
se td-weekday(td)+1+x=td then
'Este julgamento é para fazer a data atual aparecer em vermelho, não tem valor especial..
response.write <font color=red>week&mid(str,x,1)&:&FormatDateTime(td-weekday(td)+1+ x, 1)&</font><br>
else
response.write week&mid(str,x,1)&:&FormatDateTime(td-weekday(td)+1+x,1)&<br>
end if
next