Windows Server

Matt Lovell · Guest

Hi I am fighting with a simple transfer of a comerce server site to a new
server.
The site is running with commerce server 2000 and the new Server is windows
2003
Despite the obvious problem of 2003 not supporting 2000.
My main issue at present are:
Nothing is getting added to the basket.
However I find this is also happening on the live site from my computers
(but not from everywhere). How could the basket fail to add in one place but
do so in another?
Also the site is very very slow on the new server is this due to the
software incompatabilit yissues? are there any fixes?
Thanks
Matt

James Walters [MSFT] · Guest

Hi Matt,

Commerce Server 2000 was never tested on Windows 2003. If you wish to run
Windows2003 you must use at least Commerce Server 2002 SP2.

-James

Hi I am fighting with a simple transfer of a comerce server site to a new
server.
The site is running with commerce server 2000 and the new Server is windows
2003
Despite the obvious problem of 2003 not supporting 2000.
My main issue at present are:
Nothing is getting added to the basket.
However I find this is also happening on the live site from my computers
(but not from everywhere). How could the basket fail to add in one place
but
do so in another?
Also the site is very very slow on the new server is this due to the
software incompatabilit yissues? are there any fixes?

Thanks
Matt

This posting is provided "AS IS" with no warranties, and confers no rights.

EBusiness Server Team

Matt Lovell · Guest

Hi James,
Client has a 2 processor licence for commerce server 2000 can they update
automatically to 2002?
They were a french microsoft webmaster winner in 1999
Or do I have to downgrade the server to 2000?
Unhelpfully this site was built in site server 3 and has been through an
"Upgrade" but has old code.
I need to get the site working before the 28th and ending up banging my head
in frustration over this.
Commerce server 2000 seems to be working ok.... Except when I run a plan
pipeline
its throwing up an error that it can't find item.sku
in the asp code jsut before the call is run I can get the item.sku out of
the object. SO I know we get it from the purchase page.just in case you can
help here is the relevent code

add to basket page

REM Get the order form storage
set mscsOrderFormStorage = UtilGetOrderFormStorage()
REM -- retrieve order form
set mscsOrderForm = UtilGetOrderForm(mscsOrderFormStorage, created)
REM -- add item to orderform:
quantity=1
set item = mscsOrderForm.AddItem(idproduit, quantity, 0)

parametres = null
options = null
tissu = null
attributs = null

select case left(idproduit,3)
case "chs","chc","chk","chp"
parametres = genere_parametres(liste_item_form)
options = genere_options(liste_item_form)
tissu = liste_item_form("idtissu")
case else
attributs = genere_attributs(liste_item_form,idproduit)
end select

item.value("parametres") = parametres
item.value("options") = options
item.value("tissu") = tissu
item.value("attributs") = attributs
item.value("initiales") = liste_item_form("idoption_initiales")

'Response.Write("sku="&item.value("sku")&"parametres =
"&item.value("parametres")&", options = "&item.value("options"))

REM Save the order form
call UtilPutOrderForm(mscsOrderFormStorage, mscsOrderForm, created)

included utilities functions

function UtilGetShopperStorage()
Set shopperStorage = Server.CreateObject("Commerce.DBStorage")
Call shopperStorage.InitStorage(MSCSSite.DefaultConnectionString,
"valmary_shopper", "shopper_id")
Set UtilGetShopperStorage = shopperStorage
end function

function UtilGetShopper(shopperStorage)
on error resume next
set shopper = shopperStorage.GetData(NULL, mscsShopperID)
on error goto 0
if IsNull(shopper) then
UtilGetShopper = NULL
else
Set UtilGetShopper = shopper
end if
end function

function UtilGetOrderFormStorage()
set orderFormStorage = Server.CreateObject("Commerce.DBStorage")
call orderFormStorage.InitStorage(MSCSSite.DefaultConnectionString,
"valmary_basket", "shopper_id", "Commerce.OrderForm", "marshalled_order",
"date_changed")
Set UtilGetOrderFormStorage = orderFormStorage
end function

function UtilGetOrderForm(byRef orderFormStorage, byRef created)
created = 0
on error resume next
set orderForm = orderFormStorage.GetData(null, mscsShopperID)
on error goto 0
if IsEmpty(orderForm) then
set orderForm = Server.CreateObject("Commerce.OrderForm")
orderForm.shopper_id = mscsShopperID
created = 1
end if
set UtilGetOrderForm = orderForm

end function

function UtilPutOrderForm(byRef orderFormStorage, byRef orderForm, byRef
created)
if created = 0 then
call orderFormStorage.CommitData(NULL, orderForm)
else
call orderFormStorage.InsertData(NULL, orderForm)
end if
end function

function UtilGetReceiptStorage()
REM Create a storage object for receipts
Set receiptStorage = Server.CreateObject("Commerce.DBStorage")
Call receiptStorage.InitStorage(MSCSSite.DefaultConnectionString,
"valmary_receipt", "order_id", "Commerce.OrderForm" , "marshalled_receipt",
"date_entered")
receiptStorage.Mapping.Value("_total_total") = "total"

Set UtilGetReceiptStorage = receiptStorage
end function

function UtilGetPipeContext()
Set MSCSQueryMap = Server.CreateObject("Commerce.Dictionary")
Set MSCSQueryMap.product_purchase =
Server.CreateObject("Commerce.Dictionary")
langue = mscsPage.RequestString("langue", "fr", 1, 50, -1, -1, 0, &H040c)

MSCSQueryMap.product_purchase.SQLCommand = "select p.idproduit as sku,
(prixpublic/100) as list_price, l.libelle as name from produit p, libelle
l where p.idproduit=? and l.idlangue='" & langue & "' and
convert(char,p.idproduit) *= l.cle and l.champ = 'produit'"
Set MSCSQueryMap.insert_receipt_item =
Server.CreateObject("Commerce.Dictionary")
MSCSQueryMap.insert_receipt_item.SQLCommand = "insert into
valmary_receipt_item values (?, ?, ?, ?,?)"

Set pipeContext = Server.CreateObject("Commerce.Dictionary")

REM Create the shopper storage
Set MSCSShopperStorage = UtilGetShopperStorage()

REM Get the shopper
on error resume next
Set pipeContext.Shopper = UtilGetShopper(MSCSShopperStorage)
on error goto 0

Set pipeContext("MessageManager") = Application("MSCSMessageManager")
Set pipeContext("DataFunctions") = Application("MSCSDataFunctions")
Set pipeContext("QueryMap") = MSCSQueryMap
Set pipeContext("ConnectionStringMap") =
Application("MSCSSite").ConnectionStringMap
pipeContext("DefaultConnectionString") =
Application("MSCSSite").DefaultConnectionString
pipeContext("Language") = langue
Set UtilGetPipeContext = pipeContext
end function

function UtilRunPipe(file, orderForm, pipeContext)
set pipeline = Server.CreateObject("Commerce.MtsPipeline")
call pipeline.LoadPipe(Server.MapPath("\shop") + "\config\" + file)
'Call pipeline.SetLogFile("c:\temp\pipeline.log")
errorLevel = pipeline.Execute(1, orderForm, pipeContext, 0)
UtilRunPipe = errorLevel
end function

function UtilRunTxPipe(file, orderForm, pipeContext)
set pipeline = Server.CreateObject("Commerce.MtsTxPipeline")
call pipeline.LoadPipe(Server.MapPath("\valmary") + "\config\" + file)
'Call pipeline.SetLogFile("c:\temp\pipeline.log")
errorLevel = pipeline.Execute(1, orderForm, pipeContext, 0)
UtilRunTxPipe = errorLevel
end function

function UtilRunPlan()
REM Create a storage object for the order forms
set mscsOrderFormStorage = UtilGetOrderFormStorage()

REM Get the orderform
set mscsOrderForm = UtilGetOrderForm(MSCSOrderFormStorage, created)
REM Get the basic pipe context
Set mscsPipeContext = UtilGetPipeContext()

REM Create and run the pipe
errorLevel = UtilRunPipe("plan.pcf", mscsOrderForm, mscsPipeContext)

REM Save the order form in case running the pipe made changes to the
order form
if created then
call mscsOrderFormStorage.InsertData(null, mscsOrderForm)
else
call mscsOrderFormStorage.CommitData(null, mscsOrderForm)
end if
Set UtilRunPlan = mscsOrderForm
end function

function GetIdTypeClient(ShopperId)
if IsNull(ShopperId) then
GetIdTypeClient = 1
else
' On retrouve le idTypeclient
REM Create a storage object for the shopper information
set mscsShopperStorage = UtilGetShopperStorage()
set mscsShopper = UtilGetShopper(mscsShopperStorage)
idtypeclient = mscsShopper.idtypeclient
GetIdTypeClient = idtypeclient
end if
end function

"James Walters [MSFT]" wrote:

James Walters [MSFT] · Guest

They will need to purchase a new license for CS2002, but they can purchase
a software assurance license which will give them free server upgrades for
a certain amount of time... 3 years i believe. This would mean if they
purchased CS2002, they would get a free upgrade license for CS2006.

Yes they should not upgrade to windows 2003 unless they install CS2002 SP2
or later.

-James

From: "=?Utf-8?B?TWF0dCBMb3ZlbGw=?=" <MattLovell@discussions.microsoft.com>
Subject: RE: Transfering Commerce server issues
Date: Wed, 23 Feb 2005 10:37:06 -0800
Newsgroups: microsoft.public.commerceserver.general

Hi James,
Client has a 2 processor licence for commerce server 2000 can they update
automatically to 2002?
They were a french microsoft webmaster winner in 1999
Or do I have to downgrade the server to 2000?
Unhelpfully this site was built in site server 3 and has been through an
"Upgrade" but has old code.
I need to get the site working before the 28th and ending up banging my
head
in frustration over this.
Commerce server 2000 seems to be working ok.... Except when I run a plan
pipeline
its throwing up an error that it can't find item.sku
in the asp code jsut before the call is run I can get the item.sku out of
the object. SO I know we get it from the purchase page.just in case you can
help here is the relevent code

add to basket page

REM Get the order form storage
set mscsOrderFormStorage = UtilGetOrderFormStorage()
REM -- retrieve order form
set mscsOrderForm = UtilGetOrderForm(mscsOrderFormStorage, created)
REM -- add item to orderform:
quantity=1
set item = mscsOrderForm.AddItem(idproduit, quantity, 0)

parametres = null
options = null
tissu = null
attributs = null

select case left(idproduit,3)
case "chs","chc","chk","chp"
parametres = genere_parametres(liste_item_form)
options = genere_options(liste_item_form)
tissu = liste_item_form("idtissu")
case else
attributs = genere_attributs(liste_item_form,idproduit)
end select

item.value("parametres") = parametres
item.value("options") = options
item.value("tissu") = tissu
item.value("attributs") = attributs
item.value("initiales") = liste_item_form("idoption_initiales")

'Response.Write("sku="&item.value("sku")&"parametres =
"&item.value("parametres")&", options = "&item.value("options"))

REM Save the order form
call UtilPutOrderForm(mscsOrderFormStorage, mscsOrderForm, created)

included utilities functions

function UtilGetShopperStorage()
Set shopperStorage = Server.CreateObject("Commerce.DBStorage")
Call shopperStorage.InitStorage(MSCSSite.DefaultConnectionString,
"valmary_shopper", "shopper_id")
Set UtilGetShopperStorage = shopperStorage
end function

function UtilGetShopper(shopperStorage)
on error resume next
set shopper = shopperStorage.GetData(NULL, mscsShopperID)
on error goto 0
if IsNull(shopper) then
UtilGetShopper = NULL
else
Set UtilGetShopper = shopper
end if
end function

function UtilGetOrderFormStorage()
set orderFormStorage = Server.CreateObject("Commerce.DBStorage")
call orderFormStorage.InitStorage(MSCSSite.DefaultConnectionString,
"valmary_basket", "shopper_id", "Commerce.OrderForm", "marshalled_order",
"date_changed")
Set UtilGetOrderFormStorage = orderFormStorage
end function

function UtilGetOrderForm(byRef orderFormStorage, byRef created)
created = 0
on error resume next
set orderForm = orderFormStorage.GetData(null, mscsShopperID)
on error goto 0
if IsEmpty(orderForm) then
set orderForm = Server.CreateObject("Commerce.OrderForm")
orderForm.shopper_id = mscsShopperID
created = 1
end if
set UtilGetOrderForm = orderForm

end function

function UtilPutOrderForm(byRef orderFormStorage, byRef orderForm, byRef
created)
if created = 0 then
call orderFormStorage.CommitData(NULL, orderForm)
else
call orderFormStorage.InsertData(NULL, orderForm)
end if
end function

function UtilGetReceiptStorage()
REM Create a storage object for receipts
Set receiptStorage = Server.CreateObject("Commerce.DBStorage")
Call receiptStorage.InitStorage(MSCSSite.DefaultConnectionString,
"valmary_receipt", "order_id", "Commerce.OrderForm" , "marshalled_receipt",
"date_entered")
receiptStorage.Mapping.Value("_total_total") = "total"

Set UtilGetReceiptStorage = receiptStorage
end function

function UtilGetPipeContext()
Set MSCSQueryMap = Server.CreateObject("Commerce.Dictionary")
Set MSCSQueryMap.product_purchase =
Server.CreateObject("Commerce.Dictionary")
langue = mscsPage.RequestString("langue", "fr", 1, 50, -1, -1, 0, &H040c)

MSCSQueryMap.product_purchase.SQLCommand = "select p.idproduit as sku,
(prixpublic/100) as list_price, l.libelle as name from produit p, libelle
l where p.idproduit=? and l.idlangue='" & langue & "' and
convert(char,p.idproduit) *= l.cle and l.champ = 'produit'"
Set MSCSQueryMap.insert_receipt_item =
Server.CreateObject("Commerce.Dictionary")
MSCSQueryMap.insert_receipt_item.SQLCommand = "insert into
valmary_receipt_item values (?, ?, ?, ?,?)"

Set pipeContext = Server.CreateObject("Commerce.Dictionary")

REM Create the shopper storage
Set MSCSShopperStorage = UtilGetShopperStorage()

REM Get the shopper
on error resume next
Set pipeContext.Shopper = UtilGetShopper(MSCSShopperStorage)
on error goto 0

Set pipeContext("MessageManager") = Application("MSCSMessageManager")
Set pipeContext("DataFunctions") = Application("MSCSDataFunctions")
Set pipeContext("QueryMap") = MSCSQueryMap
Set pipeContext("ConnectionStringMap") =
Application("MSCSSite").ConnectionStringMap
pipeContext("DefaultConnectionString") =
Application("MSCSSite").DefaultConnectionString
pipeContext("Language") = langue
Set UtilGetPipeContext = pipeContext
end function

function UtilRunPipe(file, orderForm, pipeContext)
set pipeline = Server.CreateObject("Commerce.MtsPipeline")
call pipeline.LoadPipe(Server.MapPath("\shop") + "\config\" + file)
'Call pipeline.SetLogFile("c:\temp\pipeline.log")
errorLevel = pipeline.Execute(1, orderForm, pipeContext, 0)
UtilRunPipe = errorLevel
end function

function UtilRunTxPipe(file, orderForm, pipeContext)
set pipeline = Server.CreateObject("Commerce.MtsTxPipeline")
call pipeline.LoadPipe(Server.MapPath("\valmary") + "\config\" + file)
'Call pipeline.SetLogFile("c:\temp\pipeline.log")
errorLevel = pipeline.Execute(1, orderForm, pipeContext, 0)
UtilRunTxPipe = errorLevel
end function

function UtilRunPlan()
REM Create a storage object for the order forms
set mscsOrderFormStorage = UtilGetOrderFormStorage()

REM Get the orderform
set mscsOrderForm = UtilGetOrderForm(MSCSOrderFormStorage, created)
REM Get the basic pipe context
Set mscsPipeContext = UtilGetPipeContext()

REM Create and run the pipe
errorLevel = UtilRunPipe("plan.pcf", mscsOrderForm, mscsPipeContext)

REM Save the order form in case running the pipe made changes to the
order form
if created then
call mscsOrderFormStorage.InsertData(null, mscsOrderForm)
else
call mscsOrderFormStorage.CommitData(null, mscsOrderForm)
end if
Set UtilRunPlan = mscsOrderForm
end function

function GetIdTypeClient(ShopperId)
if IsNull(ShopperId) then
GetIdTypeClient = 1
else
' On retrouve le idTypeclient
REM Create a storage object for the shopper information
set mscsShopperStorage = UtilGetShopperStorage()
set mscsShopper = UtilGetShopper(mscsShopperStorage)
idtypeclient = mscsShopper.idtypeclient
GetIdTypeClient = idtypeclient
end if
end function

"James Walters [MSFT]" wrote:

	Windows Server Forum Index -> Commerce Server	All times are GMT
Page 1 of 1