Invalid use of Null: 'cstr'

cStr() kan ikke finde ud af NULL/Nothing værdier. Ændre det til:
intOrderID = Session("orderID")&""

nu er den sur over

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/addToCart.asp, line 29

  Conn.Execute("INSERT INTO orders " _

Prøv at udskrive din sql til skærmen, så du kan se hvad der er galt med den.

uu hvordan er det nu jeg gør det ? :-)

det har virket f'r.. kan det v;re noget microsoft _

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

evt med en response.end lige efter write'en.

men hvor skal jeg sætte det ind ? i toppen

<%   
'******************************************************
'Copyright©2000-2002 MetaLinks.com @ http://metalinks.com
'******************************************************   
Response.Expires = 0
Response.ExpiresAbsolute = DateAdd("d", -14, Now())
Response.AddHeader "cache-control", "no-store, must-revalidate, private"
Response.AddHeader "pragma","no-cache"
Response.CacheControl = "private"

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

    Sub CreateNewOrder()
        Application.lock
        if Application("orderID") = "" then
                    strMaxOrderIdSQL = "SELECT MAX(orderId) AS biggestOrderId FROM orders"
                    Set rsMaxOrderId = Conn.Execute(strMaxOrderIdSQL)
                    intOrderID = rsMaxOrderId("biggestOrderId")
                    Application("orderID") = intOrderID+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 = 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 = "Dit indkøb er nu registreret og ligger i indkøbskurven" 
        AddToOrder intOrderID, intProdID, intQuant
    else
        txtInfo = "Dette produkt ligger allerede i din indkøbskurv."
    end if
   

%>

Nej. I din "Sub AddToOrder(nOrderID, nProductID, nQuant)" funktion...

samme fejl Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/addToCart.asp, line 37

session("mail_sendt") = ""

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


    Sub CreateNewOrder()
        Application.lock
        if Application("orderID") = "" then
                    strMaxOrderIdSQL = "SELECT MAX(orderId) AS biggestOrderId FROM orders"
                    Set rsMaxOrderId = Conn.Execute(strMaxOrderIdSQL)
                    intOrderID = rsMaxOrderId("biggestOrderId")
                    Application("orderID") = intOrderID+1
        end if

jeg fatter ikke den laver den fejl.. det er et gratis shop og på deres side kører det perfekt.. men når jeg lægger den op på min server laver den fejl..

Uden jeg har rettet i koden =?

Fejlen er en type-fejl..
Er det dig der har indført det typecast med CStr() ?

For det der er problemet er at du sætter en tekststreng ind i din sql, men du fortæller den at det er en numerisk værdi der kommer ind..

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

