<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<!-- #include file="directives.inc" -->
<% if Session("FONTSIZE") = "" then %>
<!--#include file="iito.inc"-->
<% else %>
<%
dim quote
quote = chr(34)
%>
<!--#include file="iimimehd.str"-->
<!--#include file="iisetfnt.inc"-->
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY BGCOLOR="<%= Session("BGCOLOR") %>" LINK="#000000" VLINK="#000000" TOPMARGIN=10 TEXT="#000000" onLoad="loadList();loadHelp();">
<FORM name="hiddenform">
<INPUT TYPE="hidden" NAME="index" VALUE=-1>
</FORM>
<FORM NAME="userform">
<P>
<TABLE BORDER=0 BGCOLOR="<%= Session("BGCOLOR") %>" WIDTH=99% CELLPADDING=0 CELLSPACING = 0>
<TR><TD>
<%= sFont("","","",True) %>
<%= L_REGTYPES_TEXT %>
</TD></TR>
</TABLE>
</FORM>
<SCRIPT LANGUAGE="JavaScript">
<!--#include file="iijsfuncs.inc"-->
<!--#include file="iijsls.inc"-->
function loadList(){
parent.list.location.href = "iimimels.asp";
}
function loadHelp(){
top.title.Global.helpFileName="iipxrdir";
}
function moveItem(dir){
}
function buildListForm(){
numrows = 0;
for (var i = 0; i < cachedList.length; i++) {
if ((!cachedList[i].deleted) && ((cachedList[i].ext + cachedList[i].app) != "")){
numrows = numrows + 1;
}
}
qstr = "numrows="+numrows;
qstr = qstr+"&cols=ext&cols=app"
parent.parent.hlist.location.href = "iihdn.asp?"+qstr;
<% 'the list values will be grabbed by the hiddenlistform script... %>
}
function SetListVals(){
listForm = parent.parent.hlist.document.hiddenlistform;
j = 0;
for (var i = 0; i < cachedList.length; i++) {
if ((!cachedList[i].deleted) && ((cachedList[i].ext + cachedList[i].app) != "")){
listForm.elements[j++].value = cachedList[i].ext;
listForm.elements[j++].value = cachedList[i].app;
cachedList[i].updated = false;
}
}
}
openedby = top.opener.location.href;
if (openedby.indexOf("comp") > -1){
top.poptools.toolFunc.mainframe = top.opener.top.opener.top;
mf = top.opener.top.opener.top;
}
else
{
mf = top.opener.top;
}
listFunc = new listFuncs("ext","",mf);
// Override the addItem method of the listFunc object
function addItemOverload()
{
var i=cachedList.length;
if( this.sel > -1 )
{
// Validate the current selected item
if( cachedList[this.sel].ext == "" ||
cachedList[this.sel].app == "" )
{
alert( "<%= L_EMPTYFIELDERROR_TEXT %>" );
return;
}
}
// Add the new item
listFunc.noupdate = true;
cachedList[i]=new listObj(i);
cachedList[i].newitem=true;
cachedList[i].updated=true;
listFunc.sel=i;
loadList();
}
listFunc.addItem = addItemOverload;
function listObj(i,e,a){
this.id = i;
this.deleted = false;
this.newitem = false;
this.updated = false;
this.ext = initParam(e,"");
this.app=initParam(a,"");
}
cachedList = new Array();
<%
On Error Resume Next
Dim path, currentobj, aMimeMap, Map, i, mapsize, mext, mtype
path = Session("dpath")
Session("path") = path
Session("SpecObj") = path & "/MimeMap"
if Session("vtype") = "comp" then
Set currentobj=GetObject(path & "/MimeMap")
else
Set currentobj=GetObject(path)
end if
Session("SpecProps")=""
i = 0
aMimeMap = currentobj.GetEx("MimeMap")
for each Map in aMimeMap
mext = Map.Extension
mtype = Map.MimeType
if mext <> "" and mtype <> "" then
%>cachedList[<%= i %>] = new listObj(<%= i %>,"<%= mext %>","<%= mtype %>");<%
i = i+1
end if
Next
%>
</SCRIPT>
</BODY>
</HTML>
<% end if %>