<% Session.CodePage=65001 Response.CharSet = "UTF-8" Set conn = Server.CreateObject("ADODB.Connection") dbPath = Server.MapPath("baze/knjige.mdb") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & dbPath & ";" query = "SELECT * FROM toplista" Set rs = Conn.Execute(query) if rs.EOF then Conn.close set Conn = nothing set rs = nothing Response.Redirect("index.shtml") end if %>

TOP LISTA

- Književnost [ top lista / preporuka ]
- Publicistika [ top lista / preporuka ]
- Djeca i mladi [ top lista / preporuka ]

KNJIŽEVNOST

<% For i =1 to 6 query = "SELECT * FROM toplista WHERE sifra LIKE " & i & " ORDER BY rednibr" Set rs = Conn.Execute(query) if i=2 then Response.Write("

PUBLICISTIKA

") if i=3 then Response.Write("

ZA DJECU I MLADE

") if i=4 then Response.Write("

PREPORUKE

") if i=4 then Response.Write("

KNJIŽEVNOST

") if i=5 then Response.Write("

PUBLICISTIKA

") if i=6 then Response.Write("

ZA DJECU I MLADE

") While Not rs.EOF %>

<% Response.Write("" & rs("naslov") & "
") Response.Write(" " & rs("opis") )%>

<% rs.MoveNext Wend Next %>

<% Conn.close set Conn = nothing set rs = nothing %>