[Resolvido] Link dentro de um IF ELSE

[alinekelly 0]

Salve Galera!!!

É o seguinte, tenho um recordser com so dados de uma venda, preciso que se em um determinado campo, esteja preenchido com S, apareça escrito OK, e quando não tiver nada neste campo, apareça escrito CADASTRAR

Se eu coloco o código abaixo, funciona.

 

<%

If Vendas("POS_Vendas") = "S" then
	response.write("OK")
else
	response.write("Cadastrar")
end if 

%>

Mas tbm preciso que esta palavra CADASTRAR seja um link, tentei o código abaixo, mas aí não funciona

 

 

<%

If Vendas("POS_Vendas") = "S" then
	response.write("OK")
else
	response.write(<a href="pos_vendas.asp?pedido=<%=(Vendas.Fields.Item("ID_PEDIDOS").Value)%>&cod_cli=<%=(Cliente.Fields.Item("ID_CLI").Value)%>">Cadastrar</a>)
end if 

%>

 

aparece o seguinte erro:

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A03EA)

Erro de sintaxe

/crm/cadastro.asp, line 667, column 15

 

e o que esta nesta linha é:

 

 

response.write(<a href="pos_vendas.asp?pedido=<%=(Vendas.Fields.Item("ID_PEDIDOS").Value)%>

Em tempo, o link funciona perfeitamente, mas fora do If / Else

 

 

AOnde estou errando?

[Ted k' 126]

você não pode colocar uma tag asp dentro da outra

[lobismano 1]

E ai beleza.

 

Tenta assim.

 

<%

If Vendas("POS_Vendas") = "S" then
response.write("OK")
else
response.write "<a href=""pos_vendas.asp?pedido=" & Vendas.Fields.Item("ID_PEDIDOS").Value & "&cod_cli=" & Cliente.Fields.Item("ID_CLI").Value & "">Cadastrar</a>"
end if 

%>

At.

[Régis Corrêa 0]

Olá Aline

 

 

Pelas informações que você passou há um erro na hora de você concatenar a string do link com os registro do

recordset:

 

Na linha em que o compilador acusou o erro:

 

CODE

 

response.write(<a href="pos_vendas.asp?pedido=<%=(Vendas.Fields.Item("ID_PEDIDOS").Value)%>

 

 

 

Há erro no uso de aspas e redundância na chamada do método pois você chama o metodo write com o simbolo "=" dentro de um

write, isto nao está certo.

 

o correto seria:

 

CODE

 

response.write("<a href=" & chr(34) & "pos_vendas.asp?pedido="& Vendas.Fields.Item("ID_PEDIDOS").Value & chr(34) & ">")

 

 

 

 

experimente desta forma.

 

 

Att.

[alinekelly 0]

Valew galera. agora funcionou.....