<script language=vbscript>
applpath = Request.ServerVariables("APPL_PHYSICAL_PATH")

on error resume next
Set wdApp = CreateObject("Word.Application")

If Err.Number <> 0 Then
 MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description)
 Set wdApp = Nothing
 Err.Clear
else
 wdApp.Visible = True
 wdApp.WindowState = 1
end if
</script>