Hi, another problem with my Charon cart
I've got to the checkout and I can add my order details (OrderID etc etc)

My tables in ms access are the following:
Orders table:
OrderID(primary key created during asp coding)

OrderDetails table:
OrderDetailsID (autonumber, primary key)
OrderID (text, linked one to many with Orders.OrderID)
etc etc
When I try to do the function on the page, it will only add the OrderID to the OrderDetails table if it's the OrderDetails field is set to text and it's the primary key! (Thus removing the relationship between the two tables)

Have also allowed session variables in my browser
QUOTE
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="inc_CharonCart.asp" -->
<script language="javascript" runat="server">

function GetTimeInMillisec()
{
    var Now = new Date()
    var TimeStamp = Now.getTime()

    return TimeStamp
}

</script>
<!--#include file="Connections/searching.asp" -->
<%
Dim Recordset1__var
Recordset1__var = "1"
If (CCcart_Subtotal <> "") Then
  Recordset1__var = CCcart_Subtotal
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_searching_STRING
Recordset1.Source = "SELECT *  FROM postage  WHERE MinCost <= " + Replace(Recordset1__var, "'", "''") + " AND MaxCost > " + Replace(Recordset1__var, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim rsOrders
Dim rsOrders_numRows

Set rsOrders = Server.CreateObject("ADODB.Recordset")
rsOrders.ActiveConnection = MM_searching_STRING
rsOrders.Source = "SELECT top 1 OrderID, SubTotal, PP, GrandTotal  FROM Orders"
rsOrders.CursorType = 0
rsOrders.CursorLocation = 2
rsOrders.LockType = 3
rsOrders.Open()

rsOrders_numRows = 0
%>
<%
Dim rsOrderDetails
Dim rsOrderDetails_numRows

Set rsOrderDetails = Server.CreateObject("ADODB.Recordset")
rsOrderDetails.ActiveConnection = MM_searching_STRING
rsOrderDetails.Source = "SELECT top 1 OrderID, ProductID, ProductName, UnitPrice, Quantity  FROM OrderDetails"
rsOrderDetails.CursorType = 0
rsOrderDetails.CursorLocation = 2
rsOrderDetails.LockType = 3
rsOrderDetails.Open()

rsOrderDetails_numRows = 0
%>
<%
'
'Add shipping from a value in a recordset
'The recordset may be pre-filtered based on the CCcart_SubTotal value
'
if not Recordset1.eof then
CCcart_Shipping=Recordset1("PostCost")
end if
%>
<%
'
'Insert record into Orders recordset when form is submitted
'and store the unique OrderID
'
CC_OrderAction=Request.ServerVariables("SCRIPT_NAME")
if Request("CC_OrderInsert") <> "" then
TimeKey=GetTimeInMillisec()
rsOrders.AddNew
rsOrders("OrderID")=TimeKey
For Each fld in rsOrders.Fields
if Len(Request(fld.Name)) > 0 then
fld.Value = Request(fld.Name)
end if
Next
rsOrders.Update
rsOrders.Requery
rsOrders.Filter= "OrderID='" & TimeKey & "'"
if rsOrders.eof = false then Session("OrderID")
end if
%>
<%
'
'**Save cart to OrderDetails table in Database**
'
if Request("CC_OrderInsert") <> "" then
'Bindingvalues=("ProductID,Quantity,ProductName,UnitPrice,")
UniqueIdValue=Session("OrderID")
UniqueIdColumn="OrderID"
CC_RedirectURL="checkout2.asp"
sub SaveToDatabase(ODRecordset)
ODRecordset.AddNew
ODRecordset.Fields(UniqueIdColumn)=UniqueIdValue
ODRecordset.Fields("ProductID")=CCcart(CC_ProductID,i)
ODRecordset.Fields("Quantity")=CCcart(CC_Quantity,i)
ODRecordset.Fields("ProductName")=CCcart(CC_Name,i)
ODRecordset.Fields("UnitPrice")=CCcart(CC_Price,i)
rsOrderDetails.Update
end sub
for i=0 to ubound(CCcart,2)
if CCcart(CC_ProductID,i) <> "" then
Call SaveToDatabase(rsOrderDetails)
end if
next
Response.Redirect "search2.asp"

end if
%>

rsOrders gets the OrderID from Orders
rsOrderDetails gets all the fields from OrderDetails (except for OrderDetailID as it's an autonumber)
If anyone could help me out as to why it will only allow it when it's in the OrderDetailsID field that would be great.