<% Option Explicit Response.Buffer = True 'For browsers (set expiration date some time well in the past) Response.Expires = -1000 'For HTTP/1.1 based proxy servers Response.CacheControl = "no-cache" 'For HTTP/1.0 based proxy servers Response.AddHeader "Pragma", "no-cache" Dim strConnection, objConn, objRS, strQuery Dim strPagina, strIp, strServidor, strReferer, strData, strAgente, strCaminho strReferer = Request.ServerVariables("HTTP_REFERER") strServidor = Request.ServerVariables("REMOTE_HOST") strIp = Request.ServerVariables("REMOTE_ADDR") strPagina = Request.ServerVariables("SCRIPT_NAME") strAgente = Request.ServerVariables("HTTP_USER_AGENT") strData = Date() strCaminho = Request.ServerVariables("PATH_TRANSLATED") Set objConn = Server.CreateObject("ADODB.Connection") strConnection="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\web\topdobrasil\dados\dbvisitas.mdb" objConn.Open strConnection strQuery = "INSERT INTO visitas (servidor,referer,pagina,ip,data,agente) VALUES ('" & strServidor & "','" & strReferer & "','" & strPagina & "','" & strIp & "','" & Now & "','" & strAgente & "') " strQuery = strQuery ' & "ORDER BY id DESC" Set objRS = objConn.Execute(strQuery) Dim Tip(10) Tip(1) = "1" Tip(2) = "2" Tip(3) = "3" Tip(4) = "4" Tip(5) = "5" Tip(6) = "6" Tip(7) = "7" Tip(8) = "8" Tip(9) = "9" Tip(10) = "10" Function RandomNumber(intHighestNumber) Randomize RandomNumber = Int(intHighestNumber * Rnd) + 1 End Function Dim strRandomTip strRandomTip = Tip(RandomNumber(10)) %> Brasilien, Rio, Carnaval, Nordeste: besten Seiten
Brasilien, Rio, Carnaval, Nordeste  PORTAL | WEBVERZEICHNIS | THEMEN | BILDER | BRASIL DEPOT
 Auswahl | Produkte | Hilfsquelle | Entdeckung | Dienste | Suchen | Info | Neu | Top
  © Todos os direitos reservados. Reprodução proibida - English US Français Español Brasileiro English UK Deutsch Argentino Canada Québec Italiano Portugal
Brasiliens Portals
 



n Neu
n Zoom: Ceará

  RAUM
:: Agenda
:: Chat
:: Raumkunst
:: Entdeckung
:: Immobilien
:: Forum (fr)
:: Begegnungen
:: Bohrungen

  PRAKTISCH
:: Praktisch
:: Kontakt
:: Telefon
:: Wetter


n Rio: ° C
n 1 US$: R$
n 1 €: R$
n Bovespa:
 

Büchen Sie hier Hotels in Brasilien Hotels Accor  

> Neu im Top do Brasil

>>> Brasilien Untertauchen: beste Örte zu gehen

>>> Brasilien Hotels: Büchen Sie Ihr Hotel on line hier

1. Immobilien Brasiliens

Immobilien Brasiliens bietit die Immobilienanzeigen mit Angebote zu verkaufen Immobiliar in Brasiliens

2. Brasiliens Verzeichnis

Das neues Verzeichnis ist schon verfügbar bei das Portal Top do Brasil

3. Brasilien Entdeckung

Brasilien Entdeckung ist parzielle verfügbar

3. Bilder aus Brasilien

Bilder aus Brasilien ist parzielle verfügbar

4. Barock Brasilien

Barock Brasilien ist parzielle verfügbar




Hier, Sie finden die neuer Seiten geauswählt oder geanmeldet bei unser Besuchern

Zwei neue Seiten (ein Seite und unser Seite Top do Brasil SHOP) sind bald verfügbar


n Die Top do Brasil SHOP Empfehlungen


cover    cover    cover
accorhotels.com
  TOP DO BRASIL EXPRESS è VOLL VERZEICHNIS 
Brasilien Reiseführer  
accorhotels.com
Brasilien Reiseführer
Version française Versión en español Versão brasileira English version

Top do Brasil | Verzeichnis | Themen | Bilder | Brasilien Praktisch | Brasil Depot | Top Moda Brasil | TDB Suche | Brasilien Reiseführer | Reisen
© Top do Brasil, Rio de Janeiro, 2002-6. No reproduction without authorization. Anzeigen | Privat & Datenschutz | Kontakt | Brasilien

Google
 
Web www.topdobrasil.com.br