CodeSamplesASP

<docbook><section><title>CodeSamplesASP</title><programlisting>&lt;%@ Language=VBScript %&gt; 
&lt;HTML&gt; 
&lt;HEAD&gt; 
&lt;TITLE&gt;ASP script example&lt;/TITLE&gt; 
&lt;/HEAD&gt; 
&lt;BODY&gt; 

&lt;%Set Conn = Server.CreateObject(&quot;ADODB.Connection&quot;) 
Conn.Open &quot;DRIVER={OpenLink Generic 32 Bit Driver v4.0};HOST=localhost;ServerType=SQLServer 2000;DATABASE=pubs&quot;,&quot;sa&quot;, &quot;&quot; 
Set rs_test = Conn.Execute(&quot;SELECT * FROM authors&quot;) 
%&gt; 
&lt;H2&gt;Extract list of authors extracted from SQL Server on localhost&lt;/H2&gt; 
&lt;BR&gt; 
&lt;TABLE&gt; 
        &lt;% Do While not rs_test.EOF %&gt; 
        &lt;TR&gt; 
            &lt;TD&gt;&lt;%= rs_test(&quot;au_id&quot;)%&gt;&lt;/TD&gt; 
            &lt;TD&gt;&lt;%= rs_test(&quot;au_lname&quot;)%&gt;&lt;/TD&gt; 
            &lt;TD&gt;&lt;%= rs_test(&quot;au_fname&quot;)%&gt;&lt;/TD&gt; 
            &lt;TD&gt;&lt;%= rs_test(&quot;phone&quot;)%&gt;&lt;/TD&gt; 
            &lt;TD&gt;&lt;%= rs_test(&quot;address&quot;)%&gt;&lt;/TD&gt; 
        &lt;/TR&gt; 
        &lt;% rs_test.MoveNext 
        Loop %&gt; 
&lt;/TABLE&gt; 


&lt;/BODY&gt; 
&lt;/HTML&gt; 

</programlisting></section></docbook>