<% 'THIS PAGE DISPLAYS A SHIPPING RECORD AND ALLOWS THE ADMIN TO EDIT IT 'DECLARE THE RECORDSET AND SQL STATEMENT VARIABLES Dim sql, rs1 'GENERATE THE SQL STATEMENT sql = "SELECT * FROM SHIPPING WHERE SHIPID= "_ &Request("ShipID")_ &";" 'CREATE THE RECORDSET Set rs1 = Server.CreateObject ("ADODB.Recordset") rs1.Open sql, dbc, adLockOptimistic %>

 Edit A Shipping Upgrade Record:  

Shipping Description:
"> "> Base Shipping Rate:
(e.g. 5, 6.5, etc. Do not use "$" or special characters)
"> Rate Per Item:
(e.g. 5, 6.5, etc. Do not use "$" or special characters)
"> Active?
Yes No
<% 'CLOSE AND CLEAN UP rs1.Close dbc.Close Set rs1 = Nothing Set dbc = Nothing %>