Bloquear Atualizar

[NewUser 0]

Tenho uma carrinho de compra, entro nele pra verificar oque está adicionado, mias clico em atualizar no browser ele inseri o ultimo produto, como faço para bloquear isso?VLW!

[Ted k' 126]

geralmente em loja virtual você ñ adiciona dois produtos igual, o ideal e você fazer um sql de procura, para ñ aceitar o mesmo produto!

[jrcardozo 4]

você precisa redirecionar a página pois está armazenando no Post ou Get o ID do produto.exemplo:carrinho.asp>envia dados para executa.asp(insere no carrinho)>redireciona para carrinho.asp com a mensagem de produto adicionado

[NewUser 0]

Fiz a seguinte função:

ASP

if car_prod_inc<>prod_id then    ------------------------>linha erro

        prod_nome = car_prod_inc("nome")

        prod_preco = car_prod_inc("preco")                

        If IsEmpty(Session("iten_id")) Then

                Session("iten_id") = 1

                Else

                Session("iten_id") = Session("iten_id") + 1

        End If                                                                                  

        iten_id = Session("iten_id")

        temp = iten_id & "&" & prod_id & "&" & prod_quant

                If Not (IsEmpty(Session("car_prod_id"))) Then

                        For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id"))

                                temp = temp & "/" & session("car_prod_id")(loop1)

                        Next

                End If

        arrTemp = Split(temp,"/")

        Session("car_prod_id") = arrTemp

        else

Response.Write "<script>history.back(1);alert('Serviços já cadastrado.')</script>"

end if

Mais ta dando este erro!

 

Erro de tempo de execução do Microsoft VBScript erro '800a000d'

Tipos incompatíveis

 

/orcamento/carrocompras.inc, line 20

 

 

PS. Como faço pra da um location no lugar de history.back?

VLW

[Ted k' 126]

qual é sua linha 20?

[NewUser 0]

editei a linha de erro

[Ted k' 126]

aki cara:

você vai igualar esse recordset car_prod_inc com quem?

 

e o prod_id vem que valor?

 

ASP

if car_prod_inc<>prod_id then

[NewUser 0]

If IsEmpty(prod_quant) OR prod_quant=0 Then prod_quant = 1 End IfSelect Case acaoCase "incluir"   	Dim car_prod_inc,prod_nome,prod_preco	temp = ""	set car_prod_inc = lojaDB.Execute("SELECT * FROM produtos WHERE id="& prod_id &"")if car_prod_inc<>prod_id then	prod_nome = car_prod_inc("nome")	prod_preco = car_prod_inc("preco")		   	If IsEmpty(Session("iten_id")) Then 		Session("iten_id") = 1		Else		Session("iten_id") = Session("iten_id") + 1	End If											 	iten_id = Session("iten_id")	temp = iten_id & "&" & prod_id & "&" & prod_quant		If Not (IsEmpty(Session("car_prod_id"))) Then			For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id")) 				temp = temp & "/" & session("car_prod_id")(loop1)			Next		End If	arrTemp = Split(temp,"/")	Session("car_prod_id") = arrTemp	else

a parte de cima!