Estou com a seguinte situação:
uso ASP no meu servidor, mas o ASP não permite conexão segura, pra poder usar o webservice dos correios
Alguém tem alguma dica, ou rotina que possa substituir essa consulta?

Moderador: Moderadores
IF cFormato = "json" THEN
cResposta = "{"
cResposta = cResposta & Quoted( "cep" ) & ":" & Quoted( cpcep ) & ","
cResposta = cResposta & Quoted( "logradouro" ) & ":" & Quoted( cpEndereco ) & ","
cResposta = cResposta & Quoted( "bairro" ) & ":" & Quoted( cpBairro ) & ","
cResposta = cResposta & Quoted( "cidade" ) & ":" & Quoted( cpCidade ) & ","
cResposta = cResposta & Quoted( "uf" ) & ":" & Quoted( cpUF ) & ","
cResposta = cResposta & Quoted( "ibge" ) & ":" & Quoted( cpIbge ) & ","
cResposta = cResposta & Quoted( "infalt" ) & ":" & Quoted( cpinfAlt ) & ","
cResposta = cResposta & Quoted( "status" ) & ":" & Quoted( cpStatus )
cResposta = cResposta & "}"
FUNCTION ToJSON( cName, cValue )
ToJSON = Quoted( cName ) & ":" & Quoted( cValue )
END FUNCTION
...
IF cFormato = "json" THEN
cResposta = "{" & _
ToJSON( "cep", cpcep ) & "," & _
ToJSON( "logradouro", cpEndereco ) & "," & _
ToJSON( "bairro", cpBairro ) & "," & _
ToJSON( "cidade", cpCidade ) & "," & _
ToJSON( "uf", cpUF ) & "," & _
ToJSON( "ibge", cpIbge ) & "," & _
ToJSON( "infalt", cpInfAlt ) & "," & _
ToJSON( "status", cpStatus ) & "}"
ELSE
Retornar para Outras linguagens de programação
Usuários vendo este fórum: Nenhum usuário registrado online e 15 visitantes