<%
sub vignetta()
anno = Year(Date())
mese = Month(Date())
giorno = Day(Date())
For e=0 to mese
mese = mese - e
if giorno2=0 then
giorno=31
end if
if Len(mese)<2 then
mese2 = "0"&mese
else
mese2 = mese
end if
For i=0 to giorno
if giorno2=0 then
giorno=31
end if
giorno2=int(giorno)-i
For a=0 to 9
if Len(giorno2)<2 then
giorno2 = "0"&giorno2
end if
immagine="http://www.frangipane.it/galleria/album/Le Mie Vignette/Anno 2007/" &anno & mese2 & giorno2&"00"&a&"_copy.jpg"
Dim objXMLHttp
Set objXMLHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
objXMLHttp.Open "GET", immagine, False
objXMLHttp.Send
If not objXMLHttp.status=404 then
Response.write ""
exit sub
end if
next
next
next
Set objXMLHttp = Nothing
end sub
vignetta()
%>