%@ LANGUAGE = PerlScript%>
Active X Database Object
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++ ) {
%><%= $RS->Fields($i)->Name %> | <%
}; %>
<%
while ( ! $RS->EOF ) {
%> <%
for ( $i = 0; $i < $count; $i++ ) {
%>
<%= $RS->Fields($i)->value %> | <%
};
%>
<%
$RS->MoveNext;
};
$RS->Close;
$Conn->Close;
%>