Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO VECCHIE VERSIONI
      MODULI AGGIUNTIVI
         AIUTO HO UN PROBLEMA CON IL MOD CALENDARIO

AIUTO HO UN PROBLEMA CON IL MOD CALENDARIO

Autore Messaggio
gianma

Principiante
Principiante
1 Discussione


Profilo - gianma 		25 dicembre 2004 alle 02:30:30 Profilo - gianmaInvia un messaggio privato Rispondi quotando
Ragazzi un'aiuto.....ho installato il MOD CALENDARIO, ho seguito tutta la procedura però dopo aver fatto tutti i dovuti aggiornamenti non riesco più a vedere il sito in locale....Il messaggio di errore che ottengo è il seguente

Tipo di errore:
Microsoft VB Script compilation (0x800A03F4)
Expected 'If'
/aspnuke1/includes/blocks-inc.asp, line 139, column 4
End Select
---^


questo è quanto ho scritto dentro Blocks-inc.asp:

<%

' Display a custom block
' IN : iBlockNumber (int) : superior to 0 (exemple 1, 2 ...)
' OUT : -

If iBlockNumber > 0 Then
Select Case iBlockNumber
Case 1 :

If bDisplayCalendario Then

CreateTopTable "Calendario", "Calendario Eventi"
Dim Giorno, Mese, Anno, MeseNow, mesed, mesedopo, meseprima, DataInizio, CounterDay, Week, DayX
Dim DayAttuale, sUrl, dt, i, dtInizio, s

sURL = Request.ServerVariables("SCRIPT_NAME")
dt=Now()

Giorno = day(dt)
MeseNow = month(dt)
Anno = year(dt)

Mese=request("mese")

if Mese="" then
Mese=MeseNow
Anno=year(dt)
else
Mese=Mese
Anno=request("anno")
end if

if Mese="0" then
Mese=12
Anno=request("anno")-1
end if

if Mese="13" then
Mese=1
Anno=request("anno")+1
end if


dtInizio=DateSerial(Anno, CInt(Mese), 1)
select case mese
case 1 : mesed="GEN"
case 2 : mesed="FEB"
case 3 : mesed="MAR"
case 4 : mesed="APR"
case 5 : mesed="MAG"
case 6 : mesed="GIU"
case 7 : mesed="LUG"
case 8 : mesed="AGO"
case 9 : mesed="SET"
case 10: mesed="OTT"
case 11: mesed="NOV"
case 12: mesed="DIC"
case else
end select

mesedopo=Mese+1
meseprima=Mese-1

Response.Write("<table border='0' cellpadding='0' cellspacing='0' width='140' align='center' valign='top'>")
Response.Write("<tr border=0>")
Response.Write("<td height='10' valign='middle' align='center' class=myTitle><a href=""default.asp?mese=" & meseprima & "&anno=" & Anno & """><font size='2'><center><</center></font></a></td>")
Response.Write("<td height='10' valign='middle' colspan='5' align='center' class=myTitle><font size='2'><center>" & mesed &" " & Anno &"</center></font></td>")
Response.Write("<td height='10' valign='middle' align='center' class=myTitle><a href=""default.asp?mese=" & mesedopo & "&anno=" & Anno & """><font size='2'><center>></center></font></a></td>")
Response.Write("</tr></table>")
Response.Write("<table border='0' cellpadding='0' cellspacing='1' width='140' align='center' valign='top'><tr>")
Response.Write("<td height='10' valign='middle' align='center' class=myCalendardays><font class=myCalendardays><center>L</center></font></td>")
Response.Write("<td height='10' valign='middle' align='center' class=myCalendardays><font class=myCalendardays><center>M</center></font></td>")
Response.Write("<td height='10' valign='middle' align='center' class=myCalendardays><font class=myCalendardays><center>M</center></font></td>")
Response.Write("<td height='10' valign='middle' align='center' class=myCalendardays><font class=myCalendardays><center>G</center></font></td>")
Response.Write("<td height='10' valign='middle' align='center' class=myCalendardays><font class=myCalendardays><center>V</center></font></td>")
Response.Write("<td height='10' valign='middle' align='center' class=myCalendardays><font class=myCalendardays><center>S</center></font></td>")
Response.Write("<td height='10' valign='middle' align='center' class=myCalendardays><font class=myCalendardays><center>D</center></font></td>")
Response.Write("</tr>")

DataInizio= "01/" & Mese & "/" & Anno
Mese = DatePart("M",DataInizio)
i=0
dt=dtInizio
CounterDay = 1
for Week=0 to 5
Response.Write "<tr>" & vbCRLF
for DayX = 1 to 7
DayAttuale=Datepart("w",DataInizio,2)
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
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
Response.Write "<center><a href="""&GLOBAL_SITE_URL&GLOBAL_SITE_PATH&"eventiweek.asp""><font size='1'>Questa settimana</font></a></center>" & vbCRLF
CreateBottomTable ""

End Select
End If

%>
potreste darmi una mano???
Grazie mille

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 205
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5688357 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi