home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / Code / ch38 / redirect.asp < prev    next >
Encoding:
Text File  |  1997-09-21  |  444 b   |  27 lines

  1. <%@ LANGUAGE="VBSCRIPT"%>
  2. <% Select Case Request.ServerVariables("HTTP_UA_OS")
  3.  
  4.      Case "Windows95"
  5.  
  6.           Response.Redirect "Win95.htm"
  7.  
  8.      Case "WindowsNT"
  9.  
  10.           Response.Redirect "WinNT.htm"
  11.  
  12.      Case "MacOS"
  13.          
  14.           Response.Redirect "MacOS.htm"
  15.  
  16.      Case Else
  17.  
  18.           Response.Redirect "Other.htm"
  19.  
  20. End Select
  21.  
  22. %>
  23. <HTML>
  24. <HEAD><TITLE>Redirection</TITLE></HEAD>
  25. <BODY>
  26. </BODY>
  27. </HTML>