<%

id = Request("id")

ph = Request("ph")

Dim strSQL

Dim objConn

Dim objRec2

Dim StrConnect	

	strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("db/image.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"	

	Set objConn = Server.CreateObject ("ADODB.Connection")

	Set CmdMC = Server.CreateObject("ADODB.Recordset")

	objConn.Open strConnect

	SQL = "SELECT desc2, img, root, cat, catname, catid, id FROM image" 'WHERE (cat = '" & id & "')"

	CmdMC.Open SQL, objConn

if id = "" and ph = "" then

CmdMC.Filter = "cat = 1"%>

<pre><a href="admin.asp"><big>ADMIN: </big>home</a> : Categories:<br>

<%

do until CmdMC.eof

%><a href="admin.asp?id=<%=CmdMC("catid")%>"><%=CmdMC("catname")%></a><br><%

CmdMC.movenext

loop

end if

%>

<%

if not id = "" then

CmdMC.Filter = "catid = " & id

if CmdMC.eof = true then

%>error<%

else

%><pre><a href="admin.asp"><big>ADMIN: </big>home</a> : <%=CmdMC("catname")%><table><%

dim x

x = 1

do until CmdMC.eof



if not CmdMC("cat") = 1 then

x = x + 1

if x = 2 then %>

<tr><td><a href="adminedit.asp?id=<%=CmdMC("id")%>"><%=CmdMC("img")%></a></td>

<%else%>

<td><a href="adminedit.asp?id=<%=CmdMC("id")%>"><%=CmdMC("img")%></a></td></tr>



<%x = 1

end if



end if

CmdMC.movenext







loop

end if

end if

%></table>





<%

if not ph = "" then

CmdMC.Filter = "id = " & ph

if CmdMC.eof = true then

%>error<%

else%>

<pre><a href="admin.asp"><big>ADMIN: </big>home</a> : <a href="image.asp?id=<%=CmdMC("catid")%>">"category"</a> : <%=CmdMC("img")%><br>

<img src="<%=CmdMC("root")%><%=CmdMC("img")%>"><br>



<br>file  : <%=CmdMC("img")%><br>desc. : <%=CmdMC("desc2")%>

</pre>

<%end if

end if

%>