<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% Const L_RATING_TEXT = "Rating" Const L_OPTIONAL_TEXT = "Optional Information" Const L_EMAIL_TEXT = "Email name of the person rating this content:" Const L_EXPIRES_TEXT = "Rating expires:" Const L_MODIFIED_TEXT = "Ratings were last modified on:" Const L_NOSLIDER_TEXT = "This ratings file cannot be configured from the remote admin. Please use MMC to configure these ratings." Const L_MONTH_TEXT="Month" Const L_DAY_TEXT="Day" Const L_YEAR_TEXT="Year" Const L_TIME_TEXT="Time" Const L_JAN_TEXT = "January" Const L_FEB_TEXT = "February" Const L_MAR_TEXT = "March" Const L_APR_TEXT = "April" Const L_MAY_TEXT = "May" Const L_JUN_TEXT = "June" Const L_JUL_TEXT = "July" Const L_AUG_TEXT = "August" Const L_SEP_TEXT = "September" Const L_OCT_TEXT = "October" Const L_NOV_TEXT = "November" Const L_DEC_TEXT = "December" Const L_MON_TEXT = "Monday" Const L_TUE_TEXT = "Tuesday" Const L_WED_TEXT = "Wednesday" Const L_THU_TEXT = "Thursday" Const L_FRI_TEXT = "Friday" Const L_SAT_TEXT = "Saturday" Const L_SUN_TEXT = "Sunday" Dim level,quote level = Request.QueryString("level") if (level = "") then level = 0 end if quote=chr(34) 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 %>

<% if Session("IsIE") then %> <% else %> <%= writeSlider("hdnPics", 5, 80, level) %> <% end if %>