<% if Session("id") = "" then response.redirect "default.asp" if Request.Form("izmjene") <> "" then Dim rsItem2 Set rsItem2 = Server.CreateObject("ADODB.Recordset") rsItem2.Open "natjecatelji", objConn, adOpenStatic, adLockOptimistic, adCmdTable rsItem2.Filter = "natjecateljID = " & Request.Form("zaustav") rsItem2("vaga") = Request.Form("radio") rsItem2("sudac") = Session("id") rsItem2("vagano") = Now() rsItem2.Update rsItem2.close set rsItem2=Nothing end if %> TKDonlineREG

 

   LISTA ZA VAGU

<% dim rsItems, rsItem Set rsItems = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM natjecatelji ORDER BY dobna_kategorija DESC, tezinska_kategorija ASC" rsItems.Open SQL, objConn rsItems.Filter = "id = " & Request("izbor") Set rsItem = Server.CreateObject("ADODB.Recordset") rsItem.Open "klubovi", objConn, adOpenStatic, adLockOptimistic, adCmdTable rsItem.Filter = "id = " & Request("izbor") i = 0 if not rsItems.EOF then rsItems.MoveFirst %> <% do while not rsItems.EOF i = i + 1 %> <% if rsitems("vaga") = "prosao" then %> <% else %> <% if rsitems("vaga") = "pao" then %> <% else %> <% end if %> <% end if %> <% response.write "" %> <% response.write "" %> <% rsItems.MoveNext loop else response.Write "Nisu nadjeni natjecatelji" end if rsItems.Close %>
Nazad <%= rsitem("ime_kluba") %> / <%= rsitem("drzava") %> Nazad
Br. Ime i Prezime Dobna Kat. Težinska Kat. DOB Pojas Vaga Prošao Pao  
<%= i %>  <%= Ucase(rsitems("prezime_ime")) %> <%= rsItems("dobna_kategorija")%> <%= rsItems("tezinska_kategorija") %> <%= rsItems("datum_rodenja") %> <%= rsItems("pojas") %> <%= rsItems("vaga") %>
id="prosao" value="prosao" title="Prošao"> id="pao" value="pao" title="Pao">