<%
'Selecionamos todos os Produtos da Tabela
Set rsTipoImoveis = Server.CreateObject("ADODB.Recordset")
strTipoImoveis = "SELECT * FROM tipo_imovel ORDER BY descricao"
rsTipoImoveis.open strTipoImoveis, conexao, 3, 3
Set rsConf = Server.CreateObject("ADODB.Recordset")
strConf = "SELECT * FROM conf"
rsConf.open strConf, conexao, 3, 3
%>
<%
Function FormataMoeda(valor)
sp = Mid(FormatNumber(1000, 0, -1, 0, -1),2,1)
sv = Mid(FormatNumber(0.1, 1, -1, 0, -1),2,1)
If isNumeric(valor) Then
v = FormatNumber (valor, 2, -1, 0, -1)
Else
v = FormatNumber (0, 2, -1, 0, -1)
End If
v = Replace(v, sp, "p")
v = Replace(v, sv, "v")
v = Replace(v, "p", ".")
v = Replace(v, "v", ",")
FormataMoeda = v
End Function
Function convertIPToLongo (ByVal ip)
Dim Cont
Dim Pos
Dim AntPos
Dim Num
If ip = "" Then
convertIPToLongo = 0
Else
For Cont = 1 To 4
Pos = InStr(AntPos + 1, ip, ".", 1)
If Cont = 4 Then
Pos = Len(ip) + 1
End If
Num = Int(Mid(ip, AntPos + 1, Pos - AntPos - 1))
AntPos = Pos
convertIPToLongo = ((Num Mod 256) * (256 ^ (4 - Cont))) + convertIPToLongo
Next
End If
End Function
ip=Request.ServerVariables("REMOTE_ADDR")
ipLongo = convertIPToLongo(ip)
'Query para descobrir o país do IP
sql = "SELECT TBIP.*, TBPAIS.PAIS FROM TBIP INNER JOIN TBPAIS ON TBIP.SIGLA_PAIS = TBPAIS.SIGLA_PAIS WHERE " & ipLongo & " BETWEEN IP_INICIO AND IP_FIM"
'Executando a Query
Set objRs = Server.CreateObject("ADODB.RecordSet")
objRs.open sql , conexao, 3, 3
pais="Brasil"
If Not objRs.EOF Then
pais=objRs("PAIS")
end if
i = "insert into detalhe_visitas(ip,data,hora,pais) values('"&ip&"','"&date()&"','"&time()&"','"&pais&"')"
Set objVis = Server.CreateObject("ADODB.RecordSet")
objVis.open i , conexao
%>
::M3 SOLUÇÕES INFORMÁTICA - (14)9188-1844 - JAÚ/SP::