Catalogati per mese by Wodka40°

 'Creo i link allo storico per mese
 Do Until StrToData(Data_Prima_Pubblicazione) > Date()
  Response.Write "<a href=""storico.asp?m="& Data_Prima_Pubblicazione &""">" & UCase(Mid(MonthName(Mid(Data_Prima_Pubblicazione, 5, 2), False), 1, 1)) & Mid(MonthName(Mid(Data_Prima_Pubblicazione, 5, 2), False), 2, Len(MonthName(Mid(Data_Prima_Pubblicazione, 5, 2), False)) - 1) & " " & Mid(Data_Prima_Pubblicazione, 1, 4) & "</a><br />"
  Data_Prima_Pubblicazione = DataToStr(DateAdd("m", 1, StrToData(Data_Prima_Pubblicazione)))
 Loop

 

'Creo i link allo storico per mese
' Do Until StrToData(Data_Prima_Pubblicazione) > Date()
'  Response.Write "<a href=""storico.asp?m="& Data_Prima_Pubblicazione &""">" & UCase(Mid(MonthName(Mid(Data_Prima_Pubblicazione, 5, 2), False), 1, 1)) & Mid(MonthName(Mid(Data_Prima_Pubblicazione, 5, 2), False), 2, Len(MonthName(Mid(Data_Prima_Pubblicazione, 5, 2), False)) - 1) & " " & Mid(Data_Prima_Pubblicazione, 1, 4) & "</a><br />"
'  Data_Prima_Pubblicazione = DataToStr(DateAdd("m", 1, StrToData(Data_Prima_Pubblicazione)))
' Loop

'Modifica Wodka40°

response.write "<form ID=""WodStoricoMese"" action=""#"" >"& vbcrlf
 response.write "<select id= ""WodStoricoMeseScelta"" name=""CmbArt"" size=""1"" onChange=""javascript:wodComboStoricoSubmit()"">" & vbcrlf
 Do Until StrToData(Data_Prima_Pubblicazione) > Date()
  Data_Prima_Pubblicazione = DataToStr(DateAdd("m", 1, StrToData(Data_Prima_Pubblicazione)))
  kkDum=mid(Data_Prima_Pubblicazione,5,2)
  kkDum4=mid(Data_Prima_Pubblicazione,1,4)
  kkDum3=mid(request.QueryString("m"),1,4)
  kkDum2=mid(request.QueryString("m"),5,2)
  response.write "<Option value=""" & "storico.asp?m=" & Data_Prima_Pubblicazione
  if (kkDum= kkDum2) AND (kkDum4= kkDum3) then
   response.write """ selected>"
  else
   response.write  """>"  
   end if  
  response.write UCase(Mid(MonthName(Mid(Data_Prima_Pubblicazione, 5, 2), False), 1, 1)) & Mid(MonthName(Mid(Data_Prima_Pubblicazione, 5, 2), False), 2, Len(MonthName(Mid(Data_Prima_Pubblicazione, 5, 2), False)) - 1) & " " & Mid(Data_Prima_Pubblicazione, 1, 4) & vbcrlf
 Loop
 response.write "</select>"& vbcrlf
response.write "</form>"& vbcrlf

'Fine modifica Wodka40°

 

  Set RSUltimiCommenti = Nothing
%>
  </div>
 </div>
<%
 End If
%>

QUI DI SEGUITO INSERITE:

 

<script language="JavaScript" type="text/JavaScript">
function wodComboStoricoSubmit(){
 var WodStoricoScelta=document.getElementById("WodStoricoMeseScelta");
 document.location.href=WodStoricoScelta.value;
}
</script>