[thelist] [ASP] HTTP Requests using PerlScript

pouncyisdead pouncy_1 at hotmail.com
Wed Feb 26 17:51:01 CST 2003

I am trying to pull a remote page's content into an ASP page, as a string
variable, using perl subroutines.
It works rather inconsistently (IE: 75% of the time it works fine, 5% it
pulls nothing, 20% it wont initialize at all).
I would like this script to run consistently even if it slows the ASP page's
performance  down.
I am running this script on a remotely hosted IIS 5.1 with ASPN activestate
perl, so access to the OS is rather hard.


<%@ Language="VBScript" ENABLESESSIONSTATE=false %>
<% Option Explicit %>

<script language="perlscript" runat="server">
sub drawURL{
 use strict;  use LWP::UserAgent;  use HTTP::Request::Common qw(GET);

 my $url = shift;

 my $ua = new LWP::UserAgent;
   $ua->agent("Mozilla/4.0 (compatible; MSIE 4.0; Windows NT)");

 my $req = GET $url;
   $req->header('Accept' => 'text/*');

 my $page = $ua->request($req)->as_string;
 return $page;

close $url; close $ua; close $req; close $page; exit();


<% DIM urlXM,strPage

'// -  urlXM is a database defined var
urlXM = "http://someserver.co/somepage.html"

strPage = drawURL(urlXM)


Any Advice?

Mike Pouncy || http://www.AvantArts.com/

More information about the thelist mailing list