session problem

[najmi]

hai guyz..i want to assign order id for customer..here is my code

 <% 
if Session("OrderNo") = "" then
RANDOMIZE
OrderNo = INT((9999999999 - 1111111111 + 1) * RND + 1111111111)
'Session("OrderNo") = OrderNo
'response.write(Session("OrderNo"))
response.write("OrderNo")
end if
Prod_code = request.form("Prod_code")
'order = Session("OrderNo")
dim objconn
set objconn = Server.CreateObject("ADODB.Connection")
objconn.open "dsn=inkstreets"
 
dim objrs
set objrs = Server.CreateObject("ADODB.Recordset")
objrs.open "select * from Mycart where Prod_code=" & Prod_code , objconn, 1,3
if objrs.eof then
objrs.addnew
objrs("Order_no") = Session("OrderNo")
objrs("Prod_code") = Prod_code
 
objrs("Cart_qty") = 1
objrs.update
'response.redirect("mycart.asp")
else
'response.redirect("mycart.asp")
end if
%>
 

but this not work..can u help me sir

[omerbutt]

can you provide the error code or the line code where the error is occouring

[DrBunchman]

Yes can you provide more detail when asking a question and please remember to use the code tags.

Dr B

[jeffstl]

One thing I see is you are setting your order number = to your generation formula, but the variable you are using is NOT the session variable

OrderNo = INT((9999999999 - 1111111111 + 1) * RND + 1111111111)
 

This should be

Session("OrderNo") = INT((9999999999 - 1111111111 + 1) * RND + 1111111111)
 

Perhaps this is where your confusion is?

Modified:

 
<% 
if Session("OrderNo") = "" then
     RANDOMIZE
     Session("OrderNo") = INT((9999999999 - 1111111111 + 1) * RND + 1111111111)
end if
 
Prod_code = request.form("Prod_code")
 
dim objconn
set objconn = Server.CreateObject("ADODB.Connection")
objconn.open "dsn=inkstreets"
 
dim objrs
set objrs = Server.CreateObject("ADODB.Recordset")
objrs.open "select * from Mycart where Prod_code=" & Prod_code , objconn, 1,3
if objrs.eof then
     objrs.addnew
     objrs("Order_no") = Session("OrderNo")
     objrs("Prod_code") = Prod_code
 
     objrs("Cart_qty") = 1
     objrs.update
 
else
 
end if
%>