[Resolvido] Variavel chega vazia

[kania 0]

Opa pessoal, tenho o seguinte código

 

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
'MontaMapa = latitude&","&longitude
MontaMapa = "-25.4167,-49.2833"

PegaDados = "http://maps.google.com/maps/geo?q="&MontaMapa&"&output=csv&key=ABQIAAAADwRcsYiO0Y5p42tZ-CB7hxTLFc6Z-FPvSnpLVSJy2zELNyurThQmNqAUAbSFxE2Ozx-voXYooYVihQ"

objHTTP.Open "GET", PegaDados, false
objHTTP.Send
texto = objHTTP.ResponseText

ValorBox = texto
'RetornoLatLng = Replace(ValorBox," ","")
'RetornoLatLng = Replace(RetornoLatLng,",","-")
'RetornoLatLng = Replace(RetornoLatLng,Chr(34),"")
RetornoLatLng = Split(ValorBox,",")

Lat = RetornoLatLng(4)

Final = Split(Lat,"-")

final_cid = Final(0)
final_uf = Final(1)'IsEmpty

Response.Write final_uf 

Set objHTTP = Nothing

 

Bom se testarem o código vão ver que assim ele funciona normal, porem se efetuar por exemplo um select e tentar usar a mesma variável final_uf, o select retorna vazio.

 

 

Set RS = Server.CreateObject("adodb.recordset")
SQL = "SELECT cidades.id_cidade, cidades.nome_cidade, estados.id_estado, estados.sgl_estado  FROM cidades"&_
" INNER JOIN estados ON estados.nome_estado = '"&final_uf&"'"&_
" WHERE cidades.nome_cidade = '"&final_cid&"'"
RS.Open SQL,Conn,3,3

Response.Write Rs("nome_cidade")

 

ai usando o IsEmpty verifiquei que no caso do select a variável vem vazia para ele, agora o porque, se quando mando imprimir na tela o valor ele aparece, ams se usa em outra situação ele vem vazio.

Outro exmeplo foi eu tentar fazer um if simples do tipo:

 

If final_uf = "Paraná" Then
  sigla_uf = "PR"
End IF

 

Também não consegue fazer o IF porque chega no IF vazia, alguém já viu este erro, ou sabe como resolver e o porque acontece isto?

[xanburzum 169]

qual o valor da variavel ValorBox , antes de fazer o SPLIT

abaixo dela você esta atribuindo o valor 4 para Lat

e RetornoLatLng não é uma função

[kania 0]

Então vamos lá:

 

No ValorBox vem = 200,8,"R. Cel. João Guilherme Guimarães, 611-745 - Mercês, Curitiba - Paraná, 80510-350, Brazil"

No Lat eu pego = Curitiba - Paraná

No final_cid = Curitiba

No final_uf = Paraná

 

Tudo isto se eu der um Response.Write na tela ele imprime normal, porem se eu efetuar uma IF ou no próprio select utilizar uma destas varáveis, simplesmente a variável vem vazia, estarnho.

 

beleza consegui achar o problema, obrigado