Dette skulle løse dit problem med syntaxen... (' omkring nOrderID), men så er spørgsmålet hvilken datatype feltet OrderID har i din database...? Er det tal eller tekst..?

OrderId er tal

Koden nu:

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

    Sub CreateNewOrder()
        Application.lock
        if Application("orderID") = "" then
                    strMaxOrderIdSQL = "SELECT MAX(orderId) AS biggestOrderId FROM orders"
                    Set rsMaxOrderId = Conn.Execute(strMaxOrderIdSQL)
                    intOrderID = rsMaxOrderId("biggestOrderId")
                    Application("orderID") = intOrderID+1
        end if
     
       
      intOrderID = Application("orderID")
      Session("orderID") = intOrderID
      Conn.Execute("INSERT INTO orders " _
        & " (orderID, status) values " _
        & " ("&intOrderID&", 'OPEN')")


Fejl:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/addToCart.asp, line 37

Conn.Execute("INSERT INTO orders " _
        & " (orderID, status) values " _

så er det fordi du prøver at sætte en streng ind i et tal-felt..
så vil jeg mene at hele din kode skal se ud som:

<% 
'******************************************************
'Copyright©2000-2002 MetaLinks.com @ http://metalinks.com
'****************************************************** 
Response.Expires = 0
Response.ExpiresAbsolute = DateAdd("d", -14, Now())
Response.AddHeader "cache-control", "no-store, must-revalidate, private"
Response.AddHeader "pragma","no-cache"
Response.CacheControl = "private"

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

    Sub CreateNewOrder()
        Application.lock
        if Application("orderID") = "" then
                    strMaxOrderIdSQL = "SELECT MAX(orderId) AS biggestOrderId FROM orders"
                    Set rsMaxOrderId = Conn.Execute(strMaxOrderIdSQL)
                    intOrderID = rsMaxOrderId("biggestOrderId")
                    Application("orderID") = intOrderID+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 = Session("orderID")
    if not isNumeric(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 = "Dit indkøb er nu registreret og ligger i indkøbskurven"
        AddToOrder intOrderID, intProdID, intQuant
    else
        txtInfo = "Dette produkt ligger allerede i din indkøbskurv."
    end if
 

%>

Den laver fejl på denne linie

  Conn.Execute("INSERT INTO orders " _

æv

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error in INSERT INTO statement.

/addToCart.asp, line 35

hmm....

mystisk...

<%
'******************************************************
'Copyright©2000-2002 MetaLinks.com @ http://metalinks.com
'******************************************************
Response.Expires = 0
Response.ExpiresAbsolute = DateAdd("d", -14, Now())
Response.AddHeader "cache-control", "no-store, must-revalidate, private"
Response.AddHeader "pragma","no-cache"
Response.CacheControl = "private"

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

    Sub CreateNewOrder()
        Application.lock
        if Application("orderID") = "" then
                    strMaxOrderIdSQL = "SELECT MAX(orderId) AS biggestOrderId FROM orders"
                    Set rsMaxOrderId = Conn.Execute(strMaxOrderIdSQL)
                    intOrderID = CInt(rsMaxOrderId("biggestOrderId"))
                    Application("orderID") = intOrderID+1
        end if
 
   
      intOrderID = CInt(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 " _
            & " ("&CInt(nOrderID)&", "&CInt(nProductID)&", "&CInt(nQuant)&")"
        Conn.Execute(sqlText)

    End Sub



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

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

  intOrderID = Session("orderID")
    if not isNumeric(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 = "Dit indkøb er nu registreret og ligger i indkøbskurven"
        AddToOrder intOrderID, intProdID, intQuant
    else
        txtInfo = "Dette produkt ligger allerede i din indkøbskurv."
    end if


%>

prøv det her, nu er der vidst i hvert fald ingen type fejl...

Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'CInt'

/addToCart.asp, line 33


intOrderID = CInt(Application("orderID"))

det var da mystisk...
Så prøver vi noget andet...


<%
'******************************************************
'Copyright©2000-2002 MetaLinks.com @ http://metalinks.com
'******************************************************
Response.Expires = 0
Response.ExpiresAbsolute = DateAdd("d", -14, Now())
Response.AddHeader "cache-control", "no-store, must-revalidate, private"
Response.AddHeader "pragma","no-cache"
Response.CacheControl = "private"

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

    Sub CreateNewOrder()
        Application.lock
        if isNull(Application("orderID")) then
                    strMaxOrderIdSQL = "SELECT MAX(orderId) AS biggestOrderId FROM orders"
                    Set rsMaxOrderId = Conn.Execute(strMaxOrderIdSQL)
                    intOrderID = CInt(rsMaxOrderId("biggestOrderId"))
                    Application("orderID") = intOrderID+1
        end if

 
      intOrderID = CInt(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 " _
            & " ("&CInt(nOrderID)&", "&CInt(nProductID)&", "&CInt(nQuant)&")"
        Conn.Execute(sqlText)

    End Sub



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

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

  intOrderID = Session("orderID")
    if not isNumeric(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 = "Dit indkøb er nu registreret og ligger i indkøbskurven"
        AddToOrder intOrderID, intProdID, intQuant
    else
        txtInfo = "Dette produkt ligger allerede i din indkøbskurv."
    end if


%>

Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'CInt'

/addToCart.asp, line 28


  intOrderID = CInt(rsMaxOrderId("biggestOrderId"))

skal jeg ændre noget i DB ?

prøv at køb http://www.trianglens.dk/product.asp?intProdID=26

nej... tror problemet er at der ikk er noget i databasen...

<%
'******************************************************
'Copyright©2000-2002 MetaLinks.com @ http://metalinks.com
'******************************************************
Response.Expires = 0
Response.ExpiresAbsolute = DateAdd("d", -14, Now())
Response.AddHeader "cache-control", "no-store, must-revalidate, private"
Response.AddHeader "pragma","no-cache"
Response.CacheControl = "private"

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

    Sub CreateNewOrder()
        Application.lock
        if isNull(Application("orderID")) then
                    strMaxOrderIdSQL = "SELECT MAX(orderId) AS biggestOrderId FROM orders"
                    Set rsMaxOrderId = Conn.Execute(strMaxOrderIdSQL)
                    if rsMaxOrderId.eof then
                      intOrderID = 1
                    else
                      intOrderID = CInt(rsMaxOrderId("biggestOrderId"))
                    end if
                    Application("orderID") = intOrderID+1
        end if


      intOrderID = CInt(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 " _
            & " ("&CInt(nOrderID)&", "&CInt(nProductID)&", "&CInt(nQuant)&")"
        Conn.Execute(sqlText)

    End Sub



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

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

  intOrderID = Session("orderID")
    if not isNumeric(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 = "Dit indkøb er nu registreret og ligger i indkøbskurven"
        AddToOrder intOrderID, intProdID, intQuant
    else
        txtInfo = "Dette produkt ligger allerede i din indkøbskurv."
    end if


%>

tror vi er ved at være der...

ja men nu sætter den det jeg havde i copy ind ? og man kan ikke går til indkøbskurv

prøv http://www.trianglens.dk/product.asp?intProdID=26

det du havde i copy?

sorry glem det

Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'CInt'

/addToCart.asp, line 31

intOrderID = CInt(rsMaxOrderId("biggestOrderId"))

hmm... jeg tror efterhånden jeg må melde pas så... det er meget mystisk, og synes variablene ryger lidt omkring..

Men jeg har fået en anden fejl som vi kan prøve om hjælper..

<%
'******************************************************
'Copyright©2000-2002 MetaLinks.com @ http://metalinks.com
'******************************************************
Response.Expires = 0
Response.ExpiresAbsolute = DateAdd("d", -14, Now())
Response.AddHeader "cache-control", "no-store, must-revalidate, private"
Response.AddHeader "pragma","no-cache"
Response.CacheControl = "private"

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

    Sub CreateNewOrder()
        Application.lock
        if isNull(Application("orderID")) then
                    strMaxOrderIdSQL = "SELECT MAX(orderId) AS biggestOrderId FROM orders"
                    Set rsMaxOrderId = Conn.Execute(strMaxOrderIdSQL)
                    if rsMaxOrderId.eof then
                      intOrderID = 1
                    else
                      intOrderID = CInt(rsMaxOrderId("biggestOrderId"))
                    end if
                    Application("orderID") = intOrderID+1
        end if


      intOrderID = CInt(Application("orderID"))
      Session("orderID") = intOrderID
      Conn.Execute("INSERT INTO orders " _
        & " (orderID, status) values " _
        & " ("&intOrderID&", 'OPEN')")

        Application("orderID") = Application("orderID") + 1
      Application.Unlock
      CreateNewOrder = intOrderID
    End Sub

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

    End Sub



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

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

  intOrderID = Session("orderID")
    if not isNumeric(intOrderID) then
      intOrderID = CreateNewOrder
    end if

    sqlText = "SELECT * FROM itemsOrdered WHERE orderID =" & intOrderID & "AND productID =" & intProdID
    set rsOrder = Conn.Execute(sqlText)

    if rsOrder.EOF then
        txtInfo = "Dit indkøb er nu registreret og ligger i indkøbskurven"
        AddToOrder intOrderID, intProdID, intQuant
    else
        txtInfo = "Dette produkt ligger allerede i din indkøbskurv."
    end if


%>

nej ikke give op :-) pls. vi er der næsten

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'CreateNewOrder'

/addToCart.asp, line 67

intOrderID = CreateNewOrder

måske du gider prøve den det er hurtigt at lægge op

http://www.trianglens.dk/mcartfree.zip

heh... det var lige mig der var dum der :-)

den tager jeg lige fra mig selv igen...

<%
'******************************************************
'Copyright©2000-2002 MetaLinks.com @ http://metalinks.com
'******************************************************
Response.Expires = 0
Response.ExpiresAbsolute = DateAdd("d", -14, Now())
Response.AddHeader "cache-control", "no-store, must-revalidate, private"
Response.AddHeader "pragma","no-cache"
Response.CacheControl = "private"

session("mail_sendt") = ""
function AddToOrder(nOrderID, nProductID, nQuant)
        sqlText = "INSERT INTO itemsOrdered " _
            & " (orderID, productID, quantity) values " _
            & " ("&CInt(nOrderID)&", "&CInt(nProductID)&", "&CInt(nQuant)&")"
        Conn.Execute(sqlText)
    End function

    function CreateNewOrder()
        Application.lock
        if isNull(Application("orderID")) then
                    strMaxOrderIdSQL = "SELECT MAX(orderId) AS biggestOrderId FROM orders"
                    Set rsMaxOrderId = Conn.Execute(strMaxOrderIdSQL)
                    if rsMaxOrderId.eof then
                      intOrderID = 1
                    else
                      intOrderID = CInt(rsMaxOrderId("biggestOrderId"))
                    end if
                    Application("orderID") = intOrderID+1
        CreateNewOrder = IntOrderID
        end if


      intOrderID = CInt(Application("orderID"))
      Session("orderID") = intOrderID
      Conn.Execute("INSERT INTO orders " _
        & " (orderID, status) values " _
        & " ("&intOrderID&", 'OPEN')")

        Application("orderID") = Application("orderID") + 1
      Application.Unlock
    End function




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

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

  intOrderID = Session("orderID")
    if not isNumeric(intOrderID) then
      intOrderID = CreateNewOrder()
    end if

    sqlText = "SELECT * FROM itemsOrdered WHERE orderID =" & intOrderID & "AND productID =" & intProdID
    set rsOrder = Conn.Execute(sqlText)

    if rsOrder.EOF then
        txtInfo = "Dit indkøb er nu registreret og ligger i indkøbskurven"
        AddToOrder(intOrderID, intProdID, intQuant)
    else
        txtInfo = "Dette produkt ligger allerede i din indkøbskurv."
    end if


%>

prøv lige denne...

nej nej....

denne linie:
CreateNewOrder = IntOrderID

skal flyttes til inden end Function

kan jeg få hele koden rigtig :-)

<%
'******************************************************
'Copyright©2000-2002 MetaLinks.com @ http://metalinks.com
'******************************************************
Response.Expires = 0
Response.ExpiresAbsolute = DateAdd("d", -14, Now())
Response.AddHeader "cache-control", "no-store, must-revalidate, private"
Response.AddHeader "pragma","no-cache"
Response.CacheControl = "private"

session("mail_sendt") = ""
function AddToOrder(nOrderID, nProductID, nQuant)
        sqlText = "INSERT INTO itemsOrdered " _
            & " (orderID, productID, quantity) values " _
            & " ("&CInt(nOrderID)&", "&CInt(nProductID)&", "&CInt(nQuant)&")"
        Conn.Execute(sqlText)
    End function

    function CreateNewOrder()
        Application.lock
        if isNull(Application("orderID")) then
                    strMaxOrderIdSQL = "SELECT MAX(orderId) AS biggestOrderId FROM orders"
                    Set rsMaxOrderId = Conn.Execute(strMaxOrderIdSQL)
                    if rsMaxOrderId.eof then
                      intOrderID = 1
                    else
                      intOrderID = CInt(rsMaxOrderId("biggestOrderId"))
                    end if
                    Application("orderID") = intOrderID+1

        end if


      intOrderID = CInt(Application("orderID"))
      Session("orderID") = intOrderID
      Conn.Execute("INSERT INTO orders " _
        & " (orderID, status) values " _
        & " ("&intOrderID&", 'OPEN')")

        Application("orderID") = Application("orderID") + 1
      Application.Unlock
        CreateNewOrder = IntOrderID
    End function




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

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

  intOrderID = Session("orderID")
    if not isNumeric(intOrderID) then
      intOrderID = CreateNewOrder()
    end if

    sqlText = "SELECT * FROM itemsOrdered WHERE orderID =" & intOrderID & "AND productID =" & intProdID
    set rsOrder = Conn.Execute(sqlText)

    if rsOrder.EOF then
        txtInfo = "Dit indkøb er nu registreret og ligger i indkøbskurven"
        AddToOrder(intOrderID, intProdID, intQuant)
    else
        txtInfo = "Dette produkt ligger allerede i din indkøbskurv."
    end if


%>

så skidt... :-)

Microsoft VBScript compilation error '800a0414'

Cannot use parentheses when calling a Sub

/addToCart.asp, line 69

AddToOrder(intOrderID, intProdID, intQuant)

hmm... det giver ikk nogen mening, da det ikk er en sub med en function der bliver kaldt...??

har du rettet hele koden til som ovenfor?

her er koden :

<%
'******************************************************
'Copyright©2000-2002 MetaLinks.com @ http://metalinks.com
'******************************************************
Response.Expires = 0
Response.ExpiresAbsolute = DateAdd("d", -14, Now())
Response.AddHeader "cache-control", "no-store, must-revalidate, private"
Response.AddHeader "pragma","no-cache"
Response.CacheControl = "private"

session("mail_sendt") = ""
function AddToOrder(nOrderID, nProductID, nQuant)
        sqlText = "INSERT INTO itemsOrdered " _
            & " (orderID, productID, quantity) values " _
            & " ("&CInt(nOrderID)&", "&CInt(nProductID)&", "&CInt(nQuant)&")"
        Conn.Execute(sqlText)
    End function

    function CreateNewOrder()
        Application.lock
        if isNull(Application("orderID")) then
                    strMaxOrderIdSQL = "SELECT MAX(orderId) AS biggestOrderId FROM orders"
                    Set rsMaxOrderId = Conn.Execute(strMaxOrderIdSQL)
                    if rsMaxOrderId.eof then
                      intOrderID = 1
                    else
                      intOrderID = CInt(rsMaxOrderId("biggestOrderId"))
                    end if
                    Application("orderID") = intOrderID+1

        end if


      intOrderID = CInt(Application("orderID"))
      Session("orderID") = intOrderID
      Conn.Execute("INSERT INTO orders " _
        & " (orderID, status) values " _
        & " ("&intOrderID&", 'OPEN')")

        Application("orderID") = Application("orderID") + 1
      Application.Unlock
        CreateNewOrder = IntOrderID
    End function




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

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

  intOrderID = Session("orderID")
    if not isNumeric(intOrderID) then
      intOrderID = CreateNewOrder()
    end if

    sqlText = "SELECT * FROM itemsOrdered WHERE orderID =" & intOrderID & "AND productID =" & intProdID
    set rsOrder = Conn.Execute(sqlText)

    if rsOrder.EOF then
        txtInfo = "Dit indkøb er nu registreret og ligger i indkøbskurven"
        AddToOrder(intOrderID, intProdID, intQuant)
    else
        txtInfo = "Dette produkt ligger allerede i din indkøbskurv."
    end if


%>

hmm...

det forstår jeg ik...

men bliver nødt til at smutte nu, håber du får det løst.

ok tak for kampen

Funktioner/sub's som kaldes med parametre uden variabel returnering skal kaldes via CALL:

CALL AddToOrder(intOrderID, intProdID, intQuant)

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'orderID =AND productID =4'.

/addToCart.asp, line 65

line 65

set rsOrder = Conn.Execute(sqlText)

Dit intOrderID er tomt.

ok hvad gør jeg ?tager den det ikke med over fra siden før ?

kode fra siden før

<%
'******************************************************
'Copyright©2000-2002 MetaLinks.com @ http://metalinks.com
'****************************************************** 

intProdID = Request.QueryString("intProdID")
%>


<%
      Set Conn = Server.CreateObject("ADODB.Connection")
      Conn.Open ConString
     
      Set rsProdInfo = Conn.Execute("SELECT * FROM " & _
        "products where productID="&intProdID)
      if rsProdInfo.EOF then
        Response.Write "Product Number " & intProdID & _
            " does not exist."
      else
        strName = rsProdInfo("productName")
        strDesc = rsProdInfo("productDesc")
        strImage = rsProdInfo("productImg")
        intPrice = rsProdInfo("productPrice")
%> <td colspan=3 height="17" class="BoxTop"><DIV ALIGN="left"><B><%= strName %></B></DIV></FONT></div></tr></table>
<p><font face="Verdana" size="2"></font></p>
<table border="0" cellspacing="0" cellpadding="2"><BR>
<tr>
<td><img src="<%= strImage %>" align="left" border="0"></a>
<td valign="top"><%= strDesc %></font></td>
<tr>
</table>
<BR><BR><BR><BR><table width="100%" border="0" cellspacing="0" cellpadding="0">
<form action="addToCart.asp" method="post" id="form1" name="form1">

        <input type="hidden" name="intProdID" value="<%= intProdID %>">
 
      <td align="right" valign="middle" nowrap> <input type="text" size="1" name="intQuant" class="Formindhold" value="1" onChange="HandleError(this)">
 
      <input type="submit" value="køb" id="submit1" class="knap" name="submit1">
             
  <b>Pris: Dkr <%= formatNumber(intPrice, 2) %></font></td></b>
    </tr>

</form>

<%
end if
rsProdInfo.Close
set rsProdInfo = Nothing
   
Conn.Close
set Conn = Nothing
%>

Jeg kan ikke se noget OrderID i den kode??

Men hvorfor bruger du overhoved application til at styre dine order ider?? Det trækker du jo bare ud når du opretter en ny order (autonummer på orderID).

jamen jeg ved det ikke det er en gratis shop jeg bruger

Tjek lige din CreateNewOrder() function:

function CreateNewOrder()
  Application.lock
  response.write "Status: "& isNull(Application("orderID")) '<-- Tilføj denne linje
  if isNull(Application("orderID")) then

Der skulle nu gerne blive udskrevet true eller false.

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'orderID =AND productID =15'.

/addToCart.asp, line 68

Linje 68??

set rsOrder = Conn.Execute(sqlText)

sorry

Tror det har noget med disse linjer at gøre:

intOrderID = Session("orderID")
if not isNumeric(intOrderID) then
  intOrderID = CreateNewOrder()
end if

Det tjekker vi lige, så smide lige to linjer ind:
intOrderID = Session("orderID")
response.write "OrderID: "& intOrderID &"**<br>"
response.write "Er tal: "& (not isNumeric(intOrderID))
if not isNumeric(intOrderID) then

OrderID: **
Er tal: False
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'orderID =AND productID =10'.

/addToCart.asp, line 70

Så langt så godt. Prøv at ændre linje:
intOrderID = Session("orderID")

til
intOrderID = Session("orderID")&""

OrderID: **
Er tal: TrueStatus: True
Microsoft VBScript runtime error '800a005e'

Invalid use of Null: 'CInt'

/addToCart.asp, line 34

Linje 34 er det denne??
intOrderID = CInt(rsMaxOrderId("biggestOrderId"))

For så skal vi have rette til denne kode:

if rsMaxOrderId.eof then
  intOrderID = 1
else
  if isNumeric(rsMaxOrderId("biggestOrderId")&"") then
    intOrderID = CInt(rsMaxOrderId("biggestOrderId"))
  else
    intOrderID = 1
  end if
end if
Application("orderID") = intOrderID+1

Du er fantastisk !!!!!!!!!!!! løst fredag aften 1000 milioner tak !!!

no prob :o)

.o) <-- One Eyed Jack