Kundvagn - Bludder och Problem

Eftersom jag inte fick problemet löst i mitt förra inlägg försöker jag här igen. Och JA koden är bluddrig!

Detta skulle jag vilja ha löst:

1. Att varukorgen uppdateras automatiskt när man lägger till en vara (köpet görs i annan frame). Varan läggs ju till nu , fast syns inte om man inte uppdaterar. Hur ska man göra?

2. När varukorgen är tom visas ju "Varukorgen är tom" fast ett steg ner i <select> boxen (= alltså första raden är blank). Var i koden ligger detta problem?

<select name="meny">
<option value=""><%
c = 0 
total = 0
sBuffer = ""

Set rsQuery = Con.Execute("SELECT * FROM Products")
While Not rsQuery.EOF
Amount = GetByVareID(rsQuery("ID"))
If Amount > 0 Then
%><%= Amount %> st <%= rsQuery("ProductName") %>
<option value=""><%
c = c + 1
total = Int(total) + (Amount * rsQuery("Price"))
sBuffer = sBuffer & "- " & Amount & " pcs. " & rsQuery("Productname") & " a " & rsQuery("Price") & " " & SET_CURRENCY & VbCrlf
End If
rsQuery.MoveNext
Wend
%>
<%
If total = 0 Then
%><option value="">Kundvagnen är tom.
<%
End If
%>
</select>

Totalt <%= Total %> <%= SET_CURRENCY %> 

<%
sBuffer = sBuffer & VbCrlf & "Total: " & Total & " " & SET_CURRENCY
%>

1. Om varan läggs till i tabellen bör den rimligtvis synas när du väljer ut datat. Jag förstår inte varför det inte fungerar när du uppdaterar. Är det en annan frame som måste uppdateras för att det ska hämtas ut ny data?

2. Det kanske kan lösas enkelt med

%><option value="" selected>Kundvagnen är tom.

Jo den funkar om jag updaterar den "manuellt" , alltså varan
läggs ju till, men jag skulle vilja att den updateras automatiskt
när man gör ett köp. Action scriptet för submit(köp) knappen (som ligger i en annan fram) är :

action="order.asp?catid=<%= Int(Request.Querystring("catid")) %>"

Och själva order.asp sidan är enligt följande:

<!--#include file="include_header.asp" -->
<%
ClearItems(Request.Querystring("catID"))
ClearBoxes(Request.Querystring("catID"))

Session("OrderList") = Session("Orderlist") & "@" & Request.Querystring("catID")
Session("BoxList") 	 = Session("BoxList")   & "@" & Request.Querystring("catID")
For Each FormItem In Request.Form
	Data = Request.Form(FormItem)
	If FormItem <> "Submit" Then
	If Left(FormItem, 5) <> "image" Then
		If Left(FormItem, 1) <> "b" Then
			If Data <> "" Then
				'Assign
				If IsNumeric(Data) Then
					Session("OrderList") = Session("OrderList") & "|" & FormItem & "-" & Request.Form(FormItem)
				End If
			End If
		Else
			If Data <> "" Then
				If IsNumeric(Data) Then
					Session("BoxList") = Session("BoxList") & "|" & Replace(FormItem, "b", "") & "-" & Request.Form(FormItem)
				End If
			End If
		End If
	End If
	End If	
Next

Function ClearItems(KatNR)

	sData = Split(Session("OrderList"), "@")
	For i = 0 To Ubound(sData)
		If sData(i) <> "" Then
			If Int(Left(sData(i), Len(KatNR))) = Int(KatNR) Then 
				sData(i) = ""
				'REsponse.Write sData(i) & "<br>"
			End If
		End If
	Next
	'reassemble
	Session("OrderList") = ""
	For i = 0 To Ubound(sData)
		If sData(i) <> "" Then
			Session("OrderList") = Session("OrderList") & "@" & sData(i)
		End If
	Next
End Function

Function ClearBoxes(KatNR)

	sData = Split(Session("BoxList"), "@")
	For i = 0 To Ubound(sData)
		If sData(i) <> "" Then
			If Int(Left(sData(i), Len(KatNR))) = Int(KatNR) Then 
				sData(i) = ""
				'REsponse.Write sData(i) & "<br>"
			End If
		End If
	Next
	'reassemble
	Session("BoxList") = ""
	For i = 0 To Ubound(sData)
		If sData(i) <> "" Then
			Session("BoxList") = Session("BoxList") & "@" & sData(i)
		End If
	Next
End Function

Response.Redirect Request.ServerVariables("HTTP_REFERER")
%>

Tack för hjälpen på 2:an !