• User Newbie

    calendario

    Ciao a tutti vi spiego il mio problema
    ho un database con due date
    data **dal **
    data al
    **ho intenzione di visualizare nel calendario **
    i giorni compresi tra queste due date
    ad esempio
    dal 10/01/2010
    al 15/01/2010

    vi posto il codice e vi evidenzio la parte che non va
    la tabella mi stampa dal giorno 1 gennaio al 10 gennaio
    gli altri giorni non vengono visualizzati tantomeno i giorni compresi tra le due date

    mi potete aiutare grazie

    <%
    session.LCID = 1040
    pagina = request.serverVariables("PATH_INFO")
    g = request.queryString("g")
    m = request.queryString("m")
    a = request.queryString("a")
    if len(g) > 0 and isNumeric(g) then
    g = cLng(g)
    else
    g = datePart("d",date())
    end if
    if len(m) > 0 and isNumeric(m) then
    m = cLng(m)
    else
    m = datePart("m",date())
    end if
    if len(a) > 0 and isNumeric(a) then
    a = cLng(a)
    else
    a = datePart("yyyy",date())
    end if
    dataCorrente = g & "/" & m & "/" & a
    mesePrecedente = dateAdd("m",-1,dataCorrente)
    meseSuccessivo = dateAdd("m",1,dataCorrente)

    response.write "<table width=""600"" border=""1"">" &vbCrLf
    response.write " <tr>" & vbCrLf
    response.write " <td colspan=""2""><a href=""" & pagina & "?g=" & datePart("d",mesePrecedente) & "&m=" & datePart("m",mesePrecedente) & "&a=" & datePart("yyyy",mesePrecedente) & """><-- Mese precedente</a> " & monthName(m) & " " & a & " <a href=""" & pagina & "?g=" & datePart("d",meseSuccessivo) & "&m=" & datePart("m",meseSuccessivo) & "&a=" & datePart("yyyy",meseSuccessivo) & """>Mese successivo --></a></td>" & vbCrLf
    response.write " </tr><table>" &vbCrLf
    for i = 1 to 31
    classe = "spento"
    if isDate(i & "/" & m & "/" & a) then
    if i = g then classe = "accesso"
    response.write "<table border=""1""> <tr>" & vbCrLf
    giornoSettimana = datePart("w",i & "/" & m & "/" & a)
    gSettimana = weekDayName(datePart("w",i & "/" & m & "/" & a))
    if giornoSettimana = 1 Then
    color = "red"
    else
    color = "gray"
    end if
    if giornoSettimana = 1 Then
    color = "red"
    else
    color = "gray"
    end if
    if not (rsAllUsers.EOF) then
    dal = rsAllUsers.Fields.Item("dal").Value
    al = rsAllUsers.Fields.Item("al").Value
    **'Estrapolo il giorno **
    inizio = Day(dal)
    fine = Day(al)

    if not (rsAllUsers.EOF) then
    if i = inizio then
    evento=i
    rsAllUsers.movenext
    else
    evento=""
    end if
    end if

    **response.write "<td width=""80"" class=""" & classe & """><span style='color:"&color&"; background:"&bgcolor&"' ;>" & i & " " & gSettimana & "</span></td><td>" & evento & "</td>" **
    evento=""

    end if
    end if
    next
    response.write "</tr></table>" & vbCrLf
    %>
    <%
    rsAllUsers.Close()
    %>