<% response.expires=0 action=request("action") oId=request("oId") if oId="" then oId=0 end if %><% set rst=CreateObject("Adodb.recordset") fotoSliderRank=0 if action="new" then title="Slideshow > Nieuw" elseif action="delete" then title="Slideshow > Verwijder" elseif action="change" then title="Slideshow > Aanpassen" end if if action="change" or action="delete" then sql="select * from fotoSlider where fotoSliderId=" & oId rst.open sql,"DSN=OHM",0,1 if not rst.eof then fotoSliderImg=rst.fields("fotoSliderImg") fotoSliderRank=rst.fields("fotoSliderRank") fotoSliderTitle=rst.fields("fotoSliderTitle") end if rst.close end if %>

<%=title%>

<% if action="delete" then %>

<%=fotoSliderTitle%>

<% elseif action="change" or action="new" then %>

Titel

Rank <% FOR x=1 TO 50 if fotoSliderRank<> x then oSel="" else osel="selected" end if response.write "" & x NEXT %>

Foto <% if fotoSliderImg<>"" then response.write "" end if %>

<% end if%> <%set rst=nothing%>