<% If Request.Form("Script6") = "True" then%> <% Set dbConnection = Server.CreateObject("ADODB.Connection") dbConnection.Open "AdvWorks" SQLQuery = "SELECT * FROM Customers" Set rsCustomerList = dbConnection.Execute(SQLQuery) %> <% Do While Not rsCustomerList.EOF %> <% rsCustomerList.MoveNext Loop %>

<% = rsCustomerList("CompanyName") %>

<% = rsCustomerList("ContactLastName") & ", " & rsCustomerList("ContactFirstName") %>

<% = rsCustomerList("ContactLastName") %>

<% = rsCustomerList("City") %>

<% = rsCustomerList("StateOrProvince") %>

<% Else %> <%End if%>