<%
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
%>
You may contact us by e-mail at info@budpocketguide.com
You may contact us by phone on +361 280.3730
Dispute Resolution
Disputes will be handled by our customer service representative.
Our customer service will promptly correct any errors.
Data Collection
When visiting Web sites certain information about you and your computer can sometimes be collected. This section explains what information Budapest Pocket Guide Online collect, and how it is used
We collect the following information about our visitors:
dynamic.clickstream data
dynamic.searchtext data
dynamic.cookies data
We collect this information for the following reasons
Completion and Support of Current Activity
Cookies
Cookies are a technology which can be used to provide you with tailored
information from a Web site. A cookie is an element of data that a Web
site can send to your browser, which may then store it on your system.
You can set your browser to notify you when you receive a cookie, giving
you the chance to decide whether to accept it