<%
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 cat, ID, catname, root, desc2, catid, img FROM image order by cat"

CmdMC.Open SQL, objConn 


%><form action="addlink.asp">cat. :<select name="cate"><%
do while not CmdMC.eof

if not CmdMC("cat")<> 1 then

%><option value="<%=CmdMC("catid")%>"><%=CmdMC("catname")%></option><%
end if
CmdMC.movenext 
Loop
%></select><br><br>img: <input type="text" name="img"><br><br>root: <input type="text" name="root"><br><br>
<textarea name="desc" cols="20" rows="6">description</textarea><br><br>pass :<input type="text" name="pass"><Br><Br><input type="submit"></form>