home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / MS_DEV / VID / SERVER / ASF / DATA.Z / Customer_Listing.asp < prev    next >
Text File  |  1996-10-28  |  4KB  |  131 lines
  1. <HTML>
  2.  
  3. <HEAD>
  4. <TITLE>Adventure Works Customer Listing</TITLE>
  5. </HEAD>
  6.  
  7. <BODY BACKGROUND="/AdvWorks/multimedia/images/back_sub.gif" LINK="#800000" VLINK="#008040"> 
  8. <FONT FACE="MS SANS SERIF" SIZE=2>
  9. <BGSOUND SRC="/AdvWorks/multimedia/sounds/windfin4.wav">
  10.  
  11. <TABLE WIDTH=600 BORDER=0>
  12.  
  13. <TR>
  14. <TD>
  15. <IMG SRC="/AdvWorks/multimedia/images/spacer.GIF" ALIGN=RIGHT WIDTH=110 ALT="Spacer">
  16. </TD>
  17. <TD COLSPAN=3>
  18.  
  19. <FONT SIZE=4 FACE="ARIAL NARROW" COLOR="#800000">Customer Listing</FONT>
  20.  
  21. <HR SIZE=4>
  22. </TD>
  23. </TR>
  24.  
  25. <TR>
  26. <TD ROWSPAN=7 VALIGN=TOP ALIGN=LEFT>
  27. <A HREF="/AdvWorks/equipment/default.asp">
  28. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_equipment.GIF" width="85" height="45" ALIGN=CENTER BORDER=0 ALT="Equipment"></A><BR>
  29.  
  30. <A HREF="/AdvWorks/excursions/default.asp">
  31. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_excursions.GIF" width="85" height="45" ALIGN=CENTER BORDER=0 ALT="Membership and Excursions"></A><BR>
  32.  
  33. <A HREF="/AdvWorks/resources/default.asp">
  34. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_resources.GIF" width="85" height="45" ALIGN=CENTER BORDER=0 ALT="Resources"></A><BR>
  35.  
  36. <A HREF="/AdvWorks/internal/default.asp">
  37. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_internal.GIF" width="85" height="45" ALIGN=CENTER BORDER=0 ALT="Internal"></A><BR>
  38.  
  39. <A HREF="/AdvWorks/default.asp">
  40. <IMG SRC="/AdvWorks/multimedia/images/icon_sub_home.GIF" width="85" height="45" ALIGN=CENTER BORDER=0 ALT="Home"></A><BR>
  41. <%If Not IsEmpty(Session("ItemCount")) Then
  42.      iCount = Session("ItemCount")
  43.   Else
  44.      iCount = 0
  45.   End If
  46.  
  47.   If iCount > 0 Then%>
  48.  
  49.      <A HREF="/AdvWorks/equipment/check_out.asp">
  50.      <IMG SRC="/AdvWorks/multimedia/images/checkout.gif" width="85" height="45" ALT="Check Out" BORDER=O></A>
  51.  
  52. <%End If%>
  53. </TD>
  54.  
  55. <TD VALIGN=TOP ALIGN=LEFT COLSPAN=3><FONT SIZE=2>
  56.  
  57.  
  58. <FORM ACTION="/AdvWorks/ ........ " METHOD=POST>
  59.  
  60. <%
  61.   Set RS = Conn.Execute("SELECT * FROM Customers")
  62. %>
  63.  
  64. <TABLE COLSPAN=8 CELLPADDING=5 BORDER=0>
  65.  
  66. <!-- BEGIN column header row -->
  67.  
  68. <TR>
  69.  
  70. <TD ALIGN=CENTER BGCOLOR="#800000">
  71. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Company Name</FONT>
  72. </TD>
  73. <TD ALIGN=CENTER BGCOLOR="#800000">
  74. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>Contact Name</FONT>
  75. </TD>
  76. <TD ALIGN=CENTER WIDTH=150 BGCOLOR="#800000">
  77. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>E-mail address</FONT>
  78. </TD>
  79. <TD ALIGN=CENTER BGCOLOR="#800000">
  80. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>City</FONT>
  81. </TD>
  82. <TD ALIGN=CENTER BGCOLOR="#800000">
  83. <FONT STYLE="ARIAL NARROW" COLOR="#ffffff" SIZE=1>State/Province</FONT>
  84. </TD>
  85.  
  86. </TR>
  87.  
  88. <!-- BEGIN first row of inserted product data -->
  89.  
  90. <% Do While Not RS.EOF %>
  91.   <TR>
  92.   <TD BGCOLOR="f7efde" ALIGN=CENTER>
  93.   <FONT STYLE="ARIAL NARROW" SIZE=1><%=RS("CompanyName")%></FONT></TD>
  94.   <TD BGCOLOR="f7efde" ALIGN=CENTER>
  95.   <FONT STYLE="ARIAL NARROW" SIZE=1><%=RS("ContactLastName") & ", " & RS("ContactFirstName")%></FONT></TD>
  96.   <TD BGCOLOR="f7efde" ALIGN=CENTER>
  97.   <FONT STYLE="ARIAL NARROW" SIZE=1><A HREF="mailto:<%=RS("EmailAddress")%>"><%=RS("EmailAddress")%></A></FONT></TD>
  98.   <TD BGCOLOR="f7efde" ALIGN=CENTER>
  99.   <FONT STYLE="ARIAL NARROW" SIZE=1><%=RS("City")%></FONT></TD>
  100.   <TD BGCOLOR="f7efde" ALIGN=CENTER>
  101.   <FONT STYLE="ARIAL NARROW" SIZE=1><%=RS("StateOrProvince")%></FONT></TD>
  102.   </TR>
  103. <%
  104.   RS.MoveNext
  105.   Loop
  106.   RS.close
  107.   Set RS = Nothing
  108. %>
  109.  
  110. </TABLE>
  111.  
  112.  
  113. </TD>
  114.  
  115. </TR>
  116.  
  117.  
  118. </FONT>
  119.  
  120. <% REM Column Span Value %>
  121. <% HTML_CS = 3 %>
  122. <% HTML_INDENT = FALSE %>
  123. <!--#include virtual="/AdvWorks/Disclaim.inc"-->
  124.  
  125. </TABLE>
  126.  
  127. <!--#include virtual="/AdvWorks/srcform.inc"-->
  128.  
  129. </BODY>
  130.  
  131. </HTML>