<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% if Session("FONTSIZE") = "" then %> <% else %> <% Const L_ENABLE_TEXT = "Enable Ratings for this resource" Const L_MOVESLIDE_TEXT = "To set the rating value assigned to this resource, select the category and move the slider bar." Const L_LANGUAGE_TEXT = "Language" Const L_SEX_TEXT = "Sex" Const L_NUDITY_TEXT = "Nudity" Const L_VIOLENCE_TEXT = "Violence" 'Rating Levels... eventually, these should come from an object... Const L_PICLABEL_TEXT = "PICS-Label: " Const L_PICVER_TEXT = "PICS-1.0" Const L_PICURL_TEXT = "http://www.rsac.org/ratingsv01.html" Const L_BY_TEXT = "by" Const L_ON_TEXT = "on" Const L_EXP_TEXT = "exp" Const L_NONE_TEXT = "None" Const L_SLANG_TEXT = "Inoffensive Slang" Const L_MILD_TEXT = "Mild Explicatives" Const L_MODERATE_TEXT = "Moderate Explicatives" Const L_OBSCENE_TEXT = "Obscene Gestures" Const L_CRUDE_TEXT = "Explicit or Crude Language" Const L_REVEALING_TEXT = "Revealing Attire" Const L_PARITAL_TEXT = "Partial Nudity" Const L_FRONTAL_TEXT = "Frontal Nudity" Const L_PROVACTIVE_TEXT = "Provacative Frontal Nudity" Const L_KISSING_TEXT = "Passionate Kissing" Const L_CLOTHED_TEXT = "Clothed Sexual Touching" Const L_TOUCHING_TEXT = "Non-explicit Sexual Touching" Const L_EXPLICIT_TEXT = "Explicit Sexual Activity" Const L_NOVIOLENCE_TEXT = "No Violence" Const L_FIGHTING_TEXT = "Fighting" Const L_KILLING_TEXT = "Killing" Const L_BLOOD_TEXT = "Killing with Blood and Gore" Const L_WANTON_TEXT = "Wanton and Gratuitous Violence" On Error Resume Next Dim path, currentobj, baseobj, newname,quote quote = chr(34) 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 %>
<% if PICSArray(0) <> "" then %> <% else %> <% end if %> <%= L_ENABLE_TEXT %>

<%= L_MOVESLIDE_TEXT %>

<% 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) 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 %>