ASP script example

%META:TOPICPARENT{name="CodeSamples"}% {{{ <%@ Language=VBScript %> ASP script example <%Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={OpenLink Generic 32 Bit Driver v4.0};HOST=localhost;ServerType=SQLServer 2000;DATABASE=pubs","sa", "" Set rs_test = Conn.Execute("SELECT * FROM authors") %>

Extract list of authors extracted from SQL Server on localhost

<% Do While not rs_test.EOF %> <% rs_test.MoveNext Loop %>

<%= rs_test("au_id")%>

<%= rs_test("au_lname")%>

<%= rs_test("au_fname")%>

<%= rs_test("phone")%>

<%= rs_test("address")%>

}}}