<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<% if Session("FONTSIZE") = "" then %>
<% else %>
<%
Const DEFAULTPORT = 80
Const DEFAULTMAXCONNECTIONS_NUM = 1000
On Error Resume Next
Dim blanks,path,currentobj, ipport, ipaddress, i, oWebService
path=Session("spath")
Session("path")=path
Session("SpecObj")=path
Session("SpecProps")="ServerBindings"
Set currentobj=GetObject(path)
blanks=""
for i=0 to 23
blanks=blanks & " "
Next
%>
<%
function allBindings()
dim sBinding,sBindingList
sBindingList = ""
for each sBinding in currentobj.ServerBindings
sBindingList = sBindingList & sBinding & ","
next
' Trim off the trailing ,
if sBindingList <> "" then
sBindingList = Left( sBindingList, Len(sBindingList) - 1 )
end if
allBindings = sBindingList
end function
function writeLogTypes(fieldname,value, id, adminonly)
On Error Resume Next
if id = currentobj.Get("LogPluginClsid") then
writeLogTypes="