01 aprile 2004 alle 16:27:24 ciao a tutti ho installato il mod in oggetto ma sulla pagina default.asp mi da questo errore:
Microsoft VB_Script compilation error '800a0400'
Expected statement
/includes/blocks-inc.asp, line 31
Case 2 : ^
Questo è il contenuto dell'inclide bloks-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 "BlockTableName", "Block Title " & iBlockNumber Response.Write "Block content " & iBlockNumber CreateBottomTable "" End Select End If End Sub 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
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
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 If
%>
Saprebbe aiutarmi qualcuno Grazie
nextart
Eliminato
0 Discussione
01 aprile 2004 alle 16:39:23 la struttura e' questa: If iBlockNumber > 0 Then Select Case iBlockNumber
case1: CreateTopTable "BlockTableName", "Block Title " & iBlockNumber Response.Write "Block content " & iBlockNumber CreateBottomTable "" case2: mod calendario e alla fine
End Select End If End Sub
praticamente queste tre righe devono essere sempre in fondo, i case li inserisci all'interno. prova a correggere il tuo file. spostando queste tre righe
End Select End If End Sub
alla fine prima dell'ultimo %>. (k)
diarma
Principiante
14 Discussioni
01 aprile 2004 alle 16:51:09 ok grazie ora è tutto ok
diarma
Principiante
14 Discussioni
01 aprile 2004 alle 17:48:56 senti ma come mai non mi compare il calendario in homepage?
vedo solo il testo scorrevole
nextart
Eliminato
0 Discussione
01 aprile 2004 alle 17:57:00 lo hai aggiunto come blocco? vai in admin-gestione blocchi clicca su elimina e vedrai che dovrebbe apparirti ....
diarma
Principiante
14 Discussioni
01 aprile 2004 alle 23:05:09 niente non mi appare
nextart
Eliminato
0 Discussione
02 aprile 2004 alle 08:52:46 x diarma: che file hai modificato? lo hai inserito come blocco? x far apparire un blocco devi: aggiungerlo in configuration-inc.asp, inserirlo nel case del blocks-inc.asp e aggiungere le righe nel file IT.XML. Dopodiche' vai in admin-gestione blocchi e clicchi su elimina. fammi sapere
diarma
Principiante
14 Discussioni
02 aprile 2004 alle 15:31:27 nel file IT.xml ho inserito: <translation name="LANG_BLOCK_N2blocco">Calendario</translation> come ultimo blocco. Prima di </lang>
E' giusto
diarma
Principiante
14 Discussioni
02 aprile 2004 alle 15:36:49 nel file configuration-inc.asp invece ho inserito: ' Database constants Const DB_MAIN = "main" Const DB_FORUM = "forum" --> Const DB_EVENTI = "eventi"