Shopping Basket taking extra value -> GLOBAL.asa ?

Hi

for the last few months i've just stuck in 1 error & i don't know how to figer it out
could any body find out where is the problem gonna be ?

it's working fine but when u add product into basket it's bring automatically 1 extra product some time 2 or some time it's working fine i think so problem with GLOBAL.asa File that's not generating proper session variable

GLOBAL.asa

Expand|Select|Wrap|Line Numbers

	
Sub Application_OnStart
 
CStr = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & pPath & ";" & "JET OLEDB:Database Password=foo"
 
    Application("visits") = 0

    Application("Active") = 0
 
    set Conn = Server.CreateObject("ADODB.Connection")

    Conn.Open CStr
 
    set rsMaxOrder = Conn.Execute("select orderID from" _

    & " orders " & "order by orderID desc")

    if rsMaxOrder.EOF then

        Application("orderID") = 1

    else

        Application("orderID") = rsMaxOrder("orderID") + 1

    end if

    rsMaxOrder.Close

    set rsMaxOrder = Nothing

    Conn.Close

    set Conn = Nothing    

End Sub
 
Sub Session_OnStart

    Session("Start") = Now

    session("uname")=""

    Application.lock

    Application("visits") = Application("visits") + 1

    intTotal_visitors = Application("visits")

    Application.unlock

    Session("VisitorID") = intTotal_visitors
 
    Application.lock

    Application("Active") = Application("Active") + 1

    Application.unlock

End Sub
 
Sub Session_OnEnd

    Application.lock

    Application("Active") = Application("Active") - 1

    Application.unlock
 
session("uname")=""

    If Not Application(Session.SessionID) = "" Then

        Application(Session.SessionID) = ""

    End If
 
End Sub

---------------------------------------------------------

Before i add product into the basket there is no item shown into the basket
But when i add product into the basket & after that review then it's create the problem .

There is 2 files

1 - add_to_cart.asp
2 - review_order.asp

__________________________________________________ _______

Expand|Select|Wrap|Line Numbers

	
<!-- #include file="database.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
 
    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
 
%>

<html>

<head>

</head>

<body>

<a href="review_Order.asp">review order</a>

<%

    Conn.Close

    set Conn = Nothing

%>
 
</font></td></tr></table> </body></html>

__________________________________________________ ______

2 - review_order.asp

Expand|Select|Wrap|Line Numbers

	
<%@ Language=VBScript %>

<% pageTitle = "Review Order" %>

<!-- #include file="database.asp" -->

<!-- #include file="adovbs.inc" -->

<html>

<head>

</head>

<body>

<%

    set Conn = Server.CreateObject("ADODB.Connection")

    Conn.Open ConString
 
    if cstr(Session("orderID")) = "" then

        Response.Write "There is no current order." & "<br>"

    else

        intOrderID = cstr(Session("orderID"))
 
        sqlText = "select products.productID, productName, " _

            & "productPrice, quantity from products, " _

            & "itemsOrdered where " _

            & "products.productID = itemsOrdered.productID "_

            & "and itemsOrdered.orderID = " & intOrderID

%>

<%      

set rsReview = Conn.Execute(sqlText)

while not rsReview.EOF  

      intProdID = rsReview("productID")

      strProdName = rsReview("productName")

      intProdPrice = rsReview("productPrice")

      intQuant = rsReview("quantity")

      intTotal = intTotal + (intQuant * intProdPrice)

%>
 
<input name="quant<%= intProdID %>" value=" <%=intQuant%>"><br>

<%= strProdName %> £<%= formatNumber(intProdPrice, 2) %>
 
<%               

rsReview.MoveNext

wend
 
rsReview.Close

set rsReview = Nothing

%>        

<input type="submit" name="control" value="Update Order">

<input type="submit" name="control" value="Go To Check-Out">

<%

    end if
 
    Conn.Close

    set Conn = Nothing

%>

</body></html>

Thanks in advance