Manejo de fecha en una tabla

[DanX03]

Hola que tal tengo el siguiente problema

Nececito generar una tabla en la cual tengo que colocar nombre del dia dada una fecha determinada por el usuario. El problema que tengo es a la hora de generar la fecha cuando a las fechas son de 2 meses distintos por ejemplo un reporte que va desde el15/11/2010 al 17/12/2010, el problema esta a la hora de sacar los nombres de los dias correspondientes al mes de diciembre he intentado lo siguiente:

Código ASP:

<%funcion para obtener el nombre del dia
function nomdia(fecha)
    if left(fecha,5)="32/01" or left(fecha,5)="32/03" or left(fecha,5)="32/05" or left(fecha,5)="32/07" or left(fecha,5)="32/08" or left(fecha,5)="32/10" then
        m2=mid(fecha,4,2)+1
        y=right(fecha,4)
        fechaa="01/"&m2&"/"&y
    elseif left(fechaa,5)="31/04" or left(fechaa,5)="31/06" or left(fechaa,5)="31/09" or left(fechaa,5)="31/11"then
        m2=mid(fecha,4,2)+1
        y=right(fecha,4)
        fechaa="01/"&m2&"/"&y
    elseif left(fechaa,5)="29/02" then
        m2=mid(fecha,4,2)+1
        y=right(fecha,4)
        fechaa="01/"&m2&"/"&y
    elseif left(fechaa,5)="32/12" then
        m2=mid(fecha,4,2)+1
        y2=right(fecha,4)+1
        fechaa="01/"&m2&"/"&y2
    end if
    response.Write(fecha)
    nomdia= weekdayname(weekday(fecha))
end function
%>
<%
'parte en la que se genera la tabla
while diac<=dias
    fechaa=d1&"/"&m&"/"&y
    if left(fechaa,5)="32/01" or left(fechaa,5)="32/03" or left(fechaa,5)="32/05" or left(fechaa,5)="32/07" or left(fechaa,5)="32/08" or left(fechaa,5)="32/10" then
        d1=1
    elseif left(fechaa,5)="31/04" or left(fechaa,5)="31/06" or left(fechaa,5)="31/09" or left(fechaa,5)="31/11"then
        d1=1
    elseif left(fechaa,5)="29/02" then
        d1=1
    elseif left(fechaa,5)="32/12" then
        d1=1
    end if
%>
    <td width="2%"><div align="center"><strong><%=d1%><br><%=nomdia(fechaa)%> &nbsp;</strong></div></td>
    <%
    d1=d1+1
    diac=diac+1
    wend
%>
 

El promebla esta es que cuando llega al ultimo dia del mes y cambiar al primero del siguiente mes me marca como error que la fecha es incorrecta o que la operacion no es valida

[mc_quake]

genere esto copia y pega en un documento .asp en blanco y pruebalo

diac = "15/11/2010" y dias = "17/12/2010" debes cambiarlos por tus variables que recojas


<%@LANGUAGE="VBSCRIPT"%>
<%'funcion para obtener el nombre del dia
function nomdia(fecha)
Session.LCID = 1034
'response.Write(fecha)
nomdia= weekdayname(weekday(fecha))
end function

Function LastDay(MyMonth, MyYear)
Session.LCID = 1034
Select Case MyMonth
Case 1, 3, 5, 7, 8, 10, 12
LastDay = 31
Case 4, 6, 9, 11
LastDay = 30
Case 2
If IsDate(MyYear & "-" & MyMonth & "-" & "29") Then LastDay = 29 Else LastDay = 28
Case Else
LastDay = 0
End Select
End Function
%>
<%
diac = "15/11/2010"
dias = "17/12/2010"

can_meses= 0
For Meses = month(diac) To month(dias)

can_meses = can_meses +1

Next



For A = Year(diac) To Year(dias)
diaspormes = 0
contador = 0
fechaS = 0
For M = month(diac) To month(dias)

diaspormes = LastDay(M, A)
contador = contador + 1



For D = Day(diac) To day(diaspormes+1)

fecha = D&"/"&m&"/"&A

Response.write(fecha&"--"&nomdia(fecha)&"<br>")

Next

Next
Next

%>