Ti posto tutta la pagina così ci leviamo sto dente....
Grazie prima di tutto. Ho realizzato adesso sul content-type, visto che non è un file asp......non si può fare giusto??????
Ecco la pagina......
La pagina visualizzazione.asp te la metto in fondo, sono solo poche righe di codice, per farti capire come viene visualizzato il grafico.
Anche se hai fini pulsante non ti servirà.
Grazie, Stefano
<%
function calendari(any,mes,zon)
'nome della pagina dove si visualizza il grafico
Const URLDestino = "visualizzazione.asp"
Dim MyMonth 'Month of calendar
Dim MyYear 'Year of calendar
Dim MyZone 'Zona geografica
Dim FirstDay 'First day of the month. 1 = Monday
Dim CurrentDay 'Used to print dates in calendar
Dim Col 'Calendar column
Dim Row 'Calendar row
calendari = ""
MyMonth = mes
MyYear = any
MyZone = zon
If IsEmpty(MyMonth) then MyMonth = Month(Date)
If IsEmpty(MyZone) then MyZone = 1
if IsEmpty(MyYear) then MyYear = Year(Date)
calendari = ShowHeader(MyMonth,MyZone,MyYear)
FirstDay = WeekDay(DateSerial(MyYear, MyMonth, 1)) - 2
if firstday = -1 then
firstday = 6
end if
CurrentDay = 1
'Costruzione del calendario
For Row = 0 to 5
For Col = 0 to 6
If ((Row = 0) and (Col < FirstDay)) then
calendari = calendari & "<td bgcolor='#FFFFFF' class='calSimbolo'> </td>"
elseif (CurrentDay > LastDay(MyMonth, MyYear)) then
calendari = calendari & "<td bgcolor='#FFFFFF' class='calSimbolo'> </td>"
else
if (cInt(MyYear) = Year(Date)) and (cInt(MyMonth) = Month(Date)) and (CurrentDay = Day(Date)) then
calendari = calendari & "<td bgcolor='#FFFFFF' class='calCeldaResaltado' align='center'>"
else
calendari = calendari & "<td bgcolor='#FFFFFF' align='center'>"
end if
calendari = calendari & "<a href='" & URLDestino & "?year=" & cInt(MyYear) & "&month=" & cInt(MyMonth) & "&day=" & CurrentDay & "&zon=" & MyZone & "&'target=generale &''>"
if (cInt(MyYear) = Year(Date)) and (cInt(MyMonth) = Month(Date)) and (CurrentDay = Day(Date)) then
calendari = calendari & "<div class='calResaltado'>"
else
calendari = calendari & "<div class='calSimbolo'>"
end if
calendari = calendari & CurrentDay & "</div></a></td>"
CurrentDay = CurrentDay + 1
End If
Next
calendari = calendari & "</tr>"
Next
calendari = calendari & "</table>"
calendari = calendari & "</form>"
End function
function ShowHeader(MyMonth,MyZone,MyYear)
ShowHeader = ""
ShowHeader = ShowHeader & "<script language='JavaScript'>"
ShowHeader = ShowHeader & "function Hoy() {"
ShowHeader = ShowHeader & " DiaActual = new Date();"
ShowHeader = ShowHeader & " document.calendario.Month.value=DiaActual.getMonth()+1;"
ShowHeader = ShowHeader & " document.calendario.Year.value=DiaActual.getYear();"
ShowHeader = ShowHeader & " document.calendario.submit();"
ShowHeader = ShowHeader & "}"
ShowHeader = ShowHeader & "</script>"
ShowHeader = ShowHeader & "<table border='0' cellspacing='1' cellpadding='1' width='225' align='center' class='calFondoCalendario'>"
ShowHeader = ShowHeader & "<tr align='center'> "
ShowHeader = ShowHeader & " <td colspan='7'>"
ShowHeader = ShowHeader & " <form name='calendario' action='default.asp' method='post'>"
ShowHeader = ShowHeader & " <table border='0' cellspacing='1' cellpadding='1' width='100%' class='calFondoEncabe'>"
ShowHeader = ShowHeader & " <tr>"
ShowHeader = ShowHeader & " <td align='left' class='calDatos'>"
ShowHeader = ShowHeader & " "
ShowHeader = ShowHeader & "<align='center'> "
'Bottone Estrai Dati
'ShowHeader = ShowHeader & " <input value=""Estrai Dati"" type=""button"" onclick=""document.location.href='Acquisti/" & Request.QueryString("year") & Request.QueryString("month") & Request.QueryString("day") & Request.QueryString("zon") & ".csv'"">"
ShowHeader = ShowHeader & " <input value=""Estrai Dati"" type=""button"" onclick=""document.location.href='Acquisti/20058101.zip'""" & ">"
'ShowHeader = ShowHeader & " <input value='Estrai Dati' type='button' onclick='document.location.href=Acquisti/"& Request.QueryString("year") & Request.QueryString("month") & Request.QueryString("day") & Request.QueryString("zon") & ".csv'>"
ShowHeader = ShowHeader & " <table><td></td></table>"
'Anno:
ShowHeader = ShowHeader & " <select name='Year' onChange='javascript:document.calendario.submit();' class='calDatos'>"
anyActual = year(Date)
For i= 10 to 10
cadena = ""
Anys = (anyActual - 10) + i
if (CInt(MyYear)=Anys) then
cadena = "selected"
end if
ShowHeader = ShowHeader & "<option value='" & Anys & "' " & cadena & ">" & Anys & "</option>"
next
ShowHeader = ShowHeader & " </select>"
ShowHeader = ShowHeader & "<align='center'>"
'Mese:
ShowHeader = ShowHeader & " <select name='Month' onChange='javascript:document.calendario.submit();' class='calDatos'>"
For i= 1 to 12
cadena = ""
if (CInt(MyMonth)=i) then
cadena = "selected"
end if
ShowHeader = ShowHeader & "<option value='" & i & "' " & cadena & ">" & MonthName(i) & "</option>"
next
ShowHeader = ShowHeader & " </select>"
ShowHeader = ShowHeader & "<align='center'> "
'Zona:
ShowHeader = ShowHeader & " <select name='Zone' onChange='javascript:document.calendario.submit();' class='calDatos'>"
For i= 1 to 8
cadena = ""
if (CInt(MyZone)=i) then
cadena = "selected"
end if
ShowHeader = ShowHeader & "<option value='" & i & "' " & cadena & ">" & ZoneName(i) & "</option>"
next
ShowHeader = ShowHeader & " </select>"
ShowHeader = ShowHeader & " </td>"
ShowHeader = ShowHeader & " <td align='left'>"
ShowHeader = ShowHeader & " "
ShowHeader = ShowHeader & " </td>"
ShowHeader = ShowHeader & " <td align='left' class='calDatos'>"
ShowHeader = ShowHeader & " "
ShowHeader = ShowHeader & " </td>"
ShowHeader = ShowHeader & " </tr>"
ShowHeader = ShowHeader & " </table>"
ShowHeader = ShowHeader & " </td>"
ShowHeader = ShowHeader & "</tr>"
ShowHeader = ShowHeader & "<tr align='center'> "
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>L</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>M</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>M</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>G</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>V</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>S</div></td>"
ShowHeader = ShowHeader & " <td bgcolor='#FFCC99'><div class='calDias'>D</div></td>"
ShowHeader = ShowHeader & "</tr>"
End function
Function MonthName(MyMonth)
Select Case MyMonth
Case 1
MonthName = "Gennaio"
Case 2
MonthName = "Febbraio"
Case 3
MonthName = "Marzo"
Case 4
MonthName = "Aprile"
Case 5
MonthName = "Maggio"
Case 6
MonthName = "Giugno"
Case 7
MonthName = "Luglio"
Case 8
MonthName = "Agosto"
Case 9
MonthName = "Settembre"
Case 10
MonthName = "Ottobre"
Case 11
MonthName = "Novembre"
Case 12
MonthName = "Dicembre"
Case Else
MonthName = "ERROR!"
End Select
End Function
Function ZoneName(MyZone)
Select Case MyZone
Case 1
ZoneName = "Calabria"
Case 2
ZoneName = "CNor"
Case 3
ZoneName = "Csud"
Case 4
ZoneName = "Nord"
Case 5
ZoneName = "Sard"
Case 6
ZoneName = "Sici"
Case 7
ZoneName = "Sud"
Case 8
ZoneName = "Nazionale"
Case Else
ZoneName = "ERROR!"
End Select
End Function
Function LastDay(MyMonth, MyYear)
Select Case MyMonth
Case 1, 3, 5, 7, 8, 10, 12
LastDay = 31
Case 4, 6, 9, 11
LastDay = 30
Case 2
If IsDate(MyYear & "-" & MyMonth & "-" & "29") Then LastDay = 29 Else LastDay = 28
Case Else
LastDay = 0
End Select
End Function
%>
<------------------Visualizzazione.asp------------------
<tr>
<table rowspan=2 colspan=2 border="0" width="100%">
<td align="left">
<%
dim nomedoc
nomedoc= "Acquisti/" & Request.QueryString("year") & Request.QueryString("month") & Request.QueryString("day") & Request.QueryString("zon") & ""
%>
<img name="doc" src=<%=nomedoc%>>
</td>
</table>
</tr>
