home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / Code / ch38 / qs_datatype.asp < prev    next >
Encoding:
Text File  |  1997-07-01  |  411 b   |  15 lines
  1. <%@ LANGUAGE="VBSCRIPT"%>
  2. <HTML>
  3. <HEAD><TITLE>Data Type Example</TITLE></HEAD>
  4. <BODY>
  5. <%If IsEmpty(Request.QueryString("ID")) Then %>
  6.     <H2>No ID Value Passed</H2>
  7. <%Else%>
  8.     <%If IsNumeric(Request.QueryString("ID")) Then %>
  9.         <H2>Numeric ID Passed: <%=Request.QueryString("ID")%></H2>
  10.     <%Else%>
  11.         <H2>Non-Numeric ID Passed: <%=Request.QueryString("ID")%></H2>
  12.     <%End If%>
  13. <%End If%>
  14. </BODY>
  15. </HTML>