<% Dim rsLogin, rsKlub, SQL Set rsItem = Server.CreateObject("ADODB.Recordset") Set rsLogin = Server.CreateObject("ADODB.Recordset") Set rsKlub = Server.CreateObject("ADODB.Recordset") If request.form("username") <> "" then SQL = "SELECT * FROM suci WHERE username LIKE '" & request.form("username") & "' AND lozinka LIKE '" & request.form("password") & "'" rsLogin.Open SQL, objConn if not rsLogin.EOF then Session("id") = rsLogin(0) rsLogin.Close else response.redirect "default.asp?fail=1" End If End if if Session("id") = "" then response.redirect "default.asp" %> TKDonlineREG

 

   PREGLED PRIJAVLJENIH KLUBOVA

<% dim rsItems Set rsItems = Server.CreateObject("ADODB.Recordset") i = 0 if Request("sort2") = "drzava" then sort2 = " ORDER BY drzava ASC, ime_kluba ASC" else sort2 = " ORDER BY ime_kluba ASC, drzava ASC" end if SQL = "SELECT DISTINCTROW klubovi.id, klubovi.ime_kluba, klubovi.grad, klubovi.drzava, Count(*) AS [Count Of natjecatelji] FROM klubovi INNER JOIN natjecatelji ON klubovi.id = natjecatelji.id GROUP BY klubovi.id, klubovi.ime_kluba, klubovi.grad, klubovi.drzava" & sort2 rsItems.Open SQL, objConn if not rsItems.EOF then rsItems.MoveFirst %> <% do while not rsItems.EOF i = i + 1 %> <% rsItems.MoveNext loop else response.Write "Trenutno nije prijavljen niti jedan klub ..." end if rsItems.Close %>
Br. <% if Request("sort2") = "klub" then %>   <% end if %> Klub Grad <% if Request("sort2") = "drzava" then %>   <% end if %> Država
<%= i %>  "><%= Ucase(rsItems("ime_kluba")) %> <%= Ucase(rsItems("grad")) %> <%= Ucase(rsitems("drzava")) %>