<% If Request("sifra") = "0508975" Then %> TKDonlineREG
           
Šifre Pregled Natjecatelji Vaga    
Šifre Klubovi Natjecatelji Pali Vagu    

 

   PREGLED PRIJAVLJENIH KLUBOVA

<% dim rsItems Set rsItems = Server.CreateObject("ADODB.Recordset") i = 0 SQL = "SELECT DISTINCTROW klubovi.id, klubovi.ime_kluba, klubovi.adresa_kluba, klubovi.grad, klubovi.drzava, klubovi.trener1, klubovi.telefon, Count(*) AS [Count Of natjecatelji] FROM klubovi INNER JOIN natjecatelji ON klubovi.id = natjecatelji.id GROUP BY klubovi.id, klubovi.adresa_kluba, klubovi.ime_kluba, klubovi.grad, klubovi.drzava, klubovi.trener1, klubovi.telefon ORDER BY ime_kluba ASC" 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 nijedan klub [ ]" end if rsItems.Close %>
Br. Klub Grad Adresa Dr┼żava Kontakt Osoba Telefon
 <%= i %>   <%= Ucase(rsItems("ime_kluba")) %>   <%= Ucase(rsItems("grad")) %>   <%= Ucase(rsItems("adresa_kluba")) %>   <%= Ucase(rsitems("drzava")) %>   <%= Ucase(rsitems("trener1")) %>   <%= Ucase(rsitems("telefon")) %> 

 

 

<% else response.redirect "../" end if %>