ASPN ActiveState Programmer Network
ActiveState
/ Home / Perl / PHP / Python / Tcl / XSLT /
/ Safari / My ASPN /
Cookbooks | Documentation | Mailing Lists | Modules | News Feeds | Products | User Groups


Recent Messages
List Archives
About the List
List Leaders
Subscription Options

View Subscriptions
Help

View by Topic
ActiveState
.NET Framework
Open Source
Perl
PHP
Python
Tcl
Web Services
XML & XSLT

View by Category
Database
General
SOAP
System Administration
Tools
User Interfaces
Web Programming
XML Programming


MyASPN >> Mail Archive >> perl-win32-web
perl-win32-web
RE: ASP/PerlScript Issue - Please help
by Justin Devanandan Allegakoen other posts by this author
Dec 6 2006 4:24PM messages near this date
view in the new Beta List Site
RE: ASP/PerlScript Issue - Please help | RE: ASP/PerlScript Issue - Please help
---------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
Thread:
Daniel Bacon
Steven Manross
Justin Devanandan Allegakoen
Steven Manross
Daniel Bacon
Justin Devanandan Allegakoen
Daniel Bacon
Daniel Bacon
Jan Dubois
Steven Manross
Justin Devanandan Allegakoen
Daniel Bacon

Privacy Policy | Email Opt-out | Feedback | Syndication
© ActiveState Software Inc. All rights reserved