<%@ EnableSessionState=False %>
<%
LessonFile = Request.QueryString("LessonFile") ' First time
If LessonFile = "" Then ' From this form on the second pass
LessonFile = Request.Form("LessonFile")
End If
ScriptingLanguage = Request.Form("ScriptingLanguage")
If ScriptingLanguage <> "" Then
Response.Cookies("ScriptLanguagePreference") = ScriptingLanguage
Response.Cookies("ScriptLanguagePreference").Expires = "January 1, 2020"
Response.Cookies("ScriptLanguagePreference").Path = "/"
Response.Redirect LessonFile & "?ScriptLanguagePreference=" & Server.URLEncode(ScriptingLanguage)
End If
YourScriptingLanguage = Request.Cookies("ScriptLanguagePreference")
Select Case YourScriptingLanguage
Case "VBScript"
VBScriptChecked = "Checked"
Case "JScript"
JScriptChecked = "Checked"
Case Else
VBScriptChecked = "Checked"
End Select
%>
Active Server Pages Tutorial
Please select a scripting language for completing the ASP tutorial: