File: D:/HostingSpaces/EBos/ellen-paragnost.nl/wwwroot/asp/fs_editListItems.asp
<!-- #include file="begin.asp"-->
<%pagetoemail=true
editPage=true
dim getLperP
set getLperP=logon.contact.getLper
if not getLperP.exists(selectedPage.iId) then Response.Redirect (C_DIRECTORY_QUICKERSITE & "/asp/noaccess.htm")%><!-- #include file="includes/commonheader.asp"--><body style="color:#000;background-color:#FFF;background-image:none" onload="javascript:window.focus();"><%dim listitems
set listitems=selectedPage.listitems(false)%><table align=center style="background-color:#FFF"><tr><td><%=l("managelist")%>: '<b><%=selectedPage.sTitle%></b>'
<ul><li><a href="fs_editListItem.asp?iListPageID=<%=encrypt(selectedPage.iID)%>"><%=l("addnewitem")%></a><li><%=l("modifylistitem")%><%if listitems.count>0 then%><ul><%dim item
for each item in listitems
if listitems(item).statusString=l("offline") then
Response.Write "<li><i>Offline: <a href='fs_editListItem.asp?iId="& encrypt(item) & "'>" & listitems(item).sTitle & "</i></a>"
else
Response.Write "<li><a href='fs_editListItem.asp?iId="& encrypt(item) & "'>" & listitems(item).sTitle & "</a>"
end if
next%></ul><%end if%></ul></td></tr></table></body></html><%cleanUPASP%>