Dim rds, objBusObj, opRecordset, currPrice, currTotal

' -------------------------------------
' Create the dataspace object
' -------------------------------------
Set rds = CreateObject("RDS.DataSpace")

' -----------------------------------------
' Instantiate the business object on server
' -----------------------------------------
Set objBusObj = rds.CreateObject("WT.NWData", "http://<%=Request.ServerVariables("SERVER_NAME")%>")

' -----------------------------------------
' Call the procedure in the business object
' -----------------------------------------
objBusObj.GetProducts opRecordset