<% ' 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 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")&""",'foto_album.asp?id="&rs.fields("folderid")&"'))"&chr(13)) layer = layer + 1 call write_folders_with_parent(rs.fields("folderId"),layer) rs.movenext loop layer = layer - 1 end function %> <% breadcrumb = " foto album" %>

<% q = "SELECT userid, info,pictureid, Materiaal,Exif FROM pictures WHERE pictureid="&request.QueryString("id") set rs = conn.execute(q) u = "SELECT * FROM users WHERE userid="&rs.fields("userid") set user = conn.execute(u) %> <% if rs.fields("info")<>"" then%> <%end if%> <% if rs.fields("Materiaal")<>"" then%> <%end if if rs.fields("Exif")<>"" then%> <% end if %>

<%=user.fields("username")%>

Info

<%=rs.fields("info")%>

Foto

" border="2" alt="<%=rs.fields("info")%> <%=rs.fields("Materiaal")%>">

Materiaal

<%=rs.fields("Materiaal")%>

Exif

<%=rs.fields("Exif")%>

Vote

<% if request("action") = "voted" then q = "UPDATE pictures SET beoordeling = beoordeling + "&request("cijfer")&", aantalbeoordelingen = aantalbeoordelingen + 1 WHERE pictureid="&request.QueryString("id") 'response.Write(q) conn.execute(q) else %>

<%end if q = "SELECT aantalBeoordelingen, beoordeling FROM pictures WHERE pictureid="&request.QueryString("id") set rs = conn.execute(q) if rs.fields("aantalBeoordelingen") = 0 then%> Er zijn nog geen stemmen uitgebracht <% else punten = rs.fields("beoordeling")/rs.fields("aantalbeoordelingen") punten = FormatNumber(punten,2) response.Write(punten) %>/10 na <%=rs.fields("aantalbeoordelingen")%> stemmen <% end if %>