<%dim conn
szImageFolder = request.querystring ("folder")
InsertFolderImages(""&szImageFolder&"")
Set conn = Server.CreateObject("ADODB.Connection")
connstring = "DRIVER={MySQL};HOST=eaglemaster.cqhost.net;UID=naq1_naqsql;PWD=ba92vt;DATABASE=naq1_naq"
conn.Open connstring
%>
Manage images
<%
dim start, last, n, howmanyrecords, page, offset, lastpage, prevpage, nextpage, firstpage, c
Offset = 28
if request("page")<>"" then
page = Request.QueryString("page")
start = ((page-1)*Offset)
else
start = 0
page = 1
end if
dim rsql
dim Baseset
sqlfolder="SELECT id_f FROM folders where name_f='"& szImageFolder &"'"
set rsFolder=Server.CreateObject("adodb.recordset")
rsFolder.open sqlfolder, conn, 1, 1, 1
if not rsFolder.eof then
folderID=rsFolder("id_f")
end if
rsql="SELECT * FROM images where id_f="& folderID
set Baseset=Server.CreateObject("adodb.recordset")
Baseset.open rsql, conn, 1, 1, 1
howmanyrecords = Baseset.recordcount
last = start + Offset
if last > howmanyrecords then
last=howmanyrecords
end if
n = howmanyrecords/Offset
if n = int(n) then
lastpage = int(n)
else
lastpage = int(n+1)
end if
if page = 1 then
prevpage = 1
else
prevpage=page-1
end if
if int(page) = int(lastpage) then
nextpage = page
else
nextpage = page+1
end if
%>
MANAGE IMAGES
<% if (not Baseset.EOF) then %>
you have enregistred <%=howmanyrecords%> Photos.
Page <%=page%>/<%=lastpage%>
<% end if %>
<%
c=start
i=0
if howmanyrecords <> 0 then
baseset.move start
end if
do while not baseset.eof
if i=0 then
response.write "
"
end if
name_img = baseset("id_i")
rsql2="SELECT id_i FROM images where id_i='"&name_img&"'"
set Baseset2=Server.CreateObject("adodb.recordset")
Baseset2.open rsql2, conn, 1, 1, 1
'response.write "baseset2(id_i)"&baseset2("id_i")&" "
id_image = baseset2(id_i)
%>
