D
dhallmark
The following VB script stopped working after installing Internet
Explorer 7. This is done using an Intranet web site. Can anyone tell
me why it stopped working since it worked just fine prior to IE7.
<html>
<head>
<meta http-equiv=refresh content="3; url=http://www.bestglove.com/
vendornet/labels/verifylogin.asp">
</head>
<body>
<script>
history.forward();
</script>
<script language="VBScript">
Set obfs = CreateObject("Scripting.FileSystemObject")
Set obPrinter = obfs.CreateTextFile("COM1:", True)
obPrinter.Writeline("{1;6;3812-07;6X12;14;SKINNY DIP THERMAL;BEST
MANUFACTURING CO.;MENLO GEORGIA 30731;1;DOZEN
PAIR;6;3812-07; ;6070450189;N; ;N;N;N;N;N;N;N; ;MADE IN
MALAYSIA; ; ; ; ; ; ; ; ;
;Print;607045A9;N;;;3805499597;P;2007-2;2007-2;N;COATICOCK, QC
J1A1A9;B-2160 WOMMELGEM; ; ; ; ;N;7; ; ; ; ; ;;(6
kg);lb;;;MYOVAL;BEST GLOVE MANUFACTURING LTD;BEST MANUFACTURING EUROPE
N.V.; ; }")
On Error Resume Next
obPrinter.Close
</script>
<br><br><br><br><br><br><br><br><br><br><br><br>
<center><h1>Printing Labels, Please Stand By</h1></center>
<center><h2>You will be Returned to the selection page, momentarily.</
h2></center>
<!--<CENTER><h1>Dave, remember to point out any errors to Richard,
hehehehe!!!!!</h1></CENTER>-->
</body>
</html>
Explorer 7. This is done using an Intranet web site. Can anyone tell
me why it stopped working since it worked just fine prior to IE7.
<html>
<head>
<meta http-equiv=refresh content="3; url=http://www.bestglove.com/
vendornet/labels/verifylogin.asp">
</head>
<body>
<script>
history.forward();
</script>
<script language="VBScript">
Set obfs = CreateObject("Scripting.FileSystemObject")
Set obPrinter = obfs.CreateTextFile("COM1:", True)
obPrinter.Writeline("{1;6;3812-07;6X12;14;SKINNY DIP THERMAL;BEST
MANUFACTURING CO.;MENLO GEORGIA 30731;1;DOZEN
PAIR;6;3812-07; ;6070450189;N; ;N;N;N;N;N;N;N; ;MADE IN
MALAYSIA; ; ; ; ; ; ; ; ;
;Print;607045A9;N;;;3805499597;P;2007-2;2007-2;N;COATICOCK, QC
J1A1A9;B-2160 WOMMELGEM; ; ; ; ;N;7; ; ; ; ; ;;(6
kg);lb;;;MYOVAL;BEST GLOVE MANUFACTURING LTD;BEST MANUFACTURING EUROPE
N.V.; ; }")
On Error Resume Next
obPrinter.Close
</script>
<br><br><br><br><br><br><br><br><br><br><br><br>
<center><h1>Printing Labels, Please Stand By</h1></center>
<center><h2>You will be Returned to the selection page, momentarily.</
h2></center>
<!--<CENTER><h1>Dave, remember to point out any errors to Richard,
hehehehe!!!!!</h1></CENTER>-->
</body>
</html>