home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rdslik1a / testcomb.asp < prev   
Encoding:
Text File  |  1999-07-27  |  833 b   |  30 lines
  1. <!-- #include file="Functions.inc" -->
  2. <SCRIPT LANGUAGE="VBSCRIPT">
  3.     Sub btnAddCombo_OnClick()
  4.         call LoadArray ("Please enter a new value for the combo!","New Combo Value","", "Table1", "ID", "Description", "frmTest.cmbTest", 0, "")
  5.     end sub
  6. </SCRIPT>
  7. <HTML>
  8.     <HEAD>
  9.         <TITLE> Add Combo Test </TITLE>
  10.     </HEAD>
  11.     <CENTER><BODY BGCOLOR="#FFFFFF">
  12.         <H3><U>Add Combo Test</U></H3>
  13.         <FORM name="frmTest">
  14.             <TABLE border="1">
  15.                 <TR>
  16.                     <TD></TD>
  17.                     <TD><B>Field Value</B></TD>
  18.                     <TD>Action</TD>
  19.                 </TR>
  20.                 <TR>
  21.                     <TD>Test Combo</TD>
  22.                     <TD><%Call DoDropDown("cmbTest","SELECT * FROM Table1","ID","Description",0)%></TD>
  23.                     <TD><INPUT TYPE="button" NAME="btnAddCombo" VALUE="Add"></TD>
  24.                 </TR>
  25.             </TABLE>
  26.         </FORM>
  27.     </BODY></CENTER>
  28. </HTML>
  29. <!-- #include file="FunctionAddCmb.asp" -->
  30.