<%@ Language=VBScript %> <HTML> <HEAD> <TITLE>ASP script example</TITLE> </HEAD> <BODY> <%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") %> <H2>Extract list of authors extracted from SQL Server on localhost</H2> <BR> <TABLE> <% Do While not rs_test.EOF %> <TR> <TD><%= rs_test("au_id")%></TD> <TD><%= rs_test("au_lname")%></TD> <TD><%= rs_test("au_fname")%></TD> <TD><%= rs_test("phone")%></TD> <TD><%= rs_test("address")%></TD> </TR> <% rs_test.MoveNext Loop %> </TABLE> </BODY> </HTML>
Referenced by...