Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO VECCHIE VERSIONI
      MODULI AGGIUNTIVI
         errore mod calendario

errore mod calendario

Autore Messaggio
007

Utente
Utente
75 Discussioni


Profilo - 007 		16 dicembre 2003 alle 23:13:07 Profilo - 007Invia un messaggio privato Rispondi quotando
Modificato il 17 dicembre 2003 alle 13:23:29
ho un problema col mod calendario, qualcuno può aiutarmi? in locale tutto funziona, ma quando lo metto online mi da questo errore:
Expected statement

/includes/blocks-inc.asp, line 78

Case 2 :
^
io uso sempre la stessa procedure per aggiungere
il blocco , perchè in locale funziona e online no? mi date una mano per favore, grazie Ciao
---------------
007
007

Utente
Utente
75 Discussioni


Profilo - 007 		18 dicembre 2003 alle 12:07:48 Profilo - 007Invia un messaggio privato Rispondi quotando
POSSIBILE CHE NESSUNO MI DA UNA MANO.....!?
---------------
007
Anna

Responsabile Forum

Esperto
Esperto
1146 Discussioni


Profilo - Anna 		18 dicembre 2003 alle 12:34:33 Profilo - AnnaInvia un messaggio privato Rispondi quotando
ciao,
credo che l'errore dipenda dall'omissione di qualcosa nel block-inc.asp me lo incolli qui sotto, così ti dico come correggere!
ciao
ps: nn disperare se nn sempre rispondiamo presto, non sempre abbiamo tantissimo tempo a disposizione :(
---------------
L’opera umana più bella è di essere utile al prossimo, senza che gli altri abbiano delle pretese (Sofocle)
007

Utente
Utente
75 Discussioni


Profilo - 007 		18 dicembre 2003 alle 12:40:04 Profilo - 007Invia un messaggio privato Rispondi quotando
Modificato il 18 dicembre 2003 alle 12:46:32
Ciao, grazie di aver risposto questo è il file, in locale funziona bene quando lo metto online mi da quell'errore
%>
<!-- #include file='newsscroll-inc.asp' -->
<%
' Display a custom block
' IN : iBlockNumber (int) : superior to 0 (exemple 1, 2 ...)
' OUT : -
Sub DisplayCustomBlock(iBlockNumber)
' Exemple for one block
' Add also a translation for the title of the block, for pattern.asp pages (as LANG_BLOCK_1 ...)
If iBlockNumber > 0 Then
Select Case iBlockNumber
Case 1 :
CreateTopTable "Ultime News", "Ultime News"
Response.Write "<div align=""center"">" & vbCRLF
Response.Write "<MARQUEE behavior='scroll' align='center' direction='up' height='100' scrollamount='2' scrolldelay='80' onmouseover='this.stop()' onmouseout='this.start()'>" & vbCRLF
DisplayScrollNewsLinks GLOBAL_NEWS_LINKS_TOP, 0
Response.Write "</div>" & vbCRLF
CreateBottomTable ""
Case 2 :
If bDisplayCalendario Then

'Se si vuole il calendario in cornice, togliere il commento alle righe CreateTopTable e CreateBottomTable

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)

Mese = request("mese")

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

if mese="" then Mese=MeseNow
if mese="0" then Mese=MeseNow
dtInizio=DateSerial(Year(dt), 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

'mesedopo=mese+1
meseprima=mese-1

Response.Write("<table border='0' cellpadding='0' cellspacing='0' width='135' 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 & """><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 & "</center></font></td>")
Response.Write("<td height='10' valign='middle' align='center' class=myTitle><a href=""default.asp?mese=" & mesedopo & """><font size='2'><center>></center></font></a></td>")
Response.Write("</tr></table>")
Response.Write("<table border='0' cellpadding='0' cellspacing='1' width='135' 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
CreateBottomTable ""

End If


End Select
End If
End Sub
%>
---------------
007

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 : 63
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: 425 Notizie: 180 Sondaggi: 11 Preferiti: 226585 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi