35 lines
865 B
Plaintext
35 lines
865 B
Plaintext
<%@ LANGUAGE = VBScript %>
|
|
<% Option Explicit %>
|
|
<!-- #include file="../directives.inc" -->
|
|
|
|
<!--#include file="jsbrowser.str"-->
|
|
|
|
<%
|
|
Const LARGE = 1
|
|
|
|
Dim pg
|
|
|
|
pg=Request.QueryString("pg")
|
|
if Request("jsfontsize") <> "" then
|
|
Session("JSFONTSIZE") = Request("jsfontsize")
|
|
else
|
|
Session("JSFONTSIZE") = LARGE
|
|
end if
|
|
|
|
%>
|
|
|
|
<HTML>
|
|
<HEAD>
|
|
<TITLE><%= L_TITLE_TEXT %></TITLE>
|
|
</HEAD>
|
|
<% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then %>
|
|
<FRAMESET ROWS="100%" COLS="100%" BORDER=NO FRAMESPACING=1 FRAMEBORDER=0>
|
|
<FRAME SRC="<%= pg %>" NAME="main" SCROLLING=NO FRAMESPACING=0 BORDER=NO MARGINHEIGHT=5 MARGINWIDTH=5>
|
|
</FRAMESET>
|
|
<% else %>
|
|
<FRAMESET ROWS="*,0" COLS="100%" BORDER=NO FRAMESPACING=1 FRAMEBORDER=0>
|
|
<FRAME SRC="<%= pg %>" NAME="main" SCROLLING=NO FRAMESPACING=0 BORDER=NO MARGINHEIGHT=5 MARGINWIDTH=5>
|
|
</FRAMESET>
|
|
<% end if %>
|
|
</HTML>
|