another shipping2.asp code question

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Looking at shipping2.asp code it looks like a section is populated with data but then all the values are set to 0.  Do I just have a bad file or are there good reasons for doing/having code like this:

Dim SimpleAdo, rstRS, SQLStmt

     SQLStmt = "SELECT * FROM [order] "

     SQLStmt = SQLStmt & "WHERE orderid=" & order & ";"

     Set SimpleAdo = New CSimpleAdo

     SimpleAdo.setConnectionString = Session("ConnectionString")

     Set RS = SimpleAdo.getRecordSet(SQLStmt)

If CheckRS(RS) Then

     subtotal = RS("subtotal")

     subhand = RS("subhand")

     subship = RS("subship")

End If

     Set SimpleAdo = Nothing

     Set RS = Nothing

'''''''''''''''''''''''''''''''''''''''''''''''

     'thedate =  Cstr(Date)        &n bsp; 

     'thetime =  Cstr(Time)        &n bsp; 

     subtotal =  0           ;           ;

     subweight =  0           ;           ;

     subsize =  0           ;           ;

     subquantity =  0           ;     

     subship =  0           ;           ;

     subhand =  0           ;           ;

     SQLStmt = "SELECT * From item "

     SQLStmt = SQLStmt & "WHERE [Orderid] =" & Order & "; "

     Set SimpleAdo = New CSimpleAdo

     SimpleAdo.setConnectionString = Session("ConnectionString")

     Set RS = SimpleAdo.getRecordSet(SQLStmt)

You will see in the code above that the following variables (subtotal, subhand, subship) are populated from recordset RS but then set to 0 before items from the item table is formed.

Thanks in advance for the info.