In this file, remove everything outside of the two large functions.
The above are redundant with ECatalog.inc which includes the MS ADO constants.
Next find the following fragment: ...
REM - Handle shopper
if IsNull(mscsShopperID) then
mscsShopperID = mscsShopperManager.CreateShopperID()
mscsPage.PutShopperID(mscsShopperID)
call Response.Redirect(pageURL("default.asp"))
end if
... and comment out or remove the call statement.