<% set cn=Server.CreateObject("adodb.connection") cn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db\images.mdb") & ";Persist Security Info=False" cn.Open ssql="select * from categories order by cserialno" set rs=cn.Execute(ssql) %> Hakim Mohammed Said

Images

Select Destination:
<% do while rs.eof=false Response.Write("") %> <% Response.Write(rs("catname")) Response.Write("
") rs.movenext loop %>

<% cn.Close set cn=nothing %>