---
title: "knas med sub"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/111140-knas-med-sub"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Gimbo"
published: "2004-09-08T22:44:15.000Z"
updated: "2004-09-09T17:21:21.000Z"
replies: 2
views: 229
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/111140-knas-med-sub"
---

# knas med sub

## #1 — Gimbo, 2004-09-08T22:44Z

hejsan har denna kod for att adda ngt till kundvagnen:

```
<!-- #include file="db.asp" -->
<!-- #include file="adovbs.inc" -->
<%    
 
    Sub CreateNewOrder()
        Application.lock
        if Application("orderID") = "" then
			Application("orderID") = 1
        end if
       
        
       intOrderID = Application("orderID")
       Session("orderID") = intOrderID
       Conn.Execute("INSERT INTO orders " _
		& " (orderID, status) values " _
		& " ("&intOrderID&", 'OPEN')")
		
		Application("orderID") = Application("orderID") + 1
       Application.Unlock
    End Sub

    Sub AddToOrder(nOrderID, nProductID, nQuant)
        sqlText = "INSERT INTO itemsOrdered " _
            & " (orderID, productID, quantity) values " _ 
            & " ("&nOrderID&", "&nProductID&", "&nQuant&")"
        Conn.Execute(sqlText)

    End Sub

  
    
    'Main program 
    intProdID = Request.form("intProdID")
    intQuant = Request.form("intQuant")

    'set Conn = Server.CreateObject("ADODB.Connection")
    'Conn.Open ConString
    call openDB

    intOrderID = cstr(Session("orderID"))
    if intOrderID = "" then
       CreateNewOrder
    end if

	sqlText = "SELECT * FROM itemsOrdered WHERE orderID =" & intOrderID & "AND productID =" & intProdID
	set rsOrder = Conn.Execute(sqlText)
	
	if rsOrder.EOF then
	txtInfo = "This item has been added to your order."  
	    AddToOrder intOrderID, intProdID, intQuant
	else
		txtInfo = "This item is already in your cart."
	end if
	

response.redirect "reviewOrder.asp"
%>
```

problemet e att programmet inte addar ngt till tabellen orders, dvs denna kodsnutt funkar inte:

```
Conn.Execute("INSERT INTO orders " _
		& " (orderID, status) values " _
		& " ("&intOrderID&", 'OPEN')")
```

det funkade fint med access men sa fort jag gick over pa msSQL7.0 sa funka d inte, ngn som vet varfor??

det verkar som att intOrderID inte tilldelas ngt varde?? for nar jag kor med 

```
    if intOrderID <> "" then
       CreateNewOrder
    end if
```

sa funkar det men i detta fall funkar inte kundvagnen som den skall dvs nar man handlar 2produkter sa ersatter den andra produkten den forsta

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

## #2 — @nders, 2004-09-09T03:19Z

Jag har dessvärre inget svar på din fråga, men jag antar att du skrivit ut alla värden och variabler för att kolla vad de har för värden?

Dessutom: varför inkluderar du adovbs.inc på din asp-sida? Använder du några av konstanterna någonstans i den del av sidans kod du inte visar?

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

## #3 — Gimbo, 2004-09-09T17:21Z

mmm... har en raknare med application...

men om jag gor fragan lite mer avancerad, jag anvander ovanstaende kod for att lagga in ngt i kundvagnen, jag listar produkterna under varandra o varje produkt har sitt unika varde sa nar man klickar pa lagg till sa hamnar just den produkten i kundvagnen, hur gor jag for att istallet for att ha en knapp vid varje produkt ha en checkbox och man skall kunna valja de produkterna man vill ha o klicka pa kop en gang sa hamnar samtliga av de markerade produkterna i kundvagnen?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/111140-knas-med-sub