% Option Explicit %> <% Dim oGeoIP,strErrMsg Dim strIP,strNomePais,strCodigoPais Set oGeoIP = New CountryLookup oGeoIP.GeoIPDataBase = Server.MapPath("GeoIP.dat") If oGeoIP.ErrNum(strErrMsg) <> 0 Then Response.Write(strErrMsg) Else strIP = request.ServerVariables("REMOTE_ADDR") strNomePais= oGeoIP.lookupCountryName(strIP) strCodigoPais = oGeoIP.lookupCountryCode(strIP) End If Set oGeoIP = Nothing %>
| ||
| Cursos | ||
| Iscas Artificiais | ||
| Iscas Artificiais (WOBOOK) | ||
| Escolha da Isca | ||
| Análises: | ||
| Iscas artificiais | ||
| Carretilhas | ||
| Venda ou Escambo | ||
| Iscas | ||
| Dicas sobre iscas | ||
| Iscas com chifre | ||
| Aliviando iscas | ||
| Rubber Jig | ||
| Acessórios | ||
| Bateria do Motor Elétrico | ||
| Caixa de pesca alternativa | ||
| Amassando farpas | ||
| Garatéias | ||
| Nós básicos | ||
| Capacidade de linha | ||
| Barco Naclinho | ||
| Verifique : | ||
| Tábua das Mares | ||
| Fases da Lua | ||
| Pressão Atmosférica | ||
| Metereologia : | ||
| Climerh | ||
| The Weather Channel | ||
| CPTEC | ||
| Tempo Agora | ||
| Relatos: | ||
| Relatos | ||
| Fichas técnicas: | ||
| Fichas técnicas | ||
| Fotos : | ||
| Curso Nelson Nakamura | ||
| Lugares | ||
| Peixes capturados | ||
| Pescaria na Praia | ||
| Albuns de Fotos | ||
| Fotos antigas | ||
| Diversas | ||
| Vídeos: | ||
| Vídeos | ||
| Links: | ||
| Links | ||
| Planejamento: | ||
| Ficha da Pescaria | ||
| Registro da Pescaria | ||
| Exemplo de Registro | ||
| Programa utilizado | ||
| Resultado | ||
| Calendario | ||
| Favoritos | ||
| Dicas para Pescar. | ||
| Black Bass | ||
| Lambari | ||
| Robalo | ||
| Traíra | ||
| Tucunaré | ||
| Banner Naclinho | ||
| FLORIANÓPOLIS AGORA | ||
|
| ||
| PREVISÃO PARA : | ||
| ||
| IP : "&strIP&" | ||