data referente a tds os dias da semana corrente

Gente eu toh pensando aqui como eu poderia fazer uma tabela que imprimisse as datas da semana referente ao dia da semama....por exe....

seg - 30/08

ter - 31/08

qua - 01/09

qui - 02/09

--- - 03/09

sab - 04/09

dom - 05/09

sendo que ... como ele imprimiria a data refrente a seg se por exe hj fosse quarta..entaum pensei em fazer da seguinte forma...se for determinado dia da semana, entaum diminue tanto da data ou soma tanto da data....ficou assim...

<% sabedia = day(now)sabesemana = weekday(now)if sabesemana = 1 thenenviadia = sabedia - 6end ifif sabesemana = 2 thenenviadia = sabediaend ifif sabesemana = 3 thenenviadia = sabedia - 1end ifif sabesemana = 4 thenenviadia = sabedia - 2end ifif sabesemana = 5 thenenviadia = sabedia - 3end ifif sabesemana = 6 thenenviadia = sabedia - 4end ifif sabesemana = 7 thenenviadia = sabedia - 5end if mes = month(now)dia= enviadiadia2= dia + 1 dia3= dia2 + 1dia4= dia3 + 1dia5= dia4 + 1dia6= dia5 + 1dia7= dia6 + 1if mes= 1 or 3 or 5 or 7 or 8 or 10 or 12 then if dia=31 then dia2= 1 dia3= dia2 + 1 dia4= dia3 + 1 dia5= dia4 + 1 dia6= dia5 + 1 dia7= dia6 + 1 end if if dia2=31 then dia3= 1 dia4= dia3 + 1 dia5= dia4 + 1 dia6= dia5 + 1 dia7= dia6 + 1 end if if dia3=31 then dia4= 1 dia5= dia4 + 1 dia6= dia5 + 1 dia7= dia6 + 1 end if if dia4=31 then dia5= 1 dia6= dia5 + 1 dia7= dia6 + 1 end if if dia5=31 then dia6= 1 dia7= dia6 + 1 end if if dia6=31 then dia7= 1 dia= dia7 + 1 end if else if mes= 2 then if dia=29 then dia2= 1 dia3= dia2 + 1 dia4= dia3 + 1 dia5= dia4 + 1 dia6= dia5 + 1 dia7= dia6 + 1 end if if dia2=29 then dia3= 1 dia4= dia3 + 1 dia5= dia4 + 1 dia6= dia5 + 1 dia7= dia6 + 1 end if if dia3=29 then dia4= 1 dia5= dia4 + 1 dia6= dia5 + 1 dia7= dia6 + 1 end if if dia4=29 then dia5= 1 dia6= dia5 + 1 dia7= dia6 + 1 end if if dia5=29 then dia6= 1 dia7= dia6 + 1 end if if dia6=29 then dia7= 1 dia= dia7 + 1 end if else if dia=30 then dia2= 1 dia3= dia2 + 1 dia4= dia3 + 1 dia5= dia4 + 1 dia6= dia5 + 1 dia7= dia6 + 1 end if if dia2=30 then dia3= 1 dia4= dia3 + 1 dia5= dia4 + 1 dia6= dia5 + 1 dia7= dia6 + 1 end if if dia3=30 then dia4= 1 dia5= dia4 + 1 dia6= dia5 + 1 dia7= dia6 + 1 end if if dia4=30 then dia5= 1 dia6= dia5 + 1 dia7= dia6 + 1 end if if dia5=30 then dia6= 1 dia7= dia6 + 1 end if if dia6=30 then dia7= 1 dia= dia7 + 1 end if end if end if%>

sendo que o problema é que ele imprimi 0 e números negativos dependendo da data testada...serah que eh mais fácil fazer o mesmo processo com case....de que forma eu poderia fazer com case....ou implementar nessa estruturas objetivando um melhor resultado.....

vwl glr...