<%
giorno = day(now)
mese = month(now)
anno = year(now)
gset = weekday(now)
select case gset
case 1: gsetd="Domenica"
case 2: gsetd="Lunedi"
case 3: gsetd="Martedi"
case 4: gsetd="Mercoledi"
case 5: gsetd="Giovedi"
case 6: gsetd="Venerdi"
case 7: gsetd="Sabato"
case else
end select
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
' Oggi = "" & gsetd & ", " & giorno & " " & mesed & " " & anno & " "
Oggi = "" & gsetd & ", " & giorno & " " & mesed & " " & anno & " "
'dim host, page, qryStr, url
'host = Request.ServerVariables("HTTP_HOST")
'page = Request.ServerVariables("SCRIPT_NAME")
'pageMT = Request.ServerVariables("SCRIPT_NAME")
'qryStr = Request.QueryString
'url = "http://" & host & page
'urlMT = "http://" & host & page
'if len (qryStr) >0 then
' url = url & "?" & qryStr
'end if
' Response.write "Sei sulla pagina " & url & ".
"
' Response.write host
%>
<% LL = "" %>
<% PageName = "default.asp" %>
<% Linguaggio = "it" %>
FederExport Lombardia
