home *** CD-ROM | disk | FTP | other *** search
/ Dynamic HTML Construction Kit / Dynamic HTML Construction Kit.iso / source_code / dhtmlunl / dhtml.exe / CD Content / Chap18 / dun18_2.txt < prev    next >
Encoding:
Text File  |  1997-12-18  |  5.2 KB  |  140 lines
  1. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  2. <html><head>
  3. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  4. <title>Baseball Cards</title></head>
  5. <body bgcolor="#FFFFFF">
  6. <p>
  7. <object id="cards" ondatasetcomplete="dataloaded()"
  8. classid="CLSID:333C7BC4-460F-11D0-BC04-0080C7055A83" width="192" height="192">
  9.   <param name="DataURL" value="cards.txt">
  10.   <param name="UseHeader" value="1">
  11.   <param name="Sort" value="year; cardnumber">
  12. </object>
  13. </p>
  14.  
  15. <H3>To sort by any column, click the column's header.</H3>
  16.  
  17. <table border="1" datasrc="#cards" align="center" cellpadding="2">
  18. <THEAD>
  19.   <tr>
  20.     <td align="left" id="year" onclick="tableclick('year')"
  21.         bgcolor="#00FFFF"><big>+Year</big></td>
  22.     <td align="left" id="CardNumber" onclick="tableclick('cardnumber')"
  23.         bgcolor="#00FFFF"><big>+Number</big></td>
  24.     <td align="left" id="setname" onclick="tableclick('setname')"
  25.         bgcolor="#00FFFF"><big>Set Name</big></td>
  26.     <td align="left" id="issuer" onclick="tableclick('issuer')"
  27.         bgcolor="#00FFFF"><big>Issuer</big></td>
  28.     <td align="left" id="description" onclick="tableclick('description')"
  29.         bgcolor="#00FFFF"><big>Description</big></td>
  30.     <td align="left" id="grade" onclick="tableclick('grade')"
  31.         bgcolor="#00FFFF"><big>Grade</big></td>
  32.     <td align="right" id="value" onclick="tableclick('value')"
  33.         bgcolor="#00FFFF"><big>Value</big></td>
  34.   </tr>
  35. </THEAD>
  36.   <tr>
  37.     <td><div datafld="year"></div></td>
  38.     <td><div datafld="cardnumber"></div></td>
  39.     <td><div datafld="setname"></div></td>
  40.     <td><div datafld="issuer"></div></td>
  41.     <td><div datafld="description"></div></td>
  42.     <td><div datafld="grade"></div></td>
  43.     <td width="50" align="right"><div datafld="value"></div></td>
  44.   </tr>
  45. <TFOOT>
  46.   <tr>
  47.     <td colspan="6" align="right" height="40" bgcolor="#000080">
  48.     <font color="#FF0000" size="4"><strong>Total:</strong></font></td>
  49.     <td valign="center" align="right" bgcolor="#000080">
  50.     <font color="#FF0000" size="4">
  51.     <strong><div id="TotalText"></div></strong></font></td>
  52.   </tr>
  53. </TFOOT>
  54. </table>
  55.  
  56. <p>
  57. <script language="VBScript"><!--
  58.  
  59. sub tableclick(columnname)
  60.  
  61. if columnname <> "year" and (left(document.all.item("year").innertext,1)
  62. cc]     = "+"
  63. cc]   or left(document.all.item("year").innertext,1) = "-") then
  64.       document.all.item("year").innerHTML = "<big>" +
  65. cc]         mid(document.all.item("year").innertext,2) + "</big>"
  66. end if
  67.  
  68. if columnname <> "cardnumber" and
  69. cc]   (left(document.all.item("cardnumber").innertext,1) = "+" or
  70. cc]   left(document.all.item("cardnumber").innertext,1) = "-") then
  71.       document.all.item("cardnumber").innerHTML = "<big>" +
  72. cc]          mid(document.all.item("cardnumber").innertext,2) + "</big>"
  73. end if
  74.  
  75. if columnname <> "setname" and
  76. cc]  (left(document.all.item("setname").innertext,1) = "+" or
  77. cc]  left(document.all.item("setname").innertext,1) = "-") then
  78.     document.all.item("setname").innerHTML = "<big>" +
  79. cc]        mid(document.all.item("setname").innertext,2) + "</big>"
  80. end if
  81.  
  82. if columnname <> "issuer" and
  83. cc]  (left(document.all.item("issuer").innertext,1) = "+" or
  84. cc]   left(document.all.item("issuer").innertext,1) = "-") then
  85.      document.all.item("issuer").innerHTML = "<big>" +
  86. cc]       mid(document.all.item("issuer").innertext,2) + "</big>"
  87. end if
  88.  
  89. if columnname <> "description" and
  90. cc]  (left(document.all.item("description").innertext,1) = "+" or
  91. cc]   left(document.all.item("description").innertext,1) = "-") then
  92.      document.all.item("description").innerHTML = "<big>" +
  93. cc]       mid(document.all.item("description").innertext,2) + "</big>"
  94. end if
  95.  
  96. if columnname <> "grade" and
  97. cc]  (left(document.all.item("grade").innertext,1) = "+" or
  98. cc]   left(document.all.item("grade").innertext,1) = "-") then
  99.      document.all.item("grade").innerHTML = "<big>" +
  100. cc]       mid(document.all.item("grade").innertext,2) + "</big>"
  101. end if
  102.  
  103. if columnname <> "value" and
  104. cc]  (left(document.all.item("value").innertext,1) = "+" or
  105. cc]   left(document.all.item("value").innertext,1) = "-") then
  106.      document.all.item("value").innerHTML = "<big>" +
  107. cc]       mid(document.all.item("value").innertext,2) + "</big>"
  108. end if
  109.  
  110. if left(document.all.item(columnname).innertext,1) = "+" then
  111.    document.all.item(columnname).innerHTML =  "<big>-" +
  112. cc]     mid(document.all.item(columnname).innertext,2) + "</big>"
  113.    cards.sort = "-" + columnname
  114. elseif left(document.all.item(columnname).innertext,1) = "-" then
  115.    document.all.item(columnname).innerHTML = "<big>+" +
  116. cc]     mid(document.all.item(columnname).innertext,2) + "</big>"
  117.    cards.sort = columnname
  118. else
  119.    document.all.item(columnname).innerHTML = "<big>+" +
  120. cc]     document.all.item(columnname).innertext + "</big>"
  121.    cards.sort = columnname
  122. end if
  123.  
  124. cards.reset
  125.  
  126. end sub
  127.  
  128. sub dataloaded()
  129.  
  130. while not(cards.recordset.eof)
  131.    total = total + cards.recordset("value")
  132.    cards.recordset.movenext
  133. wend
  134. document.all.totaltext.innertext =  total
  135.  
  136. end sub
  137.  
  138. --></script> </p>
  139. </body></html>
  140.