Itens são adicionados duas vezes no carrinho de compras

Boa tarde amigos,

Estou desenvolvendo um script para pedidos online e está acontecendo o seguinte. (somente no Firefox)

Ao adicionar um item no carrinho de compras o mesmo é adicionado duas vezes, em navegadores como IE e Google chrome isso nao ocorre, somente no firefox...

Este é o código do carrinho de compras, que exibe is itens adicionados.

<table border=0 width=100%>
<tr width=100%><td width=100% valign=top><h2>Carrinho de Compras</h2></td></tr>
<tr><td align=right><a href="#" onclick="window.location='./listaprod.asp?'+unescape('<%=Request.QueryString("url_comp")%>')">Voltar para a Loja</a></td></tr>

<% Dim acao,data_ped,prod_id,prod_quant,car_prod_id,car_prod_quant,temp,arrTemp,iten_id,loop1,car_iten_id,car_iten_quant,car_iten_prod,car_total,car_subtotal acao = Request.querystring("acao") prod_id = Request.querystring("prod_id") prod_quant = Request.querystring("prod_quant") car_iten_id = Request.querystring("car_iten_id")

'Verifica se a quantidade e 0 e troca por 1
If IsEmpty(prod_quant) OR prod_quant=0 Then prod_quant = 1 End If

Select Case acao
Case "incluir"
Dim car_prod_inc,prod_nome,prod_preco
temp = ""
set car_prod_inc = lojaDB.Execute("SELECT * FROM produtos WHERE id="& prod_id &" AND disp='S'")
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
%>

<tr width=100%><td width=100%><h3>Produto Incluído</h3></td></tr>
<tr width=100%><td width=100%>
	<table border=1 width=100%>
	<tr width=100%>
 <th>Id</th><th>Produto</th><th>Valor/Unid</th><th>Quant.</th><th>SubTotal</th><th>Pedido</th>
	</tr><tr width=100% valign=top align=center>
 <td><%=iten_id%><td align=left><%=prod_nome%></td><td>R$<%=prod_preco%></td><td><%=prod_quant%></td><td>R$<%=prod_preco*prod_quant%></td><td><a href="./carrocompras.asp?acao=excluir&car_iten_id=<%=iten_id%>&url_comp=<%=Server.UrlEncode(Request.QueryString("url_comp"))%>">Cancelar Item</a></td>
	</tr></table>

<%
Case "excluir"
'Exclui o Id do produto no carrinho
temp = ""
If Not (IsEmpty(Session("car_prod_id"))) Then
For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id"))
arrTemp = Split(Session("car_prod_id")(loop1),"&")
iten_id = arrTemp(0)
car_iten_prod = arrTemp(1)
car_iten_quant = arrTemp(2)
If Not (iten_id = car_iten_id) Then
If temp = "" Then
temp = session("car_prod_id")(loop1)
Else
temp = temp & "/" & session("car_prod_id")(loop1)
End If
End If
Next
If temp = "" Then
Session.Abandon
%>

 <script>location.reload()</script>
 <%
	Else
 arrTemp = Split(temp,"/")
 Session("car_prod_id") = arrTemp
	End IF

End If

Case "zerar"
Session.Abandon
%>
<script>window.location='./carrocompras.asp'</script>
<%
End Select

'Exibe Pedido Atual
temp = ""
%>

<tr width=100%><td width=100%> </td></tr>
<tr width=100%><td width=100%><h3>Pedido Atual</h3></td></tr>
<tr width=100%><td width=100%>

<%
If IsEmpty(Session("car_prod_id")) Then
%>
<h4>Carrinho Vazio</h4>
<%
Else
Dim car_prod_nome,car_prod_preco,malha1,car_prod_atual
malha1 = "sim"
%>

<table border=1 width=100%>
<tr width=100%><th>Id</th><th>Produto</th><th>Valor/Unid</th><th>Quant.</th><th>SubTotal</th><th>Pedido</th></tr>
 <%
 For loop1 = LBound(session("car_prod_id")) to UBound(session("car_prod_id"))
 arrTemp = Split(Session("car_prod_id")(loop1),"&")
	'car_iten_prod = arrTemp(1)
	set car_prod_atual = lojaDB.Execute("SELECT * FROM produtos WHERE id="& car_iten_prod &" AND disp='S'")
	car_prod_nome = car_prod_atual("nome")
	car_prod_preco = car_prod_atual("preco")
	arrTemp = Split(Session("car_prod_id")(loop1),"&")
	car_iten_id = arrTemp(0)
	car_iten_quant = arrTemp(2)
	car_subtotal = car_iten_quant * car_prod_preco
	car_total = car_total + car_subtotal
	%>
 <tr width=100% valign=top class=<%=malha1%> align=center><td><%=car_iten_id%></td><td align=left><%=car_prod_nome%></td><td>R$<%=car_prod_preco%></td><td><%=car_iten_quant%></td><td>R$<%=car_subtotal%></td><td><a href="./carrocompras.asp?acao=excluir&car_iten_id=<%=car_iten_id%>&url_comp=<%=Server.UrlEncode(Request.QueryString("url_comp"))%>">Cancelar Item</a></td></tr>
 <%
	If malha1 = "sim" Then malha1 = "nao" Else malha1 = "sim" End If
	car_prod_atual.Close
	set car_prod_atual = Nothing

Next
%>

<tr width=100% class=<%=malha1%> align=center><td></td><td></td><td></td><td><b>Total = </b></td><td><b>R$<%=car_total%></b></td><td><a href="./carrocompras.asp?acao=zerar&url_comp=<%=Server.UrlEncode(Request.QueryString("url_comp"))%>">Cancelar Tudo</a></td></tr>
</table>
<tr><td> </td></tr>
<tr width=100% align=center><td width=100%><h3><a href="./fecharpedido.asp?log=in">Fechar Pedido</a></h3></td></tr>

<% End If %>
</td></tr></table>

Desde já agradeço e obrigado