<%@ LANGUAGE="VBSCRIPT"%>

<%Response.Buffer = True%>

<%

Dim StrConnect

Dim objRec

Dim objRec2

Dim objCommand

Dim strSQL

Dim CatTitle

Dim CatID


pass="admin"
id = Request.QueryString("id")
img = Request.QueryString("img")
pasin = Request.QueryString("pass")
desc2 = Request.QueryString("desc2")
root = Request.QueryString("root")
strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("db/image.mdb") &";DefaultDir="& Server.MapPath(".") &";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"

Dim objConn



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

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

	objConn.Open strconnect
objRec2.Open "image", objConn, 0, 2, 2





if not id = "" and img = "" then



	objRec2.Filter = "id = " & id

	

	%><form action="adminedit.asp"><input type="hidden" value="<%=id%>" name="id"><textarea cols="20" rows="6" name="desc2">description: <%=objRec2("desc2")%></textarea><br><Br><input type="text" width=20 value="<%=objRec2("img")%>" name="img">
	<br><Br>root: <input type="text" name="root"><br><br><input type="text" width=20 value="password?" name="pass"><br><br><input type="submit"><%

end if



if not img = "" and not id = "" then


if not pasin <> pass then
objRec2.Filter = "id = " & id
	objRec2("img") = img

	objRec2("desc2") = desc2
	objRec2("root") = root
	objRec2.Update
	%>ok updated!<br><a href="admin.asp">back</a><%
else
%>wrong password!<br><a href="adminedit.asp?id=<%=id%>">back</a><%
end if	
	
end if





  %>

</TABLE>  

  <%      				

	  objRec2.Close  

          set objRec2 = Nothing



	  objConn.Close

	  set objConn = Nothing

	%>

</BODY>

</HTML>