>

<% 'Types '0=Image Link '1=Text link sql = "select * from links order by dateadded" rs.open sql,con dim forecolour forecolour="black" do until rs.eof select case rs(1) case 0 Response.Write "" if trim(rs(5))<>"" then Response.Write "" Response.Write "" Response.Write "

" & rs(5)& "

" case 1 Response.Write "" if trim(rs(5))<>"" then Response.Write "" Response.Write "" Response.Write "

" & rs(5)& "

"&rs(3)&"

" end select rs.movenext loop %>