---------8<-------------
When I refresh/reload I get this message:
PerlScript Error error '80004005'
(in cleanup) Can't call method "Item" on an undefined value
/telecom/fwa/application/junk.asp, line 7
The 2nd program returns this the first time:
this = 1
that = 2
And this when I refresh:
PerlScript Error error '80004005'
(in cleanup) Can't call method "Item" on an undefined value
/telecom/fwa/application/test.asp, line 8
---------8<-------------
It's been a while since I used PerlScript but I just remembered I had
similar errors because I tried concatenating the Response object with
some other variables.
Please try this untested code and see what you get after the refresh:-
<%@ Language=PerlScript %>
<HTML>
<BODY>
<%
use warnings;
use strict;
use ASP qw(:strict);
foreach my $item(Win32::OLE::in $Request->ServerVariables)
{
print "$item = ";
print $Request->ServerVariables($item)->Item;
print "<BR>\n";
}%>
</BODY>
</HTML>
If you use the ASP module you can use the print function directly
instead of typing out $Response->Write(""); - it's an easy install from
ppm. If your server owner starts jumping assign a var to the
$Request->ServerVariables($item)->Item, $Response->Write("") the var
out, and replace the other prints with $Response->Write("");
Good luck,
Just in
_______________________________________________
Perl-Win32-Web mailing list
Perl-Win32-Web@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
