home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / MS_DEV / VID / SERVER / ASF / DATA.Z / script6.asp < prev    next >
Text File  |  1996-10-22  |  1KB  |  35 lines
  1. <form method="Post" Action="atumd2.asp#UsingtheDatabaseAccessComponent">
  2.     <input type="hidden" name="Script6" value="True"><p align="center"><input type="Submit" Value="Show Me"></p>
  3. </form>
  4.  
  5. <% If Request.Form("Script6") = "True" then%>
  6. <%
  7.   Set dbConnection = Server.CreateObject("ADODB.Connection")
  8.   dbConnection.Open "AdvWorks"
  9.   SQLQuery = "SELECT * FROM Customers"
  10.   Set rsCustomerList = dbConnection.Execute(SQLQuery)
  11. %>
  12. <Center>
  13. <TABLE BORDER=1>
  14. <% Do While Not rsCustomerList.EOF %>
  15. <TR>
  16. <TD><% = rsCustomerList("CompanyName") %></TD>
  17. <TD><% = rsCustomerList("ContactLastName") & ", " & rsCustomerList("ContactFirstName") %>
  18. </TD>
  19. <TD><% = rsCustomerList("ContactLastName") %></TD>
  20. <TD><% = rsCustomerList("City") %></TD>
  21. <TD><% = rsCustomerList("StateOrProvince") %></TD>
  22. </TR>
  23. <%   rsCustomerList.MoveNext 
  24.    Loop %>
  25. </TABLE>
  26. </Center>
  27. <% Else %>
  28. <Center>
  29. <TABLE BORDER=1>
  30. <TR><TD width=199> </TD><TD width=105> </TD><TD width=52> </TD><TD width=110> </TD><TD width=27><BR></TD></TR>
  31. <TR><TD width=199> </TD><TD width=105> </TD><TD width=52> </TD><TD width=110> </TD><TD width=27><BR></TD></TR>
  32. <TR><TD width=199> </TD><TD width=105> </TD><TD width=52> </TD><TD width=110> </TD><TD width=27><BR></TD></TR>
  33. </Table>
  34. </Center>
  35. <%End if%>