home *** CD-ROM | disk | FTP | other *** search
/ Perfect Web Design / Dokonaly-Webdesign_covermount.bin / files / ASP.EXE / data.z / script6.asp < prev    next >
Encoding:
Text File  |  1996-11-22  |  1.3 KB  |  34 lines
  1. <form method="Post" Action="atumd2.asp#select">
  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.     Set dbConnection = Server.CreateObject("ADODB.Connection")
  7.     dbConnection.Open "AdvWorks"
  8.     SQLQuery = "SELECT * FROM Customers"
  9.     Set rsCustomerList = dbConnection.Execute(SQLQuery)
  10. %>
  11. <Center>
  12. <TABLE BORDER=1>
  13. <% Do While Not rsCustomerList.EOF %>
  14. <TR>
  15. <TD><% = rsCustomerList("CompanyName") %></TD>
  16. <TD><% = rsCustomerList("ContactLastName") & ", " & rsCustomerList("ContactFirstName") %>
  17. </TD>
  18. <TD><% = rsCustomerList("ContactLastName") %></TD>
  19. <TD><% = rsCustomerList("City") %></TD>
  20. <TD><% = rsCustomerList("StateOrProvince") %></TD>
  21. </TR>
  22. <%   rsCustomerList.MoveNext 
  23.    Loop %>
  24. </TABLE>
  25. </Center>
  26. <% Else %>
  27. <Center>
  28. <TABLE BORDER=1>
  29. <TR><TD width=199> </TD><TD width=105> </TD><TD width=52> </TD><TD width=110> </TD><TD width=27><BR></TD></TR>
  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. </Table>
  33. </Center>
  34. <%End if%>