<%@ LANGUAGE = PerlScript%> Active X Database Object
ActiveWare PerlScript

ActiveX Data Object (ADO)

<% $Conn = $Server->CreateObject("ADODB.Connection"); $Conn->Open( "ADOSamples" ); $RS = $Conn->Execute( "SELECT * FROM Orders" );%>

<% $count = $RS->Fields->Count; for ( $i = 0; $i < $count; $i++ ) { %><% }; %> <% while ( ! $RS->EOF ) { %> <% for ( $i = 0; $i < $count; $i++ ) { %><% }; %> <% $RS->MoveNext; }; $RS->Close; $Conn->Close; %>
<%= $RS->Fields($i)->Name %>
<%= $RS->Fields($i)->value %>

<% $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