home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 July / APC47-1.ISO / workshop / win95 / pws / rds.cab / adctest.asp < prev    next >
Encoding:
Text File  |  1997-08-27  |  2.6 KB  |  108 lines
  1. <HTML>
  2. <HEAD>
  3. <TITLE>RDS 1.1 Query Page</TITLE>
  4. </HEAD>
  5. <BODY BACKGROUND="Addressbook/Arcadia.gif">
  6. <CENTER>
  7. <H1>Remote Data Service 1.1 Query Page</H1>
  8. <BR>
  9.  
  10. <OBJECT ID="GRID" WIDTH=700 HEIGHT=200
  11.     CLASSID="CLSID:BC496AE0-9B4E-11CE-A6D5-0000C0BE9395"
  12.     CODEBASE="HTTP://<%=Request.ServerVariables("SERVER_NAME")%>/MSADC/Samples/ssdatb32.cab">
  13.     <PARAM NAME="BackColor"     VALUE="-2147483643">
  14.     <PARAM NAME="BackColorOdd"  VALUE="-2147483643">
  15.     <PARAM NAME="ForeColorEven" VALUE="0">    
  16. </OBJECT>
  17. <BR>
  18. <BR>
  19.  
  20. <table>
  21.     <tr><td>ADC Server:<td><INPUT NAME=Server SIZE=70>
  22.     <tr><td>Connection:<td><INPUT NAME=Connect SIZE=70>
  23.     <tr><td>Query:<td><INPUT NAME=SQL SIZE=70>
  24.     </table>
  25.  
  26. <BR>
  27. <INPUT TYPE=BUTTON NAME="Run" VALUE="Run!">
  28. <INPUT TYPE=BUTTON NAME="First" VALUE="First">
  29. <INPUT TYPE=BUTTON NAME="Prev" VALUE="Prev">
  30. <INPUT TYPE=BUTTON NAME="Next" VALUE="Next">
  31. <INPUT TYPE=BUTTON NAME="Last" VALUE="Last"> <BR><BR>
  32. <INPUT TYPE=BUTTON NAME="Update" VALUE="Save Changes">
  33. <INPUT TYPE=BUTTON NAME="Cancel" VALUE="Cancel Changes">
  34. </CENTER>
  35.  
  36.  
  37. <OBJECT CLASSID="clsid:9381D8F2-0288-11d0-9501-00AA00B911A5"
  38.         ID=ADC HEIGHT=1 WIDTH = 1
  39.     CODEBASE="HTTP://<%=Request.ServerVariables("SERVER_NAME")%>/MSADC/msadc11.cab">
  40.         <PARAM NAME="BINDINGS" VALUE="Grid;">
  41.     </OBJECT>
  42.  
  43.  
  44. <SCRIPT LANGUAGE= "VBScript">
  45.  
  46. SUB Window_OnLoad
  47.     Server.Value = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
  48.        Connect.Value = "DSN=AdvWorks"
  49.        SQL.Value = "Select * from Products"
  50. END SUB
  51.  
  52. SUB First_onClick
  53.     ADC.MoveFirst
  54. END SUB
  55.  
  56. SUB Next_onClick
  57.     On Error Resume Next
  58.     ADC.MoveNext
  59.     IF ERR.Number <> 0 THEN
  60.         ADC.MoveLast  'If already at end of recordset stay at end.
  61.     END IF
  62. END SUB
  63.  
  64. SUB Prev_onClick
  65.     On Error Resume Next
  66.     ADC.MovePrevious
  67.     IF ERR.Number <> 0 THEN
  68.         ADC.MoveFirst  'If already at start of recordset stay at top.
  69.     END IF
  70. END SUB
  71.  
  72. SUB Last_onClick
  73.     ADC.MoveLast
  74. END SUB
  75.  
  76. 'Submits edits made and pull a clean copy of the new data.
  77. SUB Update_onClick
  78.       ADC.SubmitChanges
  79.     ADC.Refresh
  80.  
  81.     'Optional command specific to the Sheridan Grid to ensure display of the correct data
  82.     Grid.Rebind
  83. END SUB
  84.  
  85. 'Cancel edits and restores original values.
  86. SUB Cancel_onClick
  87.       ADC.CancelUpdate
  88.     ADC.Refresh
  89.  
  90.     'Optional command specific to the Sheridan Grid to ensure display of the correct data
  91.     Grid.Rebind
  92. END SUB
  93.  
  94. SUB Run_onClick
  95.     ADC.Server = Server.Value
  96.         ADC.Connect = Connect.Value
  97.         ADC.SQL = SQL.Value
  98.  
  99.     ADC.Refresh
  100.  
  101.     'Optional command specific to the Sheridan Grid to ensure display of the correct data
  102.     Grid.Rebind
  103. END SUB
  104.  
  105. </SCRIPT>
  106. </BODY>
  107. </HTML>
  108.