<% response.expires=0 action=request("action") set rst=CreateObject("Adodb.recordset") if action="delete" then title="Slideshow > Verwijder" elseif action="change" then title="Slideshow > Aanpassen" end if %>

<%if action="delete" or action="change" then sql="select * from fotoSlider where fotoSliderType=" & request("oType") & " order by fotoSliderRank" rst.open sql,"DSN=OHM",0,1 while not rst.eof if color="cccccc" then color="ffffff" else color="cccccc" end if %> <% rst.movenext wend rst.close end if%>  <%=title%> Volgorde Item &action=<%=request("action")%>&oId=<%=rst.fields("fotoSliderId")%>','_self')"><%=rst.fields("fotoSliderRank")%> &action=<%=request("action")%>&oId=<%=rst.fields("fotoSliderId")%>','_self')"><%=rst.fields("fotoSliderTitle")%>

<%set rst=nothing%>