Erro no cálculo de frete

[ukow 1]

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!

[wilnet 92]

Olá ukow

 

O que tem nessa linha:

 

/divinho2/cadastrar.asp, line 505

[ukow 1]

Olá ukow

 

O que tem nessa linha:

 

/divinho2/cadastrar.asp, line 505

 

Olá Wil!

Essa linha é referente a:

 

response.write getValorSedex( cep_origem, "<%=ceps%>", "368" )

[Ronaldo Bueno 23]

Coloque duas aspas em ceps

 

““<%=ceps%>””

[ukow 1]

Coloque duas aspas em ceps

 

““<%=ceps%>””

 

Olá Ronaldo.

 

Agora foi exibido outro erro na mesma linha.

 

Erro de compilação do Microsoft VBScript erro '800a0408'

Caractere inválido

/divinho2/cadastrar.asp, line 505

response.write getValorSedex( cep_origem, ""<%=cep

 

O que pode ser?

[wilnet 92]

Olá ukow,

 

você está usando as Aspas erradas, e por isso está dando essa mensagem de caractere Inválido.

 

 

Troque isso:

““<%=ceps%>””

Por Isso:

""<%=ceps%>""

[ukow 1]

Olá ukow,

 

você está usando as Aspas erradas, e por isso está dando essa mensagem de caractere Inválido.

 

 

Troque isso:

<%=ceps%>

Por Isso:

""<%=ceps%>""

Olá Wil.

 

Então, eu também pensei que fosse isso e testei antes

mas observe que o próximo erro ele mostra essas mesmas aspas, então acho que seja outra coisa.

 

Erro de compilação do Microsoft VBScript erro '800a0408'

Caractere inválido

/divinho2/cadastrar.asp, line 505

response.write getValorSedex( cep_origem, ""<%=ceps

---------------------------------------------^

 

Aproveitando o tópico, alguém sabe como fazer um cálculo de frete? Daquele tipo aonde você digita o cep, clica no botão e é gerado o valor.

Estou tentando montar um próprio mas n]ao tem dado muito certo.

 

Obrigado!

 

 

Uma dúvida.

 

O código no caso é um response write, o <%=ceps%> é um response dentro de outro.

Não está errado a forma de inclui-lo?