<% ' CONSTANTEN aantal_kol = 5 'aantal weer te geven kolomen %> <% function folderposition(layer) folderposition = "f" dim i i = 0 do while i 0 then q = "SELECT * FROM folders WHERE isPrivate <= "&session("rechten")&" AND parentid = "& parent else q = "SELECT * FROM folders WHERE isPrivate = 0 AND parentid ="& parent end if set rs = conn.execute(q) do while not rs.eof response.Write(folderposition(layer)&"Sub = insFld("&folderposition(layer)&",gFld("""&rs.fields("title")&""",'"&request.ServerVariables("URL")&"?id="&rs.fields("folderid")&"&zoek="&request("zoek")&"'))"&chr(13)) layer = layer + 1 call write_folders_with_parent(rs.fields("folderId"),layer) rs.movenext loop layer = layer - 1 end function '_____URL________________ url = request.ServerVariables("URL")&"?" id = request("id") if id <> "" then url = url & "id=" & id & "&" end if '_______ACTIES_________________ if request("action") = 1 then pr = "UPDATE pictures SET private="&request("action")&" WHERE pictureId = "&request("pic") 'response.Write(pr) conn.execute(pr) end if if request("action") = 2 then wg = "SELECT count(*) AS A FROM replies WHERE content like '%[IMG src=''"&request("pic")&"'']%'" set weg = conn.execute(wg) if weg.fields("A") = 0 then pr = "DELETE FROM pictures WHERE pictureId = "&request("pic") 'response.Write(pr) conn.execute(pr) else response.Write("") end if end if '________________________ %> <% breadcrumb = " foto album" %>

<% 'response.Write(q) set rs = conn.execute(q) if rs.eof then response.Write("") t_kol = 0 do while not rs.eof t_kol = t_kol + 1 %> <% if (t_kol mod aantal_kol)=0 then response.Write("") end if rs.movenext loop %> <% zoek = request("zoek") q = "SELECT pictureId, username, users.userid AS userid, private FROM pictures, users WHERE pictures.userid=users.userid " if id="" then select case zoek case "" q = q&" AND private=0 " case else q= q &" AND pictures.userid="&zoek&" " u = "SELECT username FROM users WHERE userid="&zoek set user = conn.execute(u) response.Write(user.fields("username")&"'s ") 'response.Write(zoek) end select response.Write("laatste nieuwe foto's") q = q &" order by 'dateAdd' desc limit 25" else p="SELECT * FROM folders WHERE folderid="&id set rs=conn.execute(p) q = q & " AND folderid="&id&" " select case zoek case "" q = q&" AND private=0 " case else q= q &" AND pictures.userid="&zoek&" " u = "SELECT username FROM users WHERE userid="&zoek set user = conn.execute(u) response.Write(user.fields("username")&"'s ") end select response.Write(rs.fields("title")) end if %> Er bevinden zich nog geen foto's in deze categorie ">&y=80&x=60"> <% 'Mini-menu onder foto if session("loginid") <> "" then if rs.fields("userid") = int(session("loginid")) then if rs.fields("private") <> 1 then response.Write(" ") else response.Write(" ") end if response.Write(" ") else response.Write(rs.fields("username")) end if end if %> <% if session("loginid") <> "" then if request("zoek") = "" then url = url & "zoek="&session("loginid") %> Mijn foto's | <%else%> Alle foto's | <%end if q = "SELECT * FROM users WHERE userid="&session("loginid") set rs = conn.execute(q) if rs.fields("maxBytes") > rs.fields("verbruikBytes") then %> Foto toevoegen | <%end if end if%>