vbscript of alternatief
app
06/10/2004 16:25:00hello.
ik wil graag document opslaan in de database de
Onderstaande script werkt dan ook goed, probleem is (client site) alleen dat de website als thrusted site moet staan ingesteld of dat het creeren van ActiveX objecten mogelijk is. Hoe kunnen we dit omzeilen of is dit op te lossen?
---
<SCRIPT LANGUAGE="VBScript">
Sub ReadFile()
'on error resume next
Dim oApp
Dim oDoc
Dim oMergedDoc
on error resume next
' Create an instance of Word.
Set oApp = CreateObject("Word.Application")
' Create our data file.
oApp.Visible = True
oApp.Documents.Open BestandsNaam.value
Set oDoc = oApp.ActiveDocument.Range(0,0)
oDoc.WholeStory
'oDoc.Text = "hallo"
TekstInput.value = oDoc.Text
oApp.ActiveDocument.close False
oApp.close false
Set oApp=Nothing
End Sub
</SCRIPT>
ik wil graag document opslaan in de database de
Onderstaande script werkt dan ook goed, probleem is (client site) alleen dat de website als thrusted site moet staan ingesteld of dat het creeren van ActiveX objecten mogelijk is. Hoe kunnen we dit omzeilen of is dit op te lossen?
---
<SCRIPT LANGUAGE="VBScript">
Sub ReadFile()
'on error resume next
Dim oApp
Dim oDoc
Dim oMergedDoc
on error resume next
' Create an instance of Word.
Set oApp = CreateObject("Word.Application")
' Create our data file.
oApp.Visible = True
oApp.Documents.Open BestandsNaam.value
Set oDoc = oApp.ActiveDocument.Range(0,0)
oDoc.WholeStory
'oDoc.Text = "hallo"
TekstInput.value = oDoc.Text
oApp.ActiveDocument.close False
oApp.close false
Set oApp=Nothing
End Sub
</SCRIPT>
Er zijn nog geen reacties op dit bericht.