Pequeño problemas de fechas

[Bluesman74cl]

Estoy haciendo una agenda semanal que va de Lunes a Viernes con un calendario que me permite avanzar en semanas, años y meses.... El caso es que estoy recogiendo asi la fecha.. y cuando es fin de mes..siempre se me cae el sistema.. osea... si quiero avanzar en mes me devuelve a la semana anterior ..mas que nada por la condición que tengo.. alguien podria ayudarme a mejorar este código que está "MUY MAL HECHO".. es que no encuentro otra forma de hacerlo... Gracias desde ya...

Código:

Mes     = Request.Querystring("Month")
Anno    = Request.Querystring("Year")
dia     = Request.Querystring("dia")

If IsEmpty(Mes)  then Mes   = Month(Date) end if
if IsEmpty(Anno) then Anno  = Year(Date) end if
if IsEmpty(dia)  then dia   = Day(date) end if
fecha = dateserial(anno, mes, dia)
if weekday(fecha) = 2 then 
fecha1       = dateadd("d", 1 , fecha)
fecha2       = dateadd("d", 2 , fecha)
fecha3       = dateadd("d", 3 , fecha)
fecha4       = dateadd("d", 4 , fecha)
mes          = month(fecha)
dia          = day(fecha)
anno         = year(fecha)

end if


if weekday(fecha) = 3 then 
fecha        = dateadd("d", -1 , fecha)
fecha1       = dateadd("d", 1 , fecha)
fecha2       = dateadd("d", 2 , fecha)
fecha3       = dateadd("d", 3 , fecha)
fecha4       = dateadd("d", 4 , fecha)
mes          = month(fecha)
dia          = day(fecha)
anno         = year(fecha)
end if
if weekday(fecha) = 4 then 
fecha        = dateadd("d", -2 , fecha)
fecha1       = dateadd("d", 1 , fecha) 
fecha2       = dateadd("d", 2 , fecha) 
fecha3       = dateadd("d", 3 , fecha)
fecha4       = dateadd("d", 4 , fecha)
mes          = month(fecha)
dia          = day(fecha)
anno         = year(fecha)
end if
if weekday(fecha) = 5 then 
fecha        = dateadd("d", -3 , fecha)
fecha1       = dateadd("d", 1 , fecha) 
fecha2       = dateadd("d", 2 , fecha)
fecha3       = dateadd("d", 3 , fecha)
fecha4       = dateadd("d", 4 , fecha)
mes          = month(fecha)
dia          = day(fecha)
anno         = year(fecha)
end if
if weekday(fecha) = 6 then 
fecha        = dateadd("d", -4 , fecha)
fecha1       = dateadd("d", 1 , fecha) 
fecha2       = dateadd("d", 2 , fecha)
fecha3       = dateadd("d", 3 , fecha)
fecha4       = dateadd("d", 4 , fecha)
mes          = month(fecha)
dia          = day(fecha)
anno         = year(fecha)
end if
if weekday(fecha) = 7 then 
fecha        = dateadd("d", -5 , fecha)
fecha1       = dateadd("d", 1 , fecha) 
fecha2       = dateadd("d", 2 , fecha)
fecha3       = dateadd("d", 3 , fecha)
fecha4       = dateadd("d", 4 , fecha)
mes          = month(fecha)
dia          = day(fecha)
anno         = year(fecha)
end if
if weekday(fecha) = 8 then 
fecha        = dateadd("d", -6 , fecha)
fecha1       = dateadd("d", 1 , fecha) 
fecha2       = dateadd("d", 2 , fecha) 
fecha3       = dateadd("d", 3 , fecha)
fecha4       = dateadd("d", 4 , fecha)
mes          = month(fecha)
dia          = day(fecha)
anno         = year(fecha)
end if