Using PerlScript In ASP

[KaXo]

I use PerlScript in ASP, where got a Error, IIS will send the Error
messenge to client. how to resume asp running? my asp need to handle
the errors.

For Example:
$r_socket = IO::Socket::INET->new(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
Timeout => 4);

where $host was closed, IIS will return "HTTP 500 - Internal server
error".
Error in IIS log is "|2|80004005|IO::Socket::INET:_connect:_Unknown_er ror".

there is "on err resume next" in vbscript. and perlscript?

[Will Stranathan]

ka**@sina.com (KaXo) wrote in message news:<80**************************@posting.google. com>...

I use PerlScript in ASP, where got a Error, IIS will send the Error
messenge to client. how to resume asp running? my asp need to handle
the errors.

For Example:
$r_socket = IO::Socket::INET->new(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
Timeout => 4);

where $host was closed, IIS will return "HTTP 500 - Internal server
error".
Error in IIS log is "|2|80004005|IO::Socket::INET:_connect:_Unknown_er ror".

there is "on err resume next" in vbscript. and perlscript?

either eval or do checking on $r_socket the next line:

eval {
$r_socket = IO::Socket::INET->new(
# etc
);
};

if the error is on the IO::Socket::INET->new line, or:

$r_socket = IO::Socket::INET->new(
# etc
);
if (! defined $r_socket) {
$Response->Write("<b>Client disconnected</b>");
} else {
# do something with $r_socket
}

[KaXo]

pa******@hotmail.com (Will Stranathan) wrote in message news:<6a*************************@posting.google.c om>...

ka**@sina.com (KaXo) wrote in message news:<80**************************@posting.google. com>...

I use PerlScript in ASP, where got a Error, IIS will send the Error
messenge to client. how to resume asp running? my asp need to handle
the errors.

For Example:
$r_socket = IO::Socket::INET->new(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
Timeout => 4);

where $host was closed, IIS will return "HTTP 500 - Internal server
error".
Error in IIS log is "|2|80004005|IO::Socket::INET:_connect:_Unknown_er ror".

there is "on err resume next" in vbscript. and perlscript?

either eval or do checking on $r_socket the next line:

eval {
$r_socket = IO::Socket::INET->new(
# etc
);
};

if the error is on the IO::Socket::INET->new line, or:

$r_socket = IO::Socket::INET->new(
# etc
);
if (! defined $r_socket) {
$Response->Write("<b>Client disconnected</b>");
} else {
# do something with $r_socket
}

thank you very much. it works fine now.