home *** CD-ROM | disk | FTP | other *** search
- <%@ LANGUAGE=VBScript %>
- <% Option Explicit %>
- <% Response.Expires = 0 %>
-
- <%
- ' strings for localization
- Const L_ACCESSDENIED_TEXT="Access Denied"
- Const L_ADD_TEXT="Add"
- Const L_REMOVE_TEXT="Remove"
- Const L_CUSTOM_TEXT="Custom Headers"
- Const L_CONTENTRATINGS_TEXT = "Content Ratings"
- Const L_RATINGSDETERMINE_TEXT = "Ratings help identify to your users what type of content your site provides."
- Const L_MIMEMAP_TEXT = "MIME Map"
- Const L_CONFIGURE_TEXT = "Configure the MIME types the Web Service sends to browsers in the HTTP header."
- Const L_FT_TEXT = "File Types..."
- Const L_ER_TEXT = "Edit Ratings..."
- Dim addbuttonstr
- %>
-
- <HTML>
- <HEAD>
- <SCRIPT LANGUAGE="JavaScript">
- function popBox(title, width, height, filename){
- thefile=(filename + ".asp");
- thefile="iipop.asp?pg="+thefile;
- <% if Session("Browser") <> "IE3" then %>
- width=width +25;
- height=height + 50;
- <% end if %>
-
- popbox=window.open(thefile,title,"toolbar=no,scrollbars=yes,directories=no,menubar=no,width="+width+",height="+height);
- if(popbox !=null){
- if (popbox.opener==null){
- popbox.opener=self;
- }
- }
- }
- </SCRIPT>
- </HEAD>
-
- <BODY BGCOLOR="#CCCCCC" TOPMARGIN=0 TEXT="#000000" STYLE="font-face: Helv,Arial; font-size:10pt;">
- <FONT SIZE=1 FACE="HELV,ARIAL">
- <B>
- <%= L_CUSTOM_TEXT %>
- </B>
-
- <BLOCKQUOTE>
- <FORM NAME="userform">
-
- <TABLE BORDER=0>
- <TR>
- <TD VALIGN="top">
- <SELECT NAME="selHttpCustomHeader" SIZE=5 onChange="parent.head.listFunc.ndx=this.options.selectedIndex;">
- <SCRIPT LANGUAGE="JavaScript">
- var nodeList=parent.head.cachedList;
- var numEnabled=0;
- for (i=0;i<nodeList.length;i++){
- if (!nodeList[i].deleted){
- if (parent.head.listFunc.ndx==i){
- document.write("<OPTION SELECTED VALUE='"+i+"'>"+nodeList[i].header);
- }
- else{
- document.write("<OPTION VALUE='"+i+"'>"+nodeList[i].header);
- }
- }
- }
-
- document.write("<OPTION> ");
- </SCRIPT>
- </SELECT>
- </TD>
- <TD VALIGN="top">
-
- <%
- if Session("Browser") = "IE3" then
- addbuttonstr=L_ADD_TEXT
- else
- addbuttonstr=" " & L_ADD_TEXT & " "
- end if
-
- %>
- <INPUT TYPE="button" Value="<%= addbuttonstr %>" onClick="parent.head.listFunc.addItem();">
- <P>
- <INPUT TYPE="button" Value="<%= L_REMOVE_TEXT %>" onClick="parent.head.listFunc.delItem();">
- </TD>
- </TR>
- </TABLE>
- </FORM>
-
- </BLOCKQUOTE>
-
-
- <HR>
- <FONT SIZE=1 FACE="HELV,ARIAL">
- <B><%=L_CONTENTRATINGS_TEXT%></B>
- </FONT>
-
-
- <!-- we never submit this form... -->
-
-
- <FORM>
- <TABLE>
- <TR>
- <TD><IMG SRC="images/rte.gif" WIDTH=32 HEIGHT=24 BORDER=0 ALT="" HSPACE=5></TD>
- <TD><FONT SIZE=1 FACE="HELV,ARIAL"><%=L_RATINGSDETERMINE_TEXT%></TD>
- <TD>
- <% if Session("FONTSIZE") = "LARGE" then %>
- <INPUT TYPE="button" NAME="" VALUE="<%=L_ER_TEXT%>" onClick='popBox("Ratings", 550, 575, "iirte");'>
- <% else %>
- <INPUT TYPE="button" NAME="" VALUE="<%=L_ER_TEXT%>" onClick='popBox("Ratings", 450, 525, "iirte");'>
- <% end if %>
- </TD>
- </TR>
- </TABLE>
-
- <HR>
- <FONT SIZE=1 FACE="HELV,ARIAL">
- <B><%=L_MIMEMAP_TEXT%></B>
- </FONT>
-
- <TABLE>
- <TR>
- <TD><IMG SRC="images/mime.gif" WIDTH=32 HEIGHT=32 BORDER=0></TD>
- <TD><FONT SIZE=1 FACE="HELV,ARIAL"><%=L_CONFIGURE_TEXT%></TD>
- <TD><INPUT TYPE="button" NAME="" VALUE="<%=L_FT_TEXT%>" onClick='popBox("MIMEmap", 425, 375, "iimime");'></TD>
- </TR>
- </TABLE>
-
-
- </FORM>
-
-
-
- </BODY>
- </HTML>
-
-