25 settembre 2003 alle 12:59:43

<%
' 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 ""
Case 2 :
CreateTopTable "BlockIFSearch", "Cerca sul web"
IFEngineForms
CreateBottomTable ""
Case 3 :
If bDisplayCalendario Then

'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
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='148' 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='148' 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 ""
Case 4 :
CreateTopTable "prova", "menuprova"
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_PATH & """>prova</a><br>" & vbCRLF
CreateBottomTable ""
End If
End Select
End If
End Sub
%>

25 settembre 2003 alle 14:48:18

Response.Write "</table><br>" & vbCRLF
'CreateBottomTable ""
Case 4 :
CreateTopTable "prova", "menuprova"
Response.Write sBullet & "<a href=""" & GLOBAL_SITE_PATH & """>prova</a><br>" & vbCRLF
CreateBottomTable ""
End If
End Select
End If
End Sub
%>