Ranking

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% SESSION.LCID=2057 %> Ranking <%if tstatus=2 then%> <%end if%> <% dbc.open str(1) sql="SELECT * FROM Turniere WHERE t_id="&cint(t_id) rs.open sql, dbc turniername=rs("turniername") datum_bis=weekdayname(weekday(rs("datum_bis")))&", "&left(rs("datum_bis"), 10) mehrere_hauptrunden=rs("mehrere_hauptrunden") rs.close if tabID<>"" and t_id<>"" then sql="SELECT SUM(preisgeld) AS preisgeld_gesamt FROM o_ranking WHERE t_id='"&t_id&"' AND tab_id='"&tabID&"'" else sql="SELECT SUM(preisgeld) AS preisgeld_gesamt FROM o_ranking WHERE t_id='"&t_id&"'" end if rs.open sql, dbc if rs.eof then preisgeld_gesamt=0 else preisgeld_gesamt=rs("preisgeld_gesamt") end if rs.close dbc.close fsp1="../upload/"&t_id&".jpg" fsp2="../upload/"&t_id&".gif" fsp3="../upload/"&t_id&".png" fs1 = Server.MapPath(fsp1) fs2 = Server.MapPath(fsp2) fs3 = Server.MapPath(fsp3) if m_fso.FileExists( fs1 ) then bild="

" elseif m_fso.FileExists( fs2 ) then bild="

" elseif m_fso.FileExists( fs3 ) then bild="

" else bild=" " end if %> <% dbc.open str(1) 'sql="SELECT * FROM Wertung WHERE t_id="&cint(t_id) 'rs.open sql, dbc ' if rs.eof then ' wertung=0 ' else ' wertung=1 ' end if 'rs.close wertung=0 if wertung=1 then sql="UPDATE o_ranking as t1 INNER JOIN wertung as t2 ON t1.r_1=t2.platz SET t1.Preisgeld=t2.Preisgeld WHERE t1.t_id="&cint(t_id) dbc.execute(sql) end if sql = "SELECT "&_ "o_ranking.s_id, "&_ "o_ranking.R_1, "&_ "o_ranking.Punkte, "&_ "o_ranking.prov_rang, "&_ "o_ranking.gewertet, "&_ "spieler.S_Vorname, "&_ "spieler.S_Nachname, "&_ "spieler.S_Teamname, "&_ "spieler.doppel_voller_name_1, "&_ "spieler.doppel_voller_name_2, "&_ "spieler.S_Nation, "&_ "turnierorte.center "&_ "FROM o_ranking "&_ "INNER JOIN spieler ON o_ranking.S_ID = spieler.S_ID "&_ "INNER JOIN turnierorte ON spieler.S_Club = turnierorte.C_ID " if tabID<>"" then sql=sql&"WHERE o_ranking.t_id="&cint(t_id)&" and o_ranking.tab_id="&cint(tabID)&" and o_ranking.s_id<>60 ORDER by r_1 ASC, prov_rang ASC;" else sql=sql&"WHERE o_ranking.t_id="&cint(t_id)&" and o_ranking.s_id<>60 ORDER by r_1 ASC, prov_rang ASC;" end if rs.open sql, dbc if rs.eof then%> <%else do while not rs.eof%> <%rk=rs("r_1")%> <%rs.movenext loop end if rs.close dbc.close %>

Ranking <%=turniername%>

<%=datum_bis%>

<%if preisgeld_gesamt>0 then%>Prize money: CHF <%=preisgeld_gesamt%>.-<%else%> <%end if%>

Rank

Player

Nation

Club

Points

Counted

style="font-weight:bold; color:#ff0000"<%end if%> ><%if rk=rs("r_1") then%> <%else%><%if rs("r_1")<10 then%>0<%end if%><%=rs("r_1")%>.<%end if%>

style="font-weight:bold; color:#ff0000"<%end if%> > <%if typ_wertung="WTD" or typ_wertung="OPD" or typ_wertung="QTD" or typ_wertung="SMD" then%> <%=rs("S_Nachname") & " " & rs("S_Vorname")%>
- <%=rs("doppel_voller_name_1")%>
- <%=rs("doppel_voller_name_2")%> <%else%> <%if tab_kategorie="TEAM" then%><%=rs("S_Teamname")%><%else%><%=rs("S_Nachname") & " " & rs("S_Vorname")%><%end if%> <%end if%>

.gif" border=0 />

style="font-weight:bold; color:#ff0000"<%end if%> > <%=rs("center")%>

style="font-weight:bold; color:#ff0000"<%end if%> ><%if rs("Punkte")>0 then%><%=rs("Punkte")%><%else%> <%end if%>

style="font-weight:bold; color:#ff0000"<%end if%> ><%if rs("gewertet")="JA" then%>YES<%else%>NO<%end if%>

Online Resultat System von WebPublishing by P.Nydegger www.pnydegger.ch