home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 September
/
CHIPCD_9_99.iso
/
software
/
uaktualnienia
/
OptionPackPL
/
iis4_05.cab
/
iiselect.asp
< prev
next >
Wrap
Text File
|
1998-05-05
|
3KB
|
85 lines
<%@ 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").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
%>
<html><head><title>Active Server Pages Tutorial</title>
<SCRIPT LANGUAGE="JavaScript">
TempString = navigator.appVersion
if (navigator.appName == "Microsoft Internet Explorer"){
// Check to see if browser is Microsoft
if (TempString.indexOf ("4.") >= 0){
// Check to see if it is IE 4
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/coua.css">');
}
else {
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/cocss.css">');
}
}
else if (navigator.appName == "Netscape") {
// Check to see if browser is Netscape
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/coua.css">');
}
else
document.writeln('<link rel="stylesheet" type="text/css" href="/iishelp/common/cocss.css">');
</script>
<META NAME="ROBOTS" CONTENT="NOINDEX"></head>
<body bgcolor="#FFFFFF" text="#000000"><font face="Verdana,Arial,Helvetica">
<h1><a name="H1_37672957">Active Server Pages Tutorial</a></h1>
<br>
<br>
<p>Please select a scripting language for completing the ASP tutorial:</p>
<form method=post action=iiselect.asp>
<input type=hidden name=LessonFile value="<%= LessonFile %>">
<input type=radio name=ScriptingLanguage value=VBScript <%= VBScriptChecked %>>VBScript<br>
<input type=radio name=ScriptingLanguage value=JScript <%= JScriptChecked %>>JScript<br><br>
<input type=submit value="Select">
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<hr class="iis" size="1">
<p align=center><a href="../../../common/colegal.htm"><em>© 1998 Microsoft Corporation. All rights reserved.</em></a></p>
</form>
</font>
</body>
</html>