<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
' Do not use top.title.Global.update flag if page is loaded into a dialog
bUpdateGlobal = false
%>
<%
Dim level
level = Request.QueryString("level")
if (level = "") then
level = 0
end if
function writeSlider(prop, stops, width, selnum)
dim slidestr, i
slidestr=""
for i=0 to stops-2
slidestr=slidestr & drawStop(i,prop, selnum)
slidestr=slidestr & ""
Next
slidestr=slidestr & drawStop(i, prop, selnum)
slidestr=slidestr & ""
writeSlider=slidestr
end function
function drawStop(curr,prop, selnum)
dim thisname, slidestr,formname
thisname=quote & prop & curr & quote
if Session("IsIE") then
formname = "parent.document.userform."
else
formname = "document.userform."
end if
slidestr=""
if cInt(curr)=cInt(selnum) then
drawStop=slidestr & ""
else
drawStop=slidestr & ""
end if
end function
%>
" TOPMARGIN=10 TEXT="#000000" LINK="#FFFFFF" OnLoad="showLevel();">
<%= sFont("","","",True) %>
<%= sFont("","","",True) %>
<%= L_RATINGS_TEXT %>
<% if Session("IsIE") then %>
<% else %>
<%= writeSlider("hdnPics", 5, L_SLIDERSTEPSIZE_NUM, level) %>
<% end if %>
"
for i=0 to stops-2
slidestr=slidestr & drawStop(i,prop, selnum)
slidestr=slidestr & "
"
Next
slidestr=slidestr & drawStop(i, prop, selnum)
slidestr=slidestr & "
"
end if
end function
%>