Ho una pagina dove sulla sinistra ho il calendario e sulla destra una volta cliccato il giorno mi fa vedere gli eventi che ci sono.
Se sono nel mese di dicembre e clicco sul giorno 12 mi fa vedere sulla destra l'evento di quel giorno ma il calendario ritorna alla data (mese attuale - Ottobre).
la pagina la richiamo calendario.asp?month=12&year=2005 perchè mi cambi i mesi
La stessa pagina la chiamo calendario.asp?date=23%2F12%2F2005 perchè mi faccia vedere se vi è l'evento in quel dato giorno.
Quando chiamo calendario.asp?date= la pagina mi va ad eseguire lo script sotto per cercare il mese giusto; se infatti il (Request("MONTH") è vuoto mi va al mese attuale (questo mi serve per la prima chiamata della pagina).
Come fare per risolvere il problema?
' Check for valid month input
'non mi funziona
' ++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++
If IsEmpty(Request("MONTH")) OR NOT IsNumeric(Request("MONTH")) Then
datToday = Date()
intThisMonth = Month(datToday)
ElseIf CInt(Request("MONTH")) < 1 OR CInt(Request("MONTH")) > 12 Then
datToday = Date()
intThisMonth = Month(datToday)
Else
intThisMonth = CInt(Request("MONTH"))
End If
'+++++++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++++
' Check for valid year input
If IsEmpty(Request("YEAR")) OR NOT IsNumeric(Request("YEAR")) Then
datToday = Date()
intThisYear = Year(datToday)
Else
intThisYear = CInt(Request("YEAR"))
End If
strMonthName = MonthName(intThisMonth)
datFirstDay = DateSerial(intThisYear, intThisMonth, 1)
intFirstWeekDay = WeekDay(datFirstDay, vbSunday)
intLastDay = GetLastDay(intThisMonth, intThisYear)
Rispondi quotando