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

 

   PREGLED PRIJAVLJENIH NATJECATELJA

Odaberite / Choose:                  
<% dim rsItems, sortiranje Set rsItems = Server.CreateObject("ADODB.Recordset") if request.Form("Sortiranje") <> "" then sortiranje = " WHERE dobna_kategorija LIKE '" & request.form("dob") & "' AND tezinska_kategorija LIKE '" & request.form("tezina") & "'" else sortiranje = "" end if i = 0 SQL = "SELECT klubovi.*, natjecatelji.* FROM klubovi INNER JOIN natjecatelji ON klubovi.id = natjecatelji.id " & sortiranje & " 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 "Nisu naeni natjecatelji [" & request.form("dob") & " " & request.Form("tezina") & "]" end if rsItems.Close %>
Br. Šifra Ime i Prezime Klub Država Dobna Kat. Težinska Kat. DOB Pojas
<%= i %>    <%= rsitems("prezime_ime") %> <%= rsItems("ime_kluba") %> <%= rsItems("drzava") %> <%= rsItems("dobna_kategorija")%> <%= rsItems("tezinska_kategorija") %> <%= rsItems("datum_rodenja") %> <%= rsItems("pojas") %>

 

 

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