home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / Code / ch38 / bio_page.asp < prev    next >
Encoding:
Text File  |  1997-07-01  |  1.3 KB  |  48 lines
  1. <%@ LANGUAGE="VBSCRIPT"%>
  2. <HTML>
  3. <%
  4. Select Case Request.QueryString("ID")
  5.     Case 1 'John
  6. %>
  7.     <HEAD><TITLE>John</TITLE></HEAD>
  8.     <BODY bgcolor="#FFFFFF">
  9.     <H1>John</H1>
  10.     <P><STRONG>John is a wonderful guy who has
  11.  been working in our production department for
  12.  years now. He stacks the boxes during the morning,
  13.  then unstacks them in the afternoon. He never lets
  14.  the fact that his job is pointless make him
  15.  depressed.</STRONG></P>
  16. <%
  17.     Case 2 'Frank
  18. %>
  19.     <HEAD><TITLE>Frank</TITLE></HEAD>
  20.     <BODY  bgcolor="#FFFFFF" >
  21.     <H1>Frank</H1>
  22.     <P><STRONG>Frank has always been working here.
  23.  Filling various positions, from the mail room
  24.  to the board room, he is an asset to the company
  25.  and we are sad to hear that he is retiring next
  26.  week at the age of 105.</STRONG></P>
  27. <%
  28.     Case 3 'Susan
  29. %>
  30.     <HEAD><TITLE>Susan</TITLE></HEAD>
  31.     <BODY  bgcolor="#FFFFFF" >
  32.     <H1>Susan</H1>
  33.     <P><STRONG>Susan, our illustrious President, was one
  34.  of the founding members of our company, and as such
  35.  is responsible for much of our success. Of course,
  36.  since this is a fictional company, our success has
  37.  been limited.</STRONG></P>
  38. <%
  39.     Case Else
  40. %>
  41.     <HEAD><TITLE>Error</TITLE></HEAD>
  42.     <BODY  bgcolor="#FFFFFF">
  43.     <H1>This employee doesn't exist.</H1>
  44. <%
  45. End Select 
  46. %>
  47. </BODY>
  48. </HTML>