I have an event handler on a web page, which upon a button click will create an instance of a word application on the server and do some stuff to it.

I'm having trouble getting this to work...

Here is the code that I have, upon button click nothing seems to happen. No errors, no file created...
Code:
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript runat=server>
<!--

Sub report_button_onclick
Set ObjWord =  CreateObject("Word.Application")
    Set doc1 = ObjWord.Documents.Open("c:\temp\report.doc")
        
   
        ObjWord.Selection.EndKey Unit=wdStory
        ObjWord.Selection.Tables.Add Range=ObjWord.Selection.Range, NumRows=1, NumColumns=5
        ObjWord.Selection.TypeText Text="First Name"
        ObjWord.Selection.MoveRight Unit=wdCell
        ObjWord.Selection.TypeText Text="Last Name"
        ObjWord.Selection.MoveRight Unit=wdCell
        ObjWord.Selection.TypeText Text="Phone Number"
        ObjWord.Selection.MoveRight UnitwdCell
        ObjWord.Selection.TypeText Text="FaxNumber"
		 ObjWord.Selection.MoveRight Unit=wdCell
        ObjWord.Selection.TypeText Text="Building"
        ObjWord.Selection.MoveRight Unit=wdCharacter, Count=1
        ObjWord.Selection.InsertRows 1
        ObjWord.Selection.MoveLeft Unit=wdCharacter, Count1
        
    
    stmSQL = "SELECT * FROM table1 WHERE Building = 'b2'"
    Set oRS = CreateObject("ADODB.Recordset")
   
    'Open the connection.
    oRS.Open stmSQL, "DSN=bdata"
    oRS.MoveFirst
          
       
    Do While Not oRS.EOF
          
        fn = oRS("FirstName")
        ln = oRS("LastName")
        ph = oRS("WorkPhone")
        fx = oRS("FaxNumber")
        bldg = oRS("Building")
                
            ObjWord.Selection.MoveRight Unit=wdCharacter, Count=1
            ObjWord.Selection.InsertRows 1
			  ObjWord.Selection.MoveLeft Unit=wdCharacter, Count=1
            ObjWord.Selection.TypeText Text=fn
            ObjWord.Selection.MoveRight Unit=wdCell
            ObjWord.Selection.TypeText Text=ln
            ObjWord.Selection.MoveRight Unit=wdCell
            ObjWord.Selection.TypeText Textph
            ObjWord.Selection.MoveRight Unit=wdCell
            ObjWord.Selection.TypeText Text=fx
            ObjWord.Selection.MoveRight Unit=wdCell
            ObjWord.Selection.TypeText Text=bldg
        oRS.MoveNext
   
   Loop

   'Close the Recordset object.
   oRS.Close
          
          
    'save the file
    doc1.SaveAs FileName="c:\temp\report1.doc"
    doc1.Close
    
    ObjWord = Nothing


End Sub

-->
</SCRIPT>
Any ideas why this isn't producing desired results?
I originally wrote this code in VB, and am trying to adapt it to VBScript so that it runs on my webpage...The methods I'm using on the word object may not even be valid.??

Suggestions would be appreciated!

tx
/d8/