Estou utilizando ASP clássico, e preciso fazer um cálculo de frete.
Tenho na página várias informações exibidas e uma delas é o valor do frete.
Atribuo o CEP puxando do banco com <%=ceps%>
na hora de incluir o cálculo no campo aonde vai o CEP, se eu o digito ele funciona.
EXEMPLO: cep_origem = "05406200"
response.write getValorSedex( cep_origem, "03721-030", "368" )
Mas se eu tento incluir do banco desta forma:
cep_origem = "05406200"
response.write getValorSedex( cep_origem, "<%=ceps%>", "368" )
É gerado o seguinte erro:
Constante de seqüência não finalizada
/divinho2/cadastrar.asp, line 505
response.write getValorSedex( cep_origem, "<%=ceps
-------------------------------------------------^
Código do cálculo de frete:
<%
'
' Exemplo de utilização de utilização de WebService Kinghost
' www.kinghost.com.br
'
function getValorSedex( cep_origem, cep_destino, peso )
Dim Parsed(9,9)
webservice_url = " http://webservice.uni5.net/web_frete.php"
webservice_query = "xxxxxx" 'Chave de autenticação do WebService - Consultar seu painel de controle
set xml = Server.CreateObject ("Microsoft.XMLHTTP")
xml.open "GET", webservice_url&"?"&_
"auth="&webservice_query&"&"&_
"tipo=sedex&"&_
"formato=query_string&"&_
"cep_origem="& cep_origem &"&"&_
"cep_destino="& cep_destino &"&"&_
"peso="&peso, false
xml.send()
Resultado = Xml.responseText
Resultado = split( Resultado, "&")
' Montando parametros
for e = 1 To ubound( Resultado)
temporario = split( Resultado(e), "=")
Parsed(e,0) = temporario(0)
Parsed(e,1) = replace( temporario(1), "+", " ")
next
getValorSedex = Parsed(3,1)
end function
cep_origem = "05406200"
response.write getValorSedex( cep_origem, "<%=cep%>", "368" )
%>
Alguém sabe o que pode ser?
Obrigado!
