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