new/_Windows_GUI/Com/Rsrc/phone.html

   1 <HTML>
   2 <HEAD>
   3 <TITLE>ActiveX Demo - Phonebook</TITLE>
   4 </HEAD>
   5
   6 <BODY>
   7 <H1>Simple Phone Book</H1>
   8
   9 <OBJECT
  10   CLASSID="CLSID:E67D346B-2A5B-11D0-ADBA-00C01500554E"
  11   id=PhoneBook
  12 >
  13 </OBJECT>
  14 This page uses a small (40K) non-visual control which provides access
  15 to a phone book which also might run on a remote computer. This ActiveX
  16 control has been implemented with the DTC Component Pascal compiler.
  17 <P>
  18 Enter a name or a phone number and press the corresponding button:
  19 <P>
  20 <INPUT  TYPE="text"  NAME = "NameField"  SIZE=20>
  21 <INPUT  TYPE=BUTTON VALUE="Lookup by Name"  NAME="NameBtn">
  22 <INPUT  TYPE=BUTTON VALUE="Lookup by Number"  NAME="NumberBtn">
  23
  24 <SCRIPT LANGUAGE=VBScript>
  25 Sub NameBtn_Onclick
  26   alert "Phone number of " & NameField.value & ":    " & PhoneBook.LookupByName(NameField.value)
  27 End Sub
  28 Sub NumberBtn_Onclick
  29   alert "Name of line " & NameField.value & ":    " & PhoneBook.LookupByNumber(NameField.value)
  30 End Sub
  31 </SCRIPT>
  32 </BODY>
  33 </HTML>