如何通过VBScript执行组件方法？

我用VB写了一个网络打印组件，想用VBScript在客户端调用，在客户端的机器上执行打印程序。可是每次都说Script ERROR。我的Htm代码如下：
<htmL>
<head>
<title>打印组件测试</title>
<SCRIPT LANGUAGE=VBScript> 
<!-- 
sub btnok_onclick() 
dim prtobject 
set prtobject=createobject(PrintDB.P_DB) 
prtobject.PrintDB
set prtobject=nothing 
end sub
--> 
</SCRIPT> 
</head>
<body>
<form name="test">
<input type="button" name="btnok" value="打印">
</form>
</body>
</html>
组件代码如下：
Public Sub PrintDB()
  Printer.Orientation = 1
  Printer.PaperSize = 9
  Printer.ScaleMode = 6
  'Printer.FontName = "华文行楷"
  Printer.FontSize = 18
  Printer.CurrentX = 77
  Printer.CurrentY = 38
  Printer.Print "打印组件测试"
  Printer.EndDoc
  Printer.KillDoc
End Sub
请问哪里出错！哪位高手写过相关组件，麻烦发些源代码或资料给我学习，谢谢！！！    谢谢！！！