Budapest Pocket Guide <% Randomize iBanner = CInt(Rnd(2) * 10) ' Response.Write("i:" & i & "
" & vbCrLf) If ((iBanner mod 2) = 0) Then Dim Ad Dim ArrTags Dim strHistory ' Set Ad = Application("Ad") Set Ad = Session("Ad") arrTags = Array("Ad.Size.Banner","ad.targetframe._blank","ad.border.1" ) strHistory = Session("AdHistory")'Ad server history conatiner response.write (Ad.GetAd(Response, arrTags,strHistory)) Session("AdHistory") = strHistory Else %> <% End If %>
Budapest Pocket Guide  
Fly2Budapest.com - Budapest Travel Online 
Discount flight tickets, airfare, hotels and car rentals!
Book your Budapest Hotel, Budapest Flight,
Budapest Rent a Car Here!
Choose your language and currency: 
English, Italian, Spanish, Dutch, French, German.
Budapest Guide To Hungary Budapest Tourist Info Budapest Sights & Sounds Budapest Accommodation/Travel Budapest Business Guide Budapest Travel Online









Budapest Pocket Guide  
Fly2Budapest.com - Budapest Travel Online 
Discount flight tickets, airfare, hotels and car rentals!
Book your Budapest Hotel, Budapest Flight,
Budapest Rent a Car Here!
Choose your language and currency: 
English, Italian, Spanish, Dutch, French, German.

 


Select a picture you made that you would like to see as an E-card! Submit the photo below for others to see also.

Submitted by
(Name or E-mail address):
Select photo:

 

 
   
<% If ((iBanner mod 2) = 0) Then response.write (Ad.GetAd(Response, arrTags,strHistory)) Session("AdHistory") = strHistory ElseIf ((iBanner = 1) or (iBanner = 3)) Then %> <% ElseIf ((iBanner = 5) or (iBanner = 7)) Then %> <% Else %> <% End If %>
Home | Guide To Hungary | Tourist Info | Sights & Sounds | Accommodation/Travel | Business Section | Sitemap | Search

© 1997-<%=Year(Now)%> Malenco Ltd. All rights reserved Privacy Policy