Hi, I've got the following two pages of code:



first page:



<%

Dim objRec

Dim strConnect

Dim strCustomer, strDestination, strOrderdate





strCustomer = Request.Form("Customer")

strDestination = Request.Form("Destination")

strOrderdate = Request.Form("Orderdate")



strConnect = "DSN=Bestelling"



Set objRec = Server.CreateObject ("ADODB.Recordset")



objRec.Open "tblBestelling", strConnect, adOpenKeyset, adLockOptimistic,

adCmdTable



objRec.AddNew

objRec("Customer") = strCustomer

objRec("Orderdate") = strOrderdate

objRec("Destination") = strDestination

objRec.Update



Response.Write "You've succesfully added your order. This are the values

you've added: <br>"

Response.Write "<br>Klant: " & strKlant

Response.Write "<br>Orderdatum: " & strOrderdatum

Response.Write "<br>Bestemming: " & strBestemming

Response.Write "<br><br>Your OrderID is: " & objRec.Fields("OrderID")



Response.Write "<form action='AddDetails.asp' method=post> <br>"

Response.Write "<table><tr><td>Klant</td><td><input type='tekst'

name='Klant' value=" & strKlant & "></td></tr>"

Response.Write "<tr><td>Orderdatum</td><td><input type='tekst'

name='Orderdatum' value=" & strOrderdatum & "></td></tr>"

Response.Write "<tr><td>Bestemming</td><td><input type='tekst'

name='Bestemming' value=" & strBestemming & "></td></tr>"

Response.Write "</table><br>"

Response.Write "<br> Please fill in the first item to be

ordered<br><table><tr><td>OrderID</td><td><input type='tekst' readonly

name='OrderID' value=" & objRec.Fields("OrderID") & "></td></tr>"

Response.Write "<tr><td>Line Item</td><td><input type='tekst'

name='LineItem'></td></tr>"

Response.Write "<tr><td>Item</td><td><input type='tekst'

name='Item'></td></tr>"

Response.Write "<tr><td><input type='submit' name='Submit'></td><td><input

type='reset' name='Reset'></td></tr>"

Response.Write "</table></form>"









objRec.Close

Set objRec = Nothing

%>



The second page:



<%

Dim objRec

Dim strConnect

Dim strCustomer, strDestination, strOrderdate

Dim strOrderID, strLineItem, strItem



strCustomer = Request.Form("Customer")

strDestination = Request.Form("Destination")

strOrderdate = Request.Form("Orderdate")

strOrderID = Request.Form("OrderID")

strLineItem = Request.Form("LineItem")

strItem = Request.Form("Item")



strConnect = "DSN=Bestelling"



Set objRec = Server.CreateObject ("ADODB.Recordset")



objRec.Open "tblDetails", strConnect, adOpenKeyset, adLockOptimistic,

adCmdTable



objRec.AddNew

objRec("OrderID") = strOrderID

objRec("LineItem") = strLineItem

objRec("Item") = strItem

objRec.Update



Response.Write "You've succesfully added your order. This are the values

you've added: <br>"

Response.Write "<br>Customer: " & strCustomer

Response.Write "<br>Orderdate: " & strOrderdate

Response.Write "<br>Destination: " & strDestination

Response.Write "<br><br>Your OrderID is: " & strOrderID & "<br>"

Response.Write "<br><br>OrderID : " & strOrderID

Response.Write "<br>Line Item : " & strLineItem

Response.Write "<br>Item : " & strItem





objRec.Close

Set objRec = Nothing

%>



I get the error on the objRec.Open -line on the second page. It's opening

the other table and trying to add a new record in that table.



Hope anybody can help me or put me in the right direction.



Kind Regards,

Carolien