<%@ LANGUAGE = VBScript %>
<% 'Option Explicit %>
<!-- #include file="directives.inc" -->
<!--#include file="iierrhd.str"-->
<!--#include file="iisetfnt.inc"-->
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY BGCOLOR="<%= Session("BGCOLOR") %>" LINK="#000000" VLINK="#000000" TEXT="#000000" >
<FORM NAME="userform">
<%= sFont("","","",True) %>
<B><%= L_CERR_TEXT %></B>
<P>
<TABLE WIDTH=490 BORDER=0>
<TR>
<TD COLSPAN=3 >
<%= sFont("","","",True) %>
<%= L_CUSTOMERR_TEXT %>
<BR>
</FONT>
</TD>
</TR>
</TABLE>
</FORM>
</BODY>
<SCRIPT LANGUAGE="JavaScript">
<!--#include file="iijsfuncs.inc"-->
<!--#include file="iijsls.inc"-->
top.title.Global.helpFileName="iipy_13";
function loadList(){
parent.list.location.href = "iierrls.asp";
}
function buildListForm(){
numrows=0;
for (var i=0; i < cachedList.length; i++) {
if (cachedList[i].outType !=""){
numrows=numrows + 1;
}
}
qstr="numrows="+numrows;
qstr=qstr+"&cols=HttpErrors";
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].outType !=""){
if (cachedList[i].Subcode == 0){
sc = "*";
}
else{
sc = cachedList[i].Subcode;
}
listForm.elements[j++].value=cachedList[i].error+","+sc+","+cachedList[i].outType+","+cachedList[i].msgPath;
}
cachedList[i].updated=false;
}
}
function listObj(i,e,s,o,p,d,t){
this.id = i;
this.deleted=false;
this.newitem=false;
this.updated=false;
this.error=initParam(e,"");
this.Subcode=initParam(s,"");
this.outType=initParam(o,"");
this.msgPath=initParam(p,"");
this.msgDefault=initParam(d,"");
this.types=initParam(t,"");
//lookup from Custom_Error_Desc
if (s !=0){
this.errcode=e +":" + s;
}
else{
this.errcode=e
}
this.displayPath = crop(this.msgPath,50);
}
listFunc=new listFuncs("error","",top);
cachedList=new Array()
<%
On Error Resume Next
Dim path, currentobj, infoobj, i, ErrItem, thisErr
Dim aErrs, aErrDescs
path=Session("dpath")
Session("path")=path
Session("SpecObj")=""
Session("SpecProps")=""
Set currentobj=GetObject(path)
Set infoobj=GetObject("IIS://localhost/w3svc/info")
aErrs=currentobj.GetEx("HttpErrors")
aErrDescs=infoobj.GetEx("CustomErrorDescriptions")
if err <> 0 then
%>cachedList[0]=new listObj("","","","","","");<%
else
i = 0
For Each ErrItem in aErrDescs
thisErr=getError(ErrItem,aErrs)
%>cachedList[<%= i %>]=new listObj(<%= i %>, "<%= thisErr(0) %>","<%= thisErr(1) %>","<%= thisErr(2) %>","<%= thisErr(3) %>","<%= thisErr(4) %>", <%= thisErr(5) %>);<%
i = i+1
Next
Response.write "loadList();"
end if
function getError(errstr,aErrs)
On Error Resume Next
Dim i, one, two, three, four, five, error
Dim Subcode, errtext, Subcodetext, def, path, otype, thistype
Dim CErr, aCErr
one=Instr(errstr,",")
two=Instr((one+1),errstr,",")
three=Instr((two+1),errstr,",")
four=Instr((three+1),errstr,",")
five=Instr((four+1),errstr,",")
otype=0
error=Mid(errstr,1,(one-1))
subcode=Mid(errstr,(one+1),((two-one)-1))
errtext=Mid(errstr,(two+1), (three-two)-1)
subcodetext=Mid(errstr,(three+1), (four-three)-1)
otype=Mid(errstr,(four+1))
path=errtext & " " & Subcodetext
def=path
thistype=""
if aErrs(0) <> "" then
For Each CErr in aErrs
aCErr=getCustomErr(CErr)
if ((error=aCErr(0)) and (subcode=replace(aCErr(1),"*","0"))) then
thistype=aCErr(2)
path=aCErr(3)
exit for
end if
i = i + 1
Next
end if
getError=Array(error, subcode, thistype,path,def,otype)
end function
function getCustomErr(errstr)
Dim one, two, three, code, Subcode, src, path
one=Instr(errstr,",")
two=Instr((one+1),errstr,",")
three=Instr((two+1),errstr,",")
code=Mid(errstr,1,(one-1))
Subcode=Mid(errstr,(one+1),((two-one)-1))
src=Mid(errstr,(two+1), (three-two)-1)
path=Mid(errstr,(three+1))
path=replace(path,"\","\\")
getCustomErr=Array(code, Subcode, src, path)
end function
%>
</SCRIPT>
</HTML>