Article ID: 172662
Article Last Modified on 9/30/2003
/*
* Create a table to hold the last assigned order number. Seed it at 100.
*
*/
drop table ClockPed_ordernumber
go
create table ClockPed_ordernumber(
order_id int)
go
INSERT ClockPed_ordernumber VALUES (100)
go
drop proc sp_CPgetorderid
go
CREATE PROCEDURE sp_CPgetorderid
@ide int = 0
AS
UPDATE ClockPed_ordernumber
SET next_order_id = next_order_id+1 , @ide = next_order_id
SELECT @ide order_id
go
if IsEmpty(orderForm) then
REM -- create a new orderform:
set orderForm = Server.CreateObject("Commerce.OrderForm")
orderForm.shopper_id = shopperID
orderForm.date_created = Now
REM Retrieve the next available order_id number from the database
REM
on error resume next
set o_id = MSCSDataSource.Execute("EXEC sp_CPgetorderid")(0)
on error goto 0
if Not IsEmpty(o_id) then
orderForm.order_id = o_id.order_id
end if
REM -- add item to orderform:
set item = orderForm.AddItem(CStr(product_sku), product_qty, 0)
<% OrderID = Request("order_id")
set test = DataSource.Execute("select neworder_id from vc_receipt where
order_id = :1", OrderID)(0) %>
<TR><TD colspan=3>For future reference, please make a note of the
tracking number for this order.</TD></TR>
<TR><TD> </TD></TR>
<TR><TD><img src="<% =Application("Images") %>images/trackno.gif"
valign=bottom></td><td valign=top><b>
<% = test.neworder_id %>
</b></td></TD><td> </td></TR>
Additional query words: orderform orderforms Merchant
Keywords: kbhowto kbinfo kbprogramming kbusage KB172662