Obliczanie ceny ogłoszenia

przykład:

set ctb=CreateObject("CTB.Application")
ctb.LoadCennik "D:\Projects\giełda\CT.Biuro\xmldata\cennik2008.xml"

Set Conn=ctb.ConnOpen("Provider=SQLOLEDB.1;Password=POLzax;Persist Security Info=True;User ID=sa;Initial Catalog=CTB_BOK_TEST;Data Source=10.0.1.1")

'ctb.Przelicz(whereclause,[RozdzielGazety=True],[LiczRabaty=True],[LiczZablokowane=False])

where="idp=130431"
Conn.Execute "update OGL set WYROZNIENIE=0 where " & where
cena=ctb.Przelicz(where)
WSCript.Echo cena
Conn.Execute "update OGL set WYROZNIENIE=1 where " & where
cena=ctb.Przelicz(where)
WSCript.Echo cena