<% connstr="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("./fpdb/gallery.mdb") %>
Luckys Tattoo Museum
<% conn.close %>
" 'response.write "" 'response.write "" 'response.write "" 'response.write "" 'response.write "" 'response.write name & "
" response.write "d.add("&count &","& prefix &",'"& name &"','javascript:GetAlbum("& id &");');"&chr(13) & chr(10) count = count + 1 end sub %>
 

Art

Flash

Machines

Photos

Documents

<% sub ShowSub(parentid, prefix) dim sql, rs, mee2 set rs=server.createobject("adodb.recordset") sql = "select * from albums where parent="& parentid &" and active=true order by position,name" rs.open sql,conn do while not rs.eof mee2 = count showrecord rs("id"),rs("name"),rs("position"),rs("active"),prefix showsub rs("id"), mee2 rs.movenext loop rs.close end sub sub ShowRecord(id,name,position,active,prefix) 'response.write "
" & id & "" & prefix & name & "" & position & "" 'if active then response.write "Active" : else response.write " " 'response.write "Edit | " 'response.write "View | " 'response.write "Delete | " 'response.write "Create Sub-Album" 'response.write "
 
 
<%if request("id")="" then %>

<%end if%>
 
<% if request.querystring("mid")<>"" then if len(request.querystring("mid")) <5 then %><% end if end if %>