<% set conn=server.createobject("adodb.connection") myconn="Provider=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=d:\VEGESA\WEB\WEB_Temi_proba.mdb;" conn.open myconn ' pocetok na prvoto nivo sql1="select * from tblWEBTemi where (mid(sifra,3,2)='00' and mid(sifra,1,2)<>'00') order by sifra" set rs=conn.execute(sql1) rs.movefirst%> <% do while (not rs.eof) tema1=mid(rs("sifra"),1,2) %>  "><%response.write rs("PodtemaNaz")%> <% ' pocetok na vtoroto nivo sql2="select * from tblWEBTemi where (mid(sifra,1,2)='" & tema1 &"' and mid(sifra,5,2)='00' and mid(sifra,3,2)<>'00') order by sifra" set rs2=conn.execute(sql2) if not(rs2.eof) then rs2.movefirst%> <%do while (not rs2.eof) tema2=mid(rs2("sifra"),3,2) if rs2("HomePage")<>"" then%> <%if rs2("portalna")=1 then%>  " href="<%=rs2("HomePage")%>?tema=<%=mid(rs2("sifra"),1,4)%>" target="main" style="text-decoration: none"><%=rs2("PodtemaNaz")%> <%else%>  " href="<%=rs2("HomePage")%>?tema=<%=mid(rs2("sifra"),1,4)%>" target="main" style="text-decoration: none"><%=rs2("PodtemaNaz")%> <%end if%> <%else%>  "><%response.write rs2("PodtemaNaz")%> <%end if%> <%rs2.movenext loop%> <% end if rs2.close%> <%rs.movenext loop rs.close%>