Доброго времени суток!
Подскажите как заставить работать этот кусок кода написанный на HTML:
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
Sub mapctrl_ObjectSelect
select case mapctrl.Map.Layers.Active.Elements.Item(mapctrl.CurrentID).TypeId
case 1: fnHideBro(0)
case 6:
zb_nm = MapCtrl.Map.Layers.Active.Bases.Item(5).Name
Set Zb_dom = New ZbDatabase
If Zb_dom.Open(zb_nm) Then
Set Zaproc = Zb_dom.SelectByKey(ZuluId)
dT = Zaproc.FieldValue(4)
IF dT > 0.4 THEN fnHideBro(0)
End If
Case Else:fnHideBro(1)
end select
</SCRIPT>
при обращении к строке "Set Zb_dom = New ZbDatabase" выдаёт ошибку. Я так понимаю нужна zb.dll но как её подключить в html страничке не понимаю, или как по другому обратиться к семантике на языке HTML?
Подскажите как заставить работать этот кусок кода написанный на HTML:
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
Sub mapctrl_ObjectSelect
select case mapctrl.Map.Layers.Active.Elements.Item(mapctrl.CurrentID).TypeId
case 1: fnHideBro(0)
case 6:
zb_nm = MapCtrl.Map.Layers.Active.Bases.Item(5).Name
Set Zb_dom = New ZbDatabase
If Zb_dom.Open(zb_nm) Then
Set Zaproc = Zb_dom.SelectByKey(ZuluId)
dT = Zaproc.FieldValue(4)
IF dT > 0.4 THEN fnHideBro(0)
End If
Case Else:fnHideBro(1)
end select
</SCRIPT>
при обращении к строке "Set Zb_dom = New ZbDatabase" выдаёт ошибку. Я так понимаю нужна zb.dll но как её подключить в html страничке не понимаю, или как по другому обратиться к семантике на языке HTML?