Šifre Pregled Natjecatelji Vaga    
Šifre Klubovi Natjecatelji Pali Vagu    

   PALI NA VAGI

<% dim rsItems, rsItem Set rsItems = Server.CreateObject("ADODB.Recordset") SQL = "SELECT natjecatelji.*, klubovi.* FROM klubovi INNER JOIN natjecatelji ON klubovi.id = natjecatelji.id WHERE (((natjecatelji.vaga)='pao')) OR (((natjecatelji.vaga) Is Null)) order by natjecatelji.dobna_kategorija Desc" rsItems.Open SQL, objConn i = 0 if not rsItems.EOF then rsItems.MoveFirst %> <% do while not rsItems.EOF i = i + 1 %> <% rsItems.MoveNext loop else response.Write "Nisu nadjeni natjecatelji" end if rsItems.Close %>
     
Br. Ime i Prezime Dobna Kat. TeĹžinska Kat. DOB Pojas Vaga
<%= i %>  <%= rsitems("prezime_ime") %> <%= rsItems("dobna_kategorija")%> <%= rsItems("tezinska_kategorija") %> <%= rsItems("datum_rodenja") %> <%= rsItems("pojas") %> <%= rsItems("vaga") %>