Active X Database Object

##












##

##











##

##








##

##

<%@ LANGUAGE = PerlScript %>



<%
$response->write("Hello from Perl in ASP");
%>



##

##

<%@ 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++ ) { %><% }; %> <% while ( ! $RS->EOF ) { %> <% for ( $i = 0; $i < $count; $i++ ) { %><% }; %> <% $RS->MoveNext; }; $RS->Close; $Conn->Close; %> <%= $RS->Fields($i)->Name %> <%= $RS->Fields($i)->value %> #### <%@ LANGUAGE = PerlScript%> Create a MSWC.AdRotator server Component

`Create a MSWC.AdRotator server Component that can be used to automate rotation of advertisements on a Web page.`





<%= $Ad->GetAdvertisement("/AdvWorks/adrot.txt") %>