Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO VECCHIE VERSIONI
      MODULI AGGIUNTIVI
         SONO ALLA FRUTTA AIUTO..AIUTO MODCALENDARIO EVENTI

SONO ALLA FRUTTA AIUTO..AIUTO MODCALENDARIO EVENTI

Autore Messaggio
SAMPEI

Utente
Utente
61 Discussioni


Profilo - SAMPEI 		19 aprile 2004 alle 20:13:32 Profilo - SAMPEIInvia un messaggio privato simonesampei@msn.com Rispondi quotando
Modificato il 19 aprile 2004 alle 21:12:38
Allora ho provato il mod in locale e gira che una meraviglia faccio le modifiche uppo ed ecco la sorpresa..
Microsoft VB_Script runtime error '800a01f4'
Variable is undefined: 'getEventiCount'

/includes/blocks-inc.asp, line 122
****************************************************
eccovi qua sotto il file
' 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 "Visubox", "MiniChat"%>
<!--#include virtual='/visubox/box.asp'-->
<%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)
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 If


End Select
End If
End Sub

%>
VI PREGO MI DITE CHE COSA HO SBAGLIATO???
VI SCONGIURO :~( :~( :~(

P.S : SONO IN 2003 SERVER
djveleno

Amministratore

Esperto
Esperto
1025 Discussioni


Profilo - djveleno 		19 aprile 2004 alle 23:00:08 Profilo - djvelenoInvia un messaggio privato Rispondi quotando
L'errore evidenziato, è su una funzione, ti sei ricordato di modificare il file functions-inc.asp?
Ciauzz DJ
---------------
A lavare la testa ai somari, ci si rimette l'acqua e il sapone!

http://aspnuke208.somee.com/Default.asp
SAMPEI

Utente
Utente
61 Discussioni


Profilo - SAMPEI 		20 aprile 2004 alle 08:33:07 Profilo - SAMPEIInvia un messaggio privato simonesampei@msn.com Rispondi quotando
IN EFFETTI L'HO MODIFICATO MA ERRONEAMENTE, COME SEMPRE SEI LI AD AUITARMI GRAZIE 1000!!
P.S
HO INSERITO NEI SITI IL LINK DEL MIO...SE LO VOLETE AGGIUNGERE..EHEH MIFAREBBE PIACERE TNX TI TUTTO :p (r) (r)

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 : 200
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: 5684791 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi