BDG Scenario 3

gate.asp (source)

<%@ Language=VBScript Transaction=Not_Supported %>
<% Option Explicit
   Response.Buffer = True
   'Set the codePage for english character set
   Session.CodePage = 1252 
   Dim lang
   lang = Server.MapPath(".")
   lang = Right(lang,Len(lang)-InstrRev(lang,"\",-1,1))%>
<html>
<head>
<title>Testing and Training (BDG Sample Application)</title>
<meta NAME="GENERATOR" CONTENT="MICROSOFT VISUAL STUDIO 6.0">
<link HREF="global/forms.css" REL="stylesheet" Type="text/html">
<script language="javascript" src="../Scripts/GetParam.js"></script>
<script language="javascript" for="window" event="onload">
var fileName = getParam('fileName');
if (fileName) {
   var search = window.location.search
   var frames = document.all;
   frames('logo').src = fileName + 'Logo.htm' + search;
   frames('menubar').src= '../menu/menu.asp?lang=' + '<%= lang  %>';
   frames('rightpane').src = fileName + '.htm' + search;
   frames('leftpane').src = fileName + 'List.htm' + search;
}
else {
   location.href = 'Welcome.htm';
}
</script>

</head>
<frameset FRAMESPACING="0" BORDER="0" FRAMEBORDER="0" ROWS="75,24,*">
 <frame ID="logo" NAME="LOGO" SCROLLING="NO" MARGINWIDTH="0" MARGINHEIGHT="0">
 <frame ID="menubar" NAME="MENUBAR" SCROLLING="NO" MARGINWIDTH="0" MARGINHEIGHT="0" FRAMEBORDER="1">
 <frameset COLS="20%,*">
     <frame ID="leftpane" NAME="LEFTPANE" SCROLLING="NO" MARGINWIDTH="0" MARGINHEIGHT="0">
     <frame ID="rightpane" NAME="RIGHTPANE" SCROLLING="AUTO" MARGINWIDTH="0" MARGINHEIGHT="0">
 </frameset>
</frameset>
<body>
</body>
</html>