home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / iis4_05.cab / iiselect.asp < prev    next >
Text File  |  1997-10-15  |  3KB  |  86 lines
  1. <%@ EnableSessionState=False %>
  2. <%
  3.  
  4.   LessonFile = Request.QueryString("LessonFile")  ' First time
  5.   If LessonFile = "" Then  ' From this form on the second pass
  6.     LessonFile = Request.Form("LessonFile") 
  7.   End If
  8.  
  9.   ScriptingLanguage = Request.Form("ScriptingLanguage")
  10.  
  11.   If ScriptingLanguage <> "" Then
  12.     Response.Cookies("ScriptLanguagePreference") = ScriptingLanguage
  13.     Response.Cookies("ScriptLanguagePreference").Expires = "January 1, 2020"
  14.     Response.Cookies("ScriptLanguagePreference").Path = "/"
  15.  
  16.     Response.Redirect LessonFile & "?ScriptLanguagePreference=" & Server.URLEncode(ScriptingLanguage)
  17.   End If
  18.  
  19.   YourScriptingLanguage = Request.Cookies("ScriptLanguagePreference")
  20.  
  21.   Select Case YourScriptingLanguage
  22.     Case "VBScript"
  23.       VBScriptChecked = "Checked"
  24.     Case "JScript"
  25.       JScriptChecked = "Checked"
  26.     Case Else
  27.       VBScriptChecked = "Checked"
  28.   End Select
  29.  
  30. %>
  31.  
  32. <html><head><title>Active Server Pages Tutorial</title>
  33.  
  34.  
  35. <SCRIPT LANGUAGE="JavaScript">
  36.     TempString = navigator.appVersion
  37.     if (navigator.appName == "Microsoft Internet Explorer"){    
  38. // Check to see if browser is Microsoft
  39.         if (TempString.indexOf ("4.") >= 0){
  40. // Check to see if it is IE 4
  41.             document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/coua.css">');
  42.         }
  43.         else {
  44.             document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/cocss.css">');
  45.         }
  46.     }
  47.     else if (navigator.appName == "Netscape") {                        
  48. // Check to see if browser is Netscape
  49.         document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/coua.css">');
  50.     }
  51.     else
  52.         document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/cocss.css">');
  53. </script>
  54.  
  55. <META NAME="ROBOTS" CONTENT="NOINDEX"></head>
  56. <body bgcolor="#FFFFFF" text="#000000"><font face="Verdana,Arial,Helvetica">    
  57.  
  58. <h1><a name="H1_37672957">Active Server Pages Tutorial</a></h1>
  59.  
  60. <br>
  61. <br>
  62. <p>Please select a scripting language for completing the  ASP tutorial:</p>
  63.  
  64.  
  65. <form method=post action=iiselect.asp>
  66. <input type=hidden name=LessonFile value="<%= LessonFile %>">
  67. <input type=radio name=ScriptingLanguage value=VBScript <%= VBScriptChecked %>>VBScript<br>
  68. <input type=radio name=ScriptingLanguage value=JScript <%= JScriptChecked %>>JScript<br><br>
  69. <input type=submit value="Select">
  70. <br>
  71. <br>
  72. <br>
  73. <br>
  74. <br>
  75. <br>
  76. <br>
  77. <br>
  78.  
  79. <hr class="iis" size="1">
  80. <p align=center><a href="../../../common/colegal.htm"><em>© 1997 Microsoft Corporation. All rights reserved.</em></a></p>
  81.  
  82. </form>
  83.  
  84. </font>
  85. </body>
  86. </html>