home *** CD-ROM | disk | FTP | other *** search
/ Dynamic HTML Construction Kit / Dynamic HTML Construction Kit.iso / source_code / dhtmlunl / dhtml.exe / CD Content / Chap21 / editor.asp < prev    next >
Encoding:
Text File  |  1997-12-18  |  5.2 KB  |  230 lines
  1. <html>
  2. <% servername = request.cookies("servername")
  3.    if len(servername)=0 then
  4.      servername = "http://" + Request.ServerVariables("SERVER_NAME")
  5.    end if
  6.    dsn = request.cookies("dsn")
  7.    if len(dsn) = 0 then
  8.      dsn = "Cards"
  9.    end if
  10. %>
  11.  
  12. <head><title>Trading Card Database Editor</title></head>
  13.  
  14. <body bgcolor="ffffff" text="000000" link="000080" language="VBS"
  15.  onload="init">
  16.  
  17. <h1 align="center">Trading Card Database Editor</h1>
  18. <div align="center"><center>
  19.  
  20. <table border="0" cellpadding="5">
  21.   <tr>
  22.     <td align="right">CardID:</td>
  23.     <td>
  24.     <input type="text" name="CardID" size="20"
  25.      datasrc="#ADC" datafld="CardID">
  26.     </td>
  27.   </tr>
  28.   <tr>
  29.     <td align="right">Year:</td>
  30.     <td>
  31.     <input type="text" name="YearFld" size="20"
  32.      datasrc="#ADC" datafld="year">
  33.     </td>
  34.   </tr>
  35.   <tr>
  36.     <td align="right">Issuer:</td>
  37.     <td>
  38.     <input type="text" name="Issuer" size="20"
  39.      datasrc="#ADC" datafld="Issuer">
  40.     </td>
  41.   </tr>
  42.   <tr>
  43.     <td align="right">Set Name:</td>
  44.     <td>
  45.     <input type="text" name="SetName" size="20"
  46.      datasrc="#ADC" datafld="SetName">
  47.     </td>
  48.   </tr>
  49.   <tr>
  50.     <td align="right">Card Number:</td>
  51.     <td>
  52.     <input type="text" name="CardNumber" size="20"
  53.      datasrc="#ADC" datafld="CardNumber">
  54.     </td>
  55.   </tr>
  56.   <tr>
  57.     <td align="right">Description:</td>
  58.     <td>
  59.     <input type="text" name="Description" size="50"
  60.      datasrc="#ADC" datafld="Description">
  61.     </td>
  62.   </tr>
  63.   <tr>
  64.     <td align="right">Grade:</td>
  65.     <td>
  66.     <input type="text" name="Grade" size="20"
  67.      datasrc="#ADC" datafld="Grade">
  68.     </td>
  69.   </tr>
  70.   <tr>
  71.     <td align="right">Value:</td>
  72.     <td>
  73.     <input type="text" name="ValueFld" size="20"
  74.      datasrc="#ADC" datafld="CardValue">
  75.     </td>
  76.   </tr>
  77. </table>
  78. </center></div>
  79.  
  80. <p align="center">
  81. <input type="BUTTON" name="First" value="First" onclick="MoveFirst">
  82. <input type="BUTTON" name="Prev" value="Prev" onclick="MovePrev">
  83. <input type="BUTTON" name="Next" value="Next" onclick="MoveNext">
  84. <input type="BUTTON" name="Last" value="Last"
  85. onclick="MoveLast"></p>
  86.  
  87. <p align="center"><input type="button" name="AddNew" value="Add New Card"
  88. onclick="AddNewCard"> <input type="button" name="Delete" value="Delete Card"
  89. onclick="DeleteCard"></p>
  90.  
  91. <p align="center"> <input type="BUTTON" name="Update" value="Save Changes"
  92. onclick="Update"> <input type="BUTTON" name="Cancel" value="Cancel Changes"
  93. onclick="Cancel"> </p>
  94.  
  95. <p align="center">
  96. <input type="BUTTON" name="Run" value="Requery" onclick="Requery"></p>
  97.  
  98. <p>SQL UPDATE:<br>
  99. <input type="text" name="SQL" size="100"></p>
  100.  
  101. <p>
  102. <object classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"
  103. id="ADC" height="1" width="1">
  104. </object>
  105. </p>
  106. <script language="VBScript" onload="Init"><!--
  107.  
  108.  
  109. SUB MoveFirst
  110.    ADC.Recordset.MoveFirst
  111. END SUB
  112.  
  113. SUB MoveNext
  114.    On Error Resume Next
  115.    ADC.Recordset.MoveNext
  116.    IF ERR.Number <> 0 THEN
  117.       ADC.Recordset.MoveLast
  118.    END IF
  119. END SUB
  120.  
  121. SUB MovePrev
  122.    On Error Resume Next
  123.    ADC.Recordset.MovePrevious
  124.    IF ERR.Number <> 0 THEN
  125.       ADC.Recordset.MoveFirst
  126.    END IF
  127. END SUB
  128.  
  129. SUB MoveLast
  130.    ADC.Recordset.MoveLast
  131. END SUB
  132.  
  133. SUB Update
  134.    ssql = "Update Cards Set "
  135.    ssql = ssql + "Year = "
  136.    if isnumeric(yearfld.value) then
  137.       ssql = ssql + yearfld.value + ", "
  138.    else
  139.       ssql = ssql + "0, "
  140.    end if
  141.    ssql = ssql + "Issuer = "
  142.    if len(issuer.value) > 0 then
  143.       ssql = ssql + "'" + issuer.value + "', "
  144.    else
  145.       ssql = ssql + "NULL, "
  146.    end if
  147.  
  148.    ssql = ssql + "SetName = "
  149.    if len(setname.value) > 0 then
  150.       ssql = ssql + "'" + setname.value + "', "
  151.    else
  152.       ssql = ssql + "NULL, "
  153.    end if
  154.    ssql = ssql + "CardNumber = "
  155.    if isnumeric(cardnumber.value) then
  156.       ssql = ssql + cardnumber.value + ", "
  157.    else
  158.      ssql = ssql + "0, "
  159.    end if
  160.    ssql = ssql + "Description = "
  161.    if len(description.value) > 0 then
  162.       ssql = ssql + "'" + description.value + "', "
  163.    else
  164.       ssql = ssql + "NULL, "
  165.    end if
  166.    ssql = ssql + "Grade = "
  167.    if len(grade.value) > 0 then
  168.       ssql = ssql + "'" + grade.value + "', "
  169.    else
  170.       ssql = ssql + "NULL, "
  171.    end if
  172.  
  173.    ssql = ssql + "CardValue = "
  174.    if isnumeric(valuefld.value) then
  175.       ssql = ssql + valuefld.value + ""
  176.    else
  177.       ssql = ssql + "0"
  178.    end if
  179.  
  180.    ssql = ssql + "WHERE CardID = " + CardID.Value
  181.  
  182.    SQL.value = ssql
  183.  
  184.    ADC.SQL = ssql
  185.    ADC.Refresh
  186.  
  187.    ADC.SQL = "Select * from Cards"
  188.    ADC.Refresh
  189.  
  190. END SUB
  191.  
  192. SUB DeleteCard
  193.    ssql = "DELETE FROM Cards WHERE CardID = " + CardID.Value
  194.    SQL.value = ssql
  195.  
  196.    ADC.SQL = ssql
  197.    ADC.Refresh
  198.  
  199.    ADC.SQL = "Select * from Cards"
  200.    ADC.Refresh
  201. end sub
  202.  
  203. 'Cancel edits and restores original values.
  204. SUB Cancel
  205.    ADC.CancelUpdate
  206. END SUB
  207.  
  208. SUB Requery
  209.    ADC.Server = "<%=servername%>"
  210.    ADC.Connect = "DSN=Cards"
  211.    ADC.SQL = "Select * from Cards"
  212.    ADC.Refresh
  213.  
  214. END SUB
  215.  
  216. Sub AddNewCard
  217.    window.navigate "addnew.asp"
  218.  
  219. end sub
  220.  
  221. SUB Init
  222.    ADC.Server = "<%=servername%>"
  223.    ADC.Connect = "DSN=<%=dsn%>"
  224.    ADC.SQL = "Select * from Cards"
  225.    adc.refresh
  226. END SUB
  227.  
  228. --></script>
  229. </body></html>
  230.