ASP - manejos de fechas

hola, tengo una base de dato y tengo que lanzar un UPDATE cada 7 dias de la semana o bien sea semanalmente, como puedo manejar esas fechas, he probado asi..

dia = date(day)
dia = dia+7
pero si el dia de hoy es 31 o 30 ..... la suma daria mayor a 31 y un mes no tiene mas de 31 dias..

tiene que haber otra forma de manejar esto... sin mas

saludos

espero que te sirva o no entendi tu problema

<%@ Language=VBScript %>
<%
hoy = WeekDay(DateSerial(year(date), month(date), day(date)))
month
select case hoy
case 1
response.write "domingo"
case 2
response.write "lunes"
case 3
response.write "martes"
case 4
response.write "miercoles"
case 5
response.write "jueves"
case 6
response.write "viernes"
case 7
response.write "sabado"
end select
%>