B
Bill Gauthier
I can not use a simple vbscript object in a local HTML file
without getting the...
"An ActiveX control on this page might be unsafe to
interact with other parts of the page. Do you want to
allow this interaction?"
....message everytime I load the page. I have adjusted the
internet (and intranet, and trusted site) security settings
until I am blue in the face but I still get the pop-up. I
have tried disabling the Norton Antivirus Script Blocking I
have running but that didn't help either. I am running IE
6.0 on Windows XP. How can I stop this prompt?
Here is the HTML file (c:\datafile.txt is a text file with
a few numbers in it)...
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
<Script Language="vbscript">
sub ReadDatafileVB()
dim theINPUTFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set theINPUTFile=fso.OpenTextFile("c:\datafile.txt")
Do While theINPUTFile.AtEndOfStream <> True
var1.value = theINPUTFile.ReadLine
Loop
end sub
</Script>
</head>
<body onload="ReadDatafileVB">
</head>
<body onload="ReadDatafileVB">
<input type="Text" name="var1"
</body>
</html>
without getting the...
"An ActiveX control on this page might be unsafe to
interact with other parts of the page. Do you want to
allow this interaction?"
....message everytime I load the page. I have adjusted the
internet (and intranet, and trusted site) security settings
until I am blue in the face but I still get the pop-up. I
have tried disabling the Norton Antivirus Script Blocking I
have running but that didn't help either. I am running IE
6.0 on Windows XP. How can I stop this prompt?
Here is the HTML file (c:\datafile.txt is a text file with
a few numbers in it)...
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html;
charset=iso-8859-1">
<Script Language="vbscript">
sub ReadDatafileVB()
dim theINPUTFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set theINPUTFile=fso.OpenTextFile("c:\datafile.txt")
Do While theINPUTFile.AtEndOfStream <> True
var1.value = theINPUTFile.ReadLine
Loop
end sub
</Script>
</head>
<body onload="ReadDatafileVB">
</head>
<body onload="ReadDatafileVB">
<input type="Text" name="var1"
</body>
</html>