<!--#Include virtual ="/includes/errorinc.asp"-->

<%

'<'---- Create Connection to the Database Place your database name here----
Set ConnSQL = DBConnect("databasenamehere.mdb")
'-----End Connection Creation--- < BR >'set up an sql statement
SqlQuery = "SELECT cartitems.* FROM cartitems WHERE (((cartitems.CustNo)=" & ck & "));"

'Execute your sql statement
Set RS = ExecuteSQL(connSQL, SQLQuery)
'look at a record field rs("ProductID")

'do while loop to move though recordsets.
Do While RS.EOF = False

Loop

'Delete SQL Statement Deletes records
SqlQuery = "DELETE cartitems.ItemID FROM cartitems WHERE (((cartitems.ItemID)=" & rs("ItemID") & "));"

'update sql statement update records
SqlQuery = "UPDATE cartitems SET cartitems.Qty =" & qty1 & " WHERE (((cartitems.ItemID)=" & rs("ItemID") & "));"

'add new record
SqLQuery = "Insert INTO CartItems (CustNo,ProductID,QTY) values ('" & ck & "','" & request("Item") & "','1');"

'This file will not work but has some sample code in it in case you get stuck. Just run
'Set RS = ExecuteSQL(connSQL, SQLQuery) and that will run your sql statement.
'Good Luck.

%>