26 maggio 2003 alle 22:00:02 Una piccola precisazione sull'installazione del MOD, chi ha usato il metodo per dividere i vari mod in due colonne e inchiodarli nelle rispettive posizioni, deve editare il file: /includes/manager-inc.asp e, aggiungere il block con la procedura spiegata più volte e presente nei tutorials. Ciauzz Dj
--------------- A lavare la testa ai somari, ci si rimette l'acqua e il sapone!
29 maggio 2003 alle 14:15:11 Modificato il 29 maggio 2003 alle 14:17:49Grazie a Redbaron sono riuscito a riolvere un problema che ho incontrato nell'installazione del MOD Calendario sul mio server che non ne voleva sapere di leggere la data in formato europeo (Giorno/mese/anno).
Se anche a voi dovesse capitare di vedereil calendario che riporta un numero di giorni sballato e cliccando su una data vedere la dicitura in cima che riporta in sequenza prima il mese e poi il giorno, potete risolvere inserendo nella block-inc.asp il case che mi ha modificato il mitico Redbaron.
Case X :
If bDisplayCalendario Then Session.LCID= 1040
'Se si vuole il calendario in cornice, togliere il commento alle righe CreateTopTable e CreateBottomTable
CreateTopTable "Calendario", "Calendario" Dim Giorno, Mese, Anno, MeseNow, mesed, mesedopo, meseprima, DataInizio, CounterDay, Week, DayX, isNow Dim DayAttuale, sUrl, dt, i, dtInizio, s
Mese = request("mese") If Mese <= 9 then Mese = "0"&Mese&""
Anno = left(dt,4) MeseNow = left(right(dt,4),2)
if mese="" then Mese=MeseNow if mese="0" then Mese=MeseNow dtInizio=DateSerial(Anno, CInt(mese), 1) select case mese case 1 : mesed="Gennaio" case 2 : mesed="Febbraio" case 3 : mesed="Marzo" case 4 : mesed="Aprile" case 5 : mesed="Maggio" case 6 : mesed="Giugno" case 7 : mesed="Luglio" case 8 : mesed="Agosto" case 9 : mesed="Settembre" case 10: mesed="Ottobre" case 11: mesed="Novembre" case 12: mesed="Dicembre" case else end select
DataInizio= "" & Mese & "/1/" & Anno 'response.write DataInizio Mese = DatePart("M",DataInizio) 'If Mese <= 9 then Mese = "0"&Mese&"" 'response.write Mese 'response.write Anno
i=0 dt=dtInizio 'response.write dt CounterDay = 1 for Week=0 to 5 Response.Write "<tr>" & vbCRLF for DayX = 1 to 7 DayAttuale=Datepart("w",DataInizio,2) 'response.write DayAttuale if DayAttuale = DayX then dt=DateAdd("d", dtInizio, i) i=i+1 if Mese=Month(DataInizio) then s="<td width=""20"" height=""10"" valign='middle' align='center' title="""& dt &""" " 'if CInt(CounterDay) = CInt(Giorno) and Mese = MeseNow then if CounterDay=day(now) and Mese=CInt(MeseNow) then s=s& "class=myCalendardaystoday" else s=s& "class=myCalendardays" end if if CInt(CounterDay)<=9 then CounterDay="0"&CounterDay s=s&"><a href="""&GLOBAL_SITE_URL&GLOBAL_SITE_PATH&"eventi.asp?date=" &CDate( CounterDay & "/" & mese & "/" & Anno )&"""><font class=myCalendarDaynow>" if getEventiCount(dt)>0 then s=s& "<font class=myCalendardaysev>" & CounterDay & "</font>" else s=s& CounterDay end if s=s& "</a></font>" & vbCRLF Response.Write s Response.Write "</td>" & vbCRLF DataInizio=dateadd("d",1,DataInizio) CounterDay=CInt(CounterDay)+1 else Week=5 end if else Response.Write "<td valign='middle' align='center' width=""20"" height=""10"" bgcolor=""#DBDBDB""><font size='2' color=""#DBDBDB"">00</font></td>" & vbCRLF end if next Response.Write "</tr>" & vbCRLF next Response.Write "</table><br>" & vbCRLF CreateBottomTable ""
Anna
Versione stampabile | Questa pagina è stata eseguita in 0,2070313 secondi.
MODULI AGGIUNTIVI
Mod Calendario
26 maggio 2003 alle 22:00:02 
