<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<%
Dim quote, prop, numstops, width, selnum
quote=chr(34)
prop=Request.QueryString("prop")
numstops=Request.QueryString("stops")
width=Request.QueryString("width")
selnum=int(Request.QueryString("selnum"))
function writeSlider()
Dim slidestr, i
slidestr="
"
for i=0 to numstops-2
slidestr=slidestr & drawStop(i)
slidestr=slidestr & "
"
Next
slidestr=slidestr & drawStop(i)
slidestr=slidestr & ""
writeSlider=slidestr
end function
function drawStop(curr)
Dim slidestr
slidestr=""
if curr=selnum then
drawStop=slidestr & "
"
else
drawStop=slidestr & "
"
end if
end function
%>
" TOPMARGIN=0 LEFTMARGIN=0 >
<%= writeslider() %>