<%@ LANGUAGE = PerlScript%> ADO Constants
ActiveState PerlScript

ActiveX Data Objects (ADO) Constants

Loads the ADO 2.5 constants and dumps them to the screen. This example is a small modification of the example of loading Word-constants available in the Win32::OLE::Const documentation. You can also write it as "use Win32::OLE::Const('Microsoft ActiveX Data Objects 2.5');".

<% use Win32::OLE::Const; my $ado = Win32::OLE::Const->Load('Microsoft ActiveX Data Objects 2.5'); foreach my $key (keys %$ado) { $Response->Write(<{$key}
EOF } %>

<% $url = $Request->ServerVariables('PATH_INFO')->item; $_ = $Request->ServerVariables('PATH_TRANSLATED')->item; s/[\/\\](\w*\.asp\Z)//m; $params = 'filename='."$1".'&URL='."$url"; $params =~ s#([^a-zA-Z0-9&_.:%/-\\]{1})#uc '%' . unpack('H2', $1)#eg; %> Return

view the source