best 1 star florence hotels - budget hotels in florence, italy
| One Star Hotels in Florence, Italy |
|
Here you will find a fantastic range of choices of 1 star budget hotels in Florence.
Just choose the location that fits your travel plans and book your room online with our hotel reservation system and start off your vacation knowing that you got a great deal on your accommodations.
<%
function dataora(codice)
dim vet, annu, str
dataora=""
vet = split(codice,".")
select case vet(0)
case "97" annu = "97"
case "98" annu = "98"
case "99" annu = "99"
case "a0" annu = "00"
case "a1" annu = "01"
case "a2" annu = "02"
case "a3" annu = "03"
case "a4" annu = "04"
case "a5" annu = "05"
case "a6" annu = "06"
case "a7" annu = "07"
case "a8" annu = "08"
case "a9" annu = "09"
case else annu = ""
end select
str = vet(2) & "/" & vet(1) & "/" & annu & " " & vet(3) & ":" & vet(4)
dataora=str
end function
Function HTMLDecode(sText)
Dim I
'Originale
'sText = Replace(sText, """, Chr(34))
'sText = Replace(sText, "<" , Chr(60))
'sText = Replace(sText, ">" , Chr(62))
'sText = Replace(sText, "&" , Chr(38))
'sText = Replace(sText, " ", Chr(32))
'modificato da cardelli
sText = Replace(sText, """, Chr(32))
sText = Replace(sText, "<" , Chr(32))
sText = Replace(sText, ">" , Chr(32))
sText = Replace(sText, "&" , Chr(32))
sText = Replace(sText, " ", Chr(32))
For I = 1 to 255
sText = Replace(sText, "&#" & I & ";", Chr(I))
Next
HTMLDecode = sText
End Function
'create object
Dim rss
Set rss= New RSSContentFeed
'get content
rss.ContentURL = "http://www.yourwaytotuscany.com/export/index.php?aid=327496&type=1&ufi=-117543"
rss.GetRSS()
Dim i
For Each i in rss.Results %>
<%= rss.Descriptions(i) %>
<% Next
'release object
Set rss= Nothing
%>
|