<%@ LANGUAGE = VBScript %> <% Option Explicit %> <% if Session("FONTSIZE") = "" then %> <% else %> <% ' Do not use top.title.Global.update flag if page is loaded into a dialog bUpdateGlobal = false 'On Error Resume Next Dim path, currentobj, baseobj, newname path=Session("dpath") Session("path")=path Session("SpecObj")="" Session("SpecProps")="" Set currentobj=GetObject(path) Dim PICsArray,PICstring, email, seton, expon, ratings, noslider,aratings PICsArray = currentobj.HttpPics %> " TOPMARGIN=10 TEXT="#000000" LINK="#FFFFFF" onLoad="loadList();loadHelp();">
<%= sFont("","","",True) %> <% if Ubound(PICSArray) = 0 then %> <% else %> <% end if %> <%= L_ENABLE_TEXT %>
        <%= L_SELCAT_TEXT %>
        <%= L_MOVESLIDE_TEXT %>

<%= sFont("","","",True) %> <%= L_CAT_TEXT %> <%= sFont("","","",True) %> <%= writeSelect("selCategory",4,"SetIndex();", false) %>

<% If Ubound(PICSArray) = 0 Then PICString = PICSArray(0) email = parsePIC(PICstring,L_BY_TEXT,chr(34),chr(34)) seton = parsePIC(PICstring,L_ON_TEXT,chr(34),chr(34)) expon = parsePIC(PICstring,L_EXP_TEXT,chr(34),chr(34)) ratings = parsePIC(PICstring,"(","(",")") aratings = setRatingsArray(ratings) Else PICString = "" email = "" seton = "" expon = "" ratings = "" aratings = setRatingsArray(ratings) End If function parsePIC(picrating,delimiter,openswith,closeswith) Dim newString if InStr(picrating,delimiter) > 0 then newString = Mid(picrating,InStr(picrating,delimiter)+1) newString = Mid(newString,InStr(newString,openswith)+1) newString = Mid(newString,1,InStr(newString,closeswith)-1) end if parsePIC = newString end function function setRatingsArray(rs) Dim v,s,n,l rs = LCase(rs) v = getRating(rs,"v") s = getRating(rs,"s") n = getRating(rs,"n") l = getRating(rs,"l") setRatingsArray = Array(v,s,n,l) end function function getRating(rs,rt) rt = Left(Trim(Mid(rs,InStr(rs,rt)+1)),1) if IsNumeric(rt) then getRating = rt noslider = False else getRating = 0 noslider = True end if end function %> <% end if %>