Try this at the top of your code:

<%
use strict;
use Win32::OLE;
use vars qw( $Request $Response );
...
[download]

Add other variables $Server, etc as required to the qw list.

--t. alex

"Mud, mud, glorious mud. Nothing quite like it for cooling the blood!"
--Michael Flanders and Donald Swann