I would like to check for Identical records based on the orderID. Basically checking for the mutiple productID based on the orderID, after the next(for loop). It&#039;s Monday, so forgive me for the simple request!!<BR>Some of my code is below. Thanks<BR><BR>&#060;% <BR>Dim qtyArr<BR>Dim QuantArray<BR>Dim quantities<BR>Dim quantity<BR>Dim count<BR>Dim prodi<BR>Dim I<BR><BR><BR><BR>Quantities = Request("quant")<BR><BR> Sub CreateNewOrder()<BR> Application.lock<BR> if Application("orderID") = "" then<BR> Application("orderID") = 1<BR> end if<BR> <BR> <BR> intOrderID = Application("orderID")<BR> Session("orderID") = intOrderID<BR> Conn.Execute("INSERT INTO orders " _<BR> & " (orderID, status) values " _<BR> & " ("&intOrderID&", &#039;OPEN&#039;)")<BR> <BR> Application("orderID") = Application("orderID") + 1<BR> Application.Unlock<BR> End Sub<BR><BR> Sub AddToOrder(nOrderID, nProductID, strPName, nQuant)<BR> sqlText = "INSERT INTO itemsOrdered " _<BR> & " (orderID, productID, pName, quantity) values " _ <BR> & " ("&nOrderID&", "&nProductID&", &#039;"&strPName&"&#039;, "&nQuant&")" <BR> Conn.Execute(sqlText)<BR><BR> End Sub<BR> <BR> <BR> &#039;Main program <BR> <BR> set Conn = Server.CreateObject("ADODB.Connection")<BR> Conn.Open ConString<BR><BR> intOrderID = cstr(Session("orderID"))<BR> if intOrderID = "" then<BR> CreateNewOrder<BR> end if<BR><BR>dim rsAdd<BR> set rsAdd = Server.CreateObject("ADODB.Recordset")<BR> rsAdd.Open "itemsOrdered", Conn, adOpenStatic, adLockOptimistic, adCmdTable<BR><BR><BR>qtyArr = Split( Request.Form("Quant"), "," ) <BR><BR>prodCount = Request.Form("strAddProducts").Count <BR><BR>If UBound(qtyArr) &#060;&#062; prodCount-1 Then <BR> Response.Write "Mismatch on quantity and product counts!" <BR> Response.End <BR>End If <BR><BR>For itemNum = 1 To prodCount <BR> prodTemp = Split( Request.Form("strAddProducts")(itemNum), "," ) <BR> prodID = Trim(prodTemp(0)) <BR> prodName = Trim(prodTemp(1)) <BR> qty = Trim( qtyArr(itemNum-1) )<BR> <BR> If qty &#060;&#062; 0 Then <BR> rsAdd.AddNew <BR> rsAdd("orderID") = intOrderID <BR> rsAdd("productID") = prodID <BR> rsAdd("pName") = prodName <BR> rsAdd("quantity") = qty <BR> rsAdd.Update <BR> end if<BR>Next