knas med sub

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