---
title: "Kundvagn i <select> form"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/90538-kundvagn-i-select-form"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Thresher"
published: "2003-11-16T12:14:13.000Z"
updated: "2003-11-17T17:52:00.000Z"
replies: 12
views: 258
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/90538-kundvagn-i-select-form"
---

# Kundvagn i <select> form

## #1 — Thresher, 2003-11-16T12:14Z

Hej ,

Finns det någon som kan hjälpa mig att omvandla denna kundvagns kod från ett vanligt tabell format till \<select\> format likt det netonnet.se använder ? Eftersom denna kod  ligger i en annan frame vore det bra också att den uppdateras automatiskt när man lägger till en vara. 

```
<table width="100%" border="0" cellspacing="0" cellpadding="2">
  <tr> 
    <td colspan="3" class="headertext">Kundvagnen</td>
  </tr>
  <tr>
    <td width="3%" class="headertextalt">&nbsp;</td>
	<td width="7%" class="headertextalt">Antal</td>
    <td width="90%" class="headertextalt">Produkt</td>
  </tr>
	<%
	c = 0 
	total = 0
	sBuffer = ""
	
	Set rsQuery = Con.Execute("SELECT * FROM Products")
	While Not rsQuery.EOF
	Amount = GetByVareID(rsQuery("ID"))
	If Amount > 0 Then
	%>
  <tr>
    <td width="3%" class="normaltext" bgcolor="#eeeeee">&nbsp;</td>
	<td width="7%" class="normaltext" bgcolor="#eeeeee"><%= Amount %> st</td>
    <td width="90%" class="normaltext" bgcolor="#eeeeee"><a href="info.asp?catid=<%= rsQuery("CatID") %>&item=<%= rsQuery("ID") %>" target="main"><%= rsQuery("ProductName") %></a></td>
  </tr>
    <%
	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
	%>
	<tr>
	<td class="normaltext">&nbsp;</td>
	<td class="normaltext" colspan="2">Kundvagnen &auml;r tom.</td>
	</tr>
	<%
	End If
	%>
	<tr>
	 <td class="normaltext">&nbsp;</td>
	 <td class="normaltext" align="right">Totalt</td>
	 <td class="normaltext"><%= SET_CURRENCY %> <%= Total %></td>
	</tr>
	<tr>
</table>
	<%
	sBuffer = sBuffer & VbCrlf & "Total: " & Total & " " & SET_CURRENCY
	%>
```

Permalänk: https://www.webforum.nu/p/90538

## #2 — atra, 2003-11-16T13:44Z

den i webshoppen som netonnet.se  använder är gjord av minst 5-9 BRA asp-kodare säkerheten är gigantisk då man täppt igenom varenda bugg INTE fixat d det tycker jag är konstigt men det verkar vara bra!

Permalänk: https://www.webforum.nu/p/1206249

## #3 — atra, 2003-11-16T13:45Z

men nu te det posten handlade om jag fattar inte hur du menar,
menar du att du vill ha så att alla saker som man köper kommer in i en \<select\> typ 
\<select\>äpple\</select\> o shit elr????

Permalänk: https://www.webforum.nu/p/1206250

## #4 — Thresher, 2003-11-16T14:03Z

Hej atra, 

Ja, precis. Alltså som det är nu i scriptet du ser så hamnar dom ju i en tabell under varandra och i stället skulle jag vilja att dom hamnar i en \<select\> under varandra. + att denana automatiskt uppdaterar sig för varje vara som läggs till

Permalänk: https://www.webforum.nu/p/1206260

## #5 — atra, 2003-11-16T14:55Z

använd \<select\>\<%=RecSet("vara")%\>\</select\>
och kopiera upp d!

Permalänk: https://www.webforum.nu/p/1206277

## #6 — Thresher, 2003-11-16T16:17Z

Jag har fått det att funka nu, men har fortfarande lite problem jag skulle vilja ha hjälp med: 

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
%>
```

Permalänk: https://www.webforum.nu/p/1206331

## #7 — cyprys, 2003-11-16T18:19Z

```
<%

response.write("<select name=meny>" & chr(10))
Set rs = Con.Execute("SELECT * FROM Products")

Dim totSum, totProd
totSum = 0
totProd = 0
if rs.eof then 
	response.write("<option value=''>Kundvagnen är tom</option>" & chr(10))
else
	do until rs.eof
		response.write("<option value=''>" & rs("ProductName") & "</option>" & chr(10))
		totSum = totSum - -cint(rs("price"))
		totProd = totProd - -1
		rs.MoveNext
	loop
end if

response.write("</select>" & chr(10))

response.write("Antal Produkter: " & totProd & "<br />")
response.write("Total Summa: " & formatcurrency(totSum, 2) & "<br />")

%>
```

Hmm. Jag tror inte det var såhär du skulle göra men jag hänger tyvärr inte med i din kod. Så kluddrigt. :l

Permalänk: https://www.webforum.nu/p/1206372

## #8 — Thresher, 2003-11-16T20:29Z

Tack för hjälpen Cyprus, 

En sak bara,  nu är alla produkter som finns lagda  i "kundvagnen" från början, vad ska man ändra i koden ?

Permalänk: https://www.webforum.nu/p/1206465

## #9 — cyprys, 2003-11-16T20:31Z

Hur vill du ha det då? Hur vet du vad personen i fråga har i sin kundvagn?

Permalänk: https://www.webforum.nu/p/1206467

## #10 — Thresher, 2003-11-16T20:35Z

Som koden är nu läggs alla varor som finns i databasen till i kundvagnen från början fastän jag tömmer den......

Permalänk: https://www.webforum.nu/p/1206469

## #11 — cyprys, 2003-11-16T21:49Z

Jo. Men hur vet du vad användaren har i sin kundvagn. Hur lagrar du kundens valda produkter?

Permalänk: https://www.webforum.nu/p/1206512

## #12 — Thresher, 2003-11-17T12:07Z

Förstår inte exakt hur du menar men man tömmer kundvagnen med hjälp av denna "string": 

```
<%
Session("Orderlist") = ""
Response.Redirect "notice.asp?msg=Kundvagnen är tom.&link=default.asp"
%>
```

Permalänk: https://www.webforum.nu/p/1206731

## #13 — cyprys, 2003-11-17T17:52Z

Accepterar ditt eget svar, som i sin tur är ett påstående?

Om du i Session("Orderlist") lägger in produkternas ID i detta format:
Session("Orderlist") = "5, 26, 493, 2, 25, 75, 21"
så kan koden se ut ungefär såhär.

```
<%

response.write("<select name=meny>" & chr(10))
Set rs = Con.Execute("SELECT * FROM Products [b]WHERE ID IN (" & Session("Orderlist") & ")[/b]")

Dim totSum, totProd
totSum = 0
totProd = 0
if rs.eof then 
	response.write("<option value=''>Kundvagnen är tom</option>" & chr(10))
else
	do until rs.eof
		response.write("<option value=''>" & rs("ProductName") & "</option>" & chr(10))
		totSum = totSum - -cint(rs("price"))
		totProd = totProd - -1
		rs.MoveNext
	loop
end if

response.write("</select>" & chr(10))

response.write("Antal Produkter: " & totProd & "<br />")
response.write("Total Summa: " & formatcurrency(totSum, 2) & "<br />")

%>
```

Permalänk: https://www.webforum.nu/p/1206997

---

Tråden på webben: https://www.webforum.nu/amne/asp/90538-kundvagn-i-select-form