<% Option Explicit %> <% '---------------------------------------------- ' Ändrad Ver Kommentar ' 2006.05.04 2.11 Visa lag i grupper om ej grupp är vald ' 2007.08.24 4.00 Hantera kval- och plac-matcher ' 2007.08.30 4.00 Egna namn på slutspel ' 2007.08.30 4.01 Klick på lag i tabell = visa samtliga matcher för detta laget ' 2008.01.21 4.23 Calc_Table utbruten till cuponweb_calc.asp ' 2008.01.23 4.24 Tooltip med ursprungligt lagnamn ' 2008.02.06 4.25 Roll=1 om från rullande skärm ' 2008.04.26 Carlsberg ' 2008.12.09 4.77 Landskod ændringar ' 2009.02.10 5.03 Check om besökare får registrera resultat. ' 2009.05.17 5.17 Mobiltelefon bild med länk prenumerera på detta lag ' 2009.07.13 5.20 Fler översättningar ' 2009.07.22 5.21 Fler översättningar ' 2009.09.02 5.30 Helt ny menyhantering. Beroende på ' gbUseMenu530 så sker olika saker. ' 2009.09.14 5.30e Buggrättning ' 2009.09.29 5.32b Ta med tröjfärg i grupp-presentationen '---------------------------------------------- '---------------------------------------------- ' Parametrar: ' TurnNr ' Lang_Current ' Klass ' [Grp] '---------------------------------------------- Dim Conn, Result 'as Object Dim strSQL 'as String dim strKnr dim bOK dim sDocTot, bFel Dim sDocFirst, sDocDynamic, sDocEnd Dim sDD dim sKlass, sKlassNamn, sGrp dim i, i2 dim sGrpNamn dim sLink_Grp, sLink_SS dim bRollPC 'Ver 4.23 dim sDomain, sLinkPhone 'Ver 5.17 dim iAntTF, aTeamTF(400),aTeamName(400) 'Ver 5.32b Function Return_Mobile_LinkCUPTEAM(sKlass, sLagNamn) '-------------------------------------------------------- 'Ver 5.17 ' Syfte: Returnerar mobillänk om denna matchen är prenumererbar ' samt alltid klockslag ' ' Parameters: '-------------------------------------------------------- dim sOut if gbPreviewActive=true then 'Ej tillåtet i preview-läge Return_Mobile_LinkCUPTEAM="" exit function end if if gbSMS_Active=false then 'Ingen turnering med SMS utskick Return_Mobile_LinkCUPTEAM="" exit function end if 'Allt OK - tillför mobiltelefon länk + ikon sOut="" sOut=sOut & " " Return_Mobile_LinkCUPTEAM=sOut end function Function Return_Mobile_LinkCUPGAME(lMatchnr, sTid, iSpelad, iHLRes) '-------------------------------------------------------- 'Ver 5.17 ' Syfte: Returnerar mobillänk om denna matchen är prenumererbar ' samt alltid klockslag ' ' Parameters: '-------------------------------------------------------- dim sOut if gbPreviewActive=true then 'Ej tillåtet i preview-läge Return_Mobile_LinkCUPGAME=sTid exit function end if if gbSMS_Active=false then 'Ingen turnering med SMS utskick Return_Mobile_LinkCUPGAME=sTid exit function end if if iSpelad=1 and iHLRes <> -1 then 'Redan spelad Return_Mobile_LinkCUPGAME=sTid exit function end if 'Ospelad match - tillför mobiltelefon länk + ikon sOut=sTid & " " sOut=sOut & "

" Return_Mobile_LinkCUPGAME=sOut end function Function Return_Register_Icon(sKlass, lMatchnr, sDat, sTid) '-------------------------------------------------------- 'Ver 5.03 ' Syfte: Om det är tillåtet för besökare att registrerar resultat, ' skapas länk + ikon att klicka på ' ' Parameters: '-------------------------------------------------------- dim sNow, sEnd dim sChk, sOut if gbExtern4Result=false then Return_Register_Icon="" exit function end if 'Verifiera tidpunkt sNow = strGetTS("n",-5) 'Ge fem minuter efter slut sEnd=sDat & " " & sTid if sNow < sEnd then 'Ej tid ännu Return_Register_Icon="" exit function end if 'Matchen spelad, men inget resultat. Lägg ut ikon. sChk="am9er388tyw37" & glTurnNr & "47vx50t6iie0" & lMatchnr & "40wfzppq" sOut="

   

" Return_Register_Icon=sOut end function Sub Get_Session_Local '-------------------------------------------------------- ' Syfte: Hämtar in lokala sessionvariabler ' ' Parameters: '-------------------------------------------------------- glTurnNr = session("Turnnr") gsLang_Curr = session("Lang_Current") end sub Function Find_Troja(sLagNamn) '-------------------------------------------------------- 'Ver 5.32b ' Syfte: Returnerar tröjfärg eller blankt om ej funnen ' ' Parameters: '-------------------------------------------------------- dim i for i=1 to iAntTF if sLagNamn=aTeamName(i) then Find_Troja=aTeamTF(i) exit function end if next Find_Troja="" end function Sub Read_Teams_ShirtColors '-------------------------------------------------------- 'Ver 5.32b ' Syfte: Läser in samtliga lags tröjfärger för denna klassen, lagrar i array ' ' Parameters: '-------------------------------------------------------- strSQL = "Select * from tblTeams " & vbcrlf strSQL = strSQL & "WHERE TurnNr=" & glTurnNr & " AND Klass = " & dbfnutt(sKlass) strSQL = strSQL & " ORDER BY Lagnamn " ' ErrorInfo strSQL & "
" iAntTF=0 Set Result = Conn.Execute(strSQL) while not Result.EOF iAntTF=iAntTF+1 aTeamTF(iAntTF)=Konv_Null(Result("TrojFarg"),"") aTeamName(iAntTF)=Konv_Null(Result("Lagnamn"),"") Result.movenext Wend Result.close end sub sub Read_Teams_InGroups '-------------------------------------------------------- ' Ver 2.11 ' Syfte: Läser in samtliga lag per grupp och pytsar ut ' ' Parameters: '-------------------------------------------------------- dim iOldGrp dim ixGrp dim sTeams strSQL = "Select GT.Klass, GT.Gruppnr, GT.Lag_Pos, GT.Lagnamn, GT.Landskod, G.Gruppnamn from tblGruppTeams GT " & vbcrlf strSQL = strSQL & "LEFT JOIN tblGrupper G ON GT.Turnnr = G.Turnnr AND GT.Klass = G.Klass AND GT.Gruppnr = G.Gruppnr " & vbcrlf strSQL = strSQL & "WHERE GT.TurnNr=" & glTurnNr & " AND GT.Klass = " & dbfnutt(sKlass) strSQL = strSQL & " ORDER BY GT.Gruppnr, GT.Lag_Pos " ' ErrorInfo strSQL & "
" giAntMatch=0 iOldGrp=-1 ixGrp=0 Set Result = Conn.Execute(strSQL) while not Result.EOF if Result("Gruppnr") <> iOldGrp then if ixGrp > 0 then sDocTot = Replace_Item2(sDocTot, "@TEAM_GRP_" & ixGrp & "@" , sTeams ) end if iOldGrp = Result("Gruppnr") ixGrp=ixGrp+1 sTeams="" sDocTot = Replace_Item2(sDocTot, "@GRP_" & ixGrp & "@" , Repl_LangVerb("grupp", Result("GruppNamn"))) end if if sTeams <> "" then sTeams = sTeams & "
" 'Ver 4.01 if gbPreviewActive = false then 'Ver 4.21 sTeams = sTeams & Return_Mobile_LinkCUPTEAM(sKlass, Repl_LangAll(Result("LagNamn"))) 'Ver 5.21 ' sTeams = sTeams & Return_Mobile_LinkCUPTEAM(sKlass, Repl_LangVerb("ifrån", Result("LagNamn"))) 'Ver 5.20 ' sTeams = sTeams & Return_Mobile_LinkCUPTEAM(sKlass, Result("LagNamn")) 'Ver 5.17 sTeams = sTeams & "" end if '2006-11-20 start dim sTLK sTLK=Result("LagNamn") ' if Result("Landskod") <> "" and ucase(Result("Landskod")) <> "SWE" and ucase(Result("Landskod")) <> "SVE" and ucase(Result("Landskod")) <> "S" then if Result("Landskod") <> "" and ucase(Result("Landskod")) <> gsLang_Curr then 'Ver 4.77 sTLK=sTLK & " (" & Result("Landskod") & ") " end if ' sTeams = sTeams & Result("LagNamn") & "" 'Ver 5.32b-start dim sTroja sTroja=Find_Troja(Result("LagNamn")) if sTroja <> "" then sTroja = " - " & sTroja & "" end if sTeams = sTeams & sTLK & sTroja & "" ' sTeams = sTeams & sTLK & "" 'Ver 5.32b-slut '2006-11-20 slut Result.movenext Wend result.close if sTeams <> "" then sDocTot = Replace_Item2(sDocTot, "@TEAM_GRP_" & ixGrp & "@" , sTeams ) end if 'Töm övriga ej använda grupper for i=ixGrp+1 to 40 sDocTot = Replace_Item2(sDocTot, "@TEAM_GRP_" & i & "@" , "" ) sDocTot = Replace_Item2(sDocTot, "@GRP_" & i & "@" , "" ) next end sub call Fetch_QStrings 'Hämta in query-strängar, lägg i session myDebug gsQ sKlass=Request.Querystring("Klass") sGrp=Request.Querystring("Grp") bRollPC=Request.Querystring("Roll")=1 'Ver 4.25 ' errorinfo "sGrp=" & sGrp call Get_Session_Local 'Hämta in lokala variabler Call FixQueryStringForPreView("&Klass=" & MakeHTTPSafe(sKlass) ) 'Ver 4.21 sDomain=Request.ServerVariables("SERVER_NAME") 'Ver 5.17 '------------------------------------------------- ' Läs in turneringsinfo '------------------------------------------------- Call Read_TurnVars(glTurnNr) Call ReadSS_Name(glTurnNr, sKlass) 'Ver 4.00 'Ver 2.25 - Finns mer än en arena? iAntArena = Count_Arena_Unique(glTurnNr, "") bFel=false '------------------------------ 'Grupp förvald? '------------------------------ if sGrp="" then 'Ingen grupp förvald 'Ver 2.11 if Read_HTML_Template(checkPreview("cupresclass_groups.htm"), sDocTot) = false then 'Ver 4.21 ErrorInfo sDocTot bFel=true end if else if iAntArena > 1 then 'Ver 2.25 sTemplate="cupresclass_arena.htm" else sTemplate="cupresclass.htm" end if if Read_HTML_Template(checkPreview(sTemplate), sDocTot) = false then 'Ver 4.21 ErrorInfo sDocTot bFel=true end if end if if bFel=false then 'Ver 5.30e-start Flyttad nertill '------------------------------ 'Ver 5.30: Ny meny- och layouthantering? '------------------------------ ' if gbUseMenu530=true then ' sDocTot = Replace_Item2(sDocTot, "CuMaP_Style.css" , "../stylesheets/style_" & glTurnNr & "w.css") 'Ver 5.30 ' end if '------------------------------ 'Byt ut färgerna '------------------------------ ' if gbUseMenu530=false then 'Ver 5.30 ' sDocTot = Replace_Item2(sDocTot, "class=table_color_def" , "class=table_color_" & gsColorBody ) ' sDocTot = Replace_Item2(sDocTot, "class=rubr_def" , "class=rubr_" & gsColorRubr ) ' sDocTot = Replace_Item2(sDocTot, "class=shadowvert_def" , "class=shadowvert_" & gsColorMenu ) ' end if 'Ver 5.30e-slut Flyttad nertill '------------------------------ 'Läs in klassnamnet '------------------------------ strSQL = "Select KlassNamn, IngenTabell from tblKlass " & vbcrlf strSQL = strSQL & "WHERE TurnNr=" & glTurnNr & " AND Klass = " & dbfnutt(sKlass) strSQL = strSQL & " ORDER BY Klass " 'ErrorInfo strSQL & "
" Set Conn = Open_DB(gsWebDomain) 'Ver 5.50 Set Result = Conn.Execute(strSQL) sKlassNamn=Result("KlassNamn") bIngenTabell=Konv_Null(Result("IngenTabell"),0)=1 'Ver 2.04 Result.close ' if bIngenTabell = true then 'Ver 2.04 if bIngenTabell = true and sGrp <> "" then 'Ver 2.04 / Ver 2.11 if iAntArena > 1 then 'Ver 2.25 sTemplate="cupresclass_notable_arena.htm" else sTemplate="cupresclass_notable.htm" end if call Read_HTML_Template(checkPreview(sTemplate), sDocTot) 'Ver 4.21 end if 'Ver 5.30e-start Flyttad hit '------------------------------ 'Ver 5.30: Ny meny- och layouthantering? '------------------------------ if gbUseMenu530=true then sDocTot = Replace_Item2(sDocTot, "CuMaP_Style.css" , "../stylesheets/style_" & glTurnNr & "w.css") 'Ver 5.30 end if '------------------------------ 'Byt ut färgerna '------------------------------ if gbUseMenu530=false then 'Ver 5.30 sDocTot = Replace_Item2(sDocTot, "class=table_color_def" , "class=table_color_" & gsColorBody ) sDocTot = Replace_Item2(sDocTot, "class=rubr_def" , "class=rubr_" & gsColorRubr ) sDocTot = Replace_Item2(sDocTot, "class=shadowvert_def" , "class=shadowvert_" & gsColorMenu ) end if 'Ver 5.30e-slut Flyttad hit sKlassNamn = ifTF(sKlassNamn="", sKlass, sKlass & " : " & sKlassNamn) sDocTot = Replace_Item2(sDocTot, "@KLASS@", sKlassNamn) '------------------------------ 'Sätt ledtexterna efter språkkod '------------------------------ sDocTot = Replace_Item2(sDocTot, "@RUB_TEAM@", ifLang(gsLang_Curr, "Lag", "Team", "Hold", "Mannschaft") ) sDocTot = Replace_Item2(sDocTot, "@RUB_SP@", ifLang(gsLang_Curr, "Ant sp", "M played", "Ant kp", "Anz sp") ) sDocTot = Replace_Item2(sDocTot, "@RUB_VM@", ifLang(gsLang_Curr, "V", "W", "V", "G") ) sDocTot = Replace_Item2(sDocTot, "@RUB_OM@", ifLang(gsLang_Curr, "O", "D", "O", "U") ) sDocTot = Replace_Item2(sDocTot, "@RUB_FM@", ifLang(gsLang_Curr, "F", "L", "F", "V") ) sDocTot = Replace_Item2(sDocTot, "@RUB_GOALS@", ifLang(gsLang_Curr, "Mål", "Goals", "Mål", "Tor") ) sDocTot = Replace_Item2(sDocTot, "@RUB_KVOT@", ifLang(gsLang_Curr, "Diff", "Diff", "Mål forsk", "Unterschied") ) sDocTot = Replace_Item2(sDocTot, "@RUB_POINTS@", ifLang(gsLang_Curr, "Poäng", "Points", "Point", "Punkte") ) sDocTot = Replace_Item2(sDocTot, "@RUB_MATCHNR@", ifLang(gsLang_Curr, "Matchnr", "Matchno", "Kampnr", "Matchno") ) sDocTot = Replace_Item2(sDocTot, "@RUB_DATUM@", ifLang(gsLang_Curr, "Datum", "Day", "Dato", "Datum") ) sDocTot = Replace_Item2(sDocTot, "@RUB_KLOCKA@", ifLang(gsLang_Curr, "Tid", "Time", "Tid", "Zeit") ) sDocTot = Replace_Item2(sDocTot, "@RUB_TEAM@", ifLang(gsLang_Curr, "Lag", "Team", "Hold", "Mannschaft") ) sDocTot = Replace_Item2(sDocTot, "@RUB_PLAN@", ifLang(gsLang_Curr, gsSpelPlats, "Field", gsSpelPlats, "Spielfeld") ) '2006-11-19 ' sDocTot = Replace_Item2(sDocTot, "@RUB_PLAN@", ifLang(gsLang_Curr, "Plan", "Field", "Plan", "Spielfeld") ) sDocTot = Replace_Item2(sDocTot, "@RUB_ARENA@", ifLang(gsLang_Curr, "Arena", "Arena", "Arena", "Arena") ) 'Ver 2.25 sDocTot = Replace_Item2(sDocTot, "@RUB_RESULTAT@", ifLang(gsLang_Curr, "Resultat", "Result", "Resultat", "Resultat") ) if bRollPC=true then 'Ver 4.25 sDocTot = Replace_Item2(sDocTot, "@LINK_CLASS@", "") sDocTot = Replace_Item2(sDocTot, "@LINK_TEXT@", "") else ' sDocTot = Replace_Item2(sDocTot, "@LINK_CLASS@", gsQ ) if glKundnr=627 then 'Carlsberg sDocTot = Replace_Item2(sDocTot, "@LINK_CLASS3@", "cupteamsclass.asp" & gsQ ) sDocTot = Replace_Item2(sDocTot, "@LINK_CLASS2@", "cupfieldsel.asp" & gsQ ) sDocTot = Replace_Item2(sDocTot, "@LINK_TEXT3@", "Holdliste" ) sDocTot = Replace_Item2(sDocTot, "@LINK_TEXT2@", "Kampe per bane" ) sDocTot = Replace_Item2(sDocTot, "@LINK_CLASS@", "cupdaysel.asp" & gsQ ) sDocTot = Replace_Item2(sDocTot, "@LINK_TEXT@", "Kampe pr. dato" ) else sDocTot = Replace_Item2(sDocTot, "@LINK_CLASS3@", "" ) sDocTot = Replace_Item2(sDocTot, "@LINK_CLASS2@", "" ) sDocTot = Replace_Item2(sDocTot, "@LINK_TEXT3@", "" ) sDocTot = Replace_Item2(sDocTot, "@LINK_TEXT2@", "" ) sDocTot = Replace_Item2(sDocTot, "@LINK_CLASS@", "cupclasssel.asp" & gsQ ) sDocTot = Replace_Item2(sDocTot, "@LINK_TEXT@", ifLang(gsLang_Curr, "Välj ny klass", "Choose another class", "Vælg ny række", "Wählen anderes Klasse") ) end if end if '------------------------------ 'Läs in hur många grupper som finns '------------------------------ strSQL = "Select * from tblGrupper " & vbcrlf strSQL = strSQL & "WHERE TurnNr=" & glTurnNr & " AND Klass = " & dbfnutt(sKlass) strSQL = strSQL & " ORDER BY Gruppnr " 'ErrorInfo strSQL & "
" Set Result = Conn.Execute(strSQL) while not Result.EOF if Result("Gruppnr")= cint(sGrp) then ' errorinfo "grp found" sGrpNamn = Repl_LangVerb("grupp",Result("Gruppnamn")) end if '---------------------------------------- 'Bygg upp länkarna för grupperna '---------------------------------------- if sLink_Grp <> "" then sLink_Grp = sLink_Grp & "   " sLink_Grp = sLink_Grp & "" 'Ver 4.21 sLink_Grp = sLink_Grp & Repl_LangVerb("grupp",Result("Gruppnamn")) & "" Result.movenext Wend Result.close if bRollPC=true then 'Ver 4.25 sDocTot = Replace_Item2(sDocTot,"@GRP_LINK_MANY@","") else sDocTot = Replace_Item2(sDocTot,"@GRP_LINK_MANY@",sLInk_Grp) end if sDocTot = Replace_Item2(sDocTot,"@RES_CURR_GRP@",sGrpNamn) '------------------------------ 'Ver 2.25: Finns kval.omgångar? ' Samt läs in tabellberäkningar '------------------------------ '------------------------------------- ' 20070731: Ändrad '------------------------------------- strSQL = "Select * from tblKlassExtra " & vbcrlf strSQL = strSQL & "WHERE TurnNr=" & glTurnNr & " AND Klass = " & dbfnutt(sKlass) Set Result = Conn.Execute(strSQL) if Result.EOF = false then 'Ver 4.00 sKvNamn = Result("Kvalnamn") iPointsVinst=Result("PointsVinst") iPointsOavgjord=Result("PointsOavgjord") iPointsForlust=Result("PointsForlust") 'Ver 3.10 iPointsVinstET=Result("PointsVinstET") iPointsOavgjordET=Result("PointsOavgjordET") iPointsForlustET=Result("PointsForlustET") saCupPri(0)=Result("CupPri1") saCupPri(1)=Result("CupPri2") saCupPri(2)=Result("CupPri3") else 'Ver 4.00 sKvNamn="Kval.omgång" iPointsVinst=3 iPointsOavgjord=1 iPointsForlust=0 'Ver 3.10 iPointsVinstET=3 iPointsOavgjordET=1 iPointsForlustET=0 saCupPri(0)="POINTS" saCupPri(1)="DIFF" saCupPri(2)="GJORDAMÅL" end if Result.close '------------------------------------- ' 20070731: Ändrad ' Ver 4.00 '------------------------------------- 'dim iAntalKval, sKvNamn ' strSQL = "SELECT count(*) as Antal FROM tblGames" ' strSQL = strSQL & " WHERE TurnNr = " & glTurnNr & " AND Klass = " & dbfnutt(sKlass) & " and GruppNr=0 and ABCD='' " ' 'ErrorInfo strSQL & "
" ' Set Result = Conn.Execute(strSQL) ' iAntalKval=Result("Antal") ' Result.close ' if iAntalKval > 0 then if Read_KPMatch_Count(glTurnNr, "K", sKlass) > 0 then '---------------------------------------- 'Bygg upp länkarna för kval.omgång '---------------------------------------- sLink_SS = "" sLink_SS = sLink_SS & ifLang(gsLang_Curr, "Kval.omgångar", "Qualifying Games", "Kvalificeringsmatcher", "Qualifying Games") & "" 'Ver 4.00 sLink_SS = sLink_SS & ifLang(gsLang_Curr, sKvNamn, "Qualifying round", sKvNamn, "Qualifizieren Runde") & "" end if 'Ver 4.00 Plac.matcher? if Read_KPMatch_Count(glTurnNr, "P", sKlass) > 0 then '---------------------------------------- 'Bygg upp länkarna för plac.omgång '---------------------------------------- if sLink_SS <> "" then sLink_SS = sLink_SS & "   " sLink_SS = sLink_SS & "" sLink_SS = sLink_SS & ifLang(gsLang_Curr, "Plac.matcher", "Endposition Games", "Plac.matcher", "Qualifying Games") & "" 'Ver 4.00 sLink_SS = sLink_SS & ifLang(gsLang_Curr, sKvNamn, "Qualifying round", sKvNamn, "Qualifizieren Runde") & "" end if '------------------------------ 'Läs in hur många slutspel som finns '------------------------------ strSQL = "Select DISTINCT ABCD from tblGames " & vbcrlf strSQL = strSQL & "WHERE TurnNr=" & glTurnNr & " AND Klass = " & dbfnutt(sKlass) & " AND SSOmgang <> ''" strSQL = strSQL & " ORDER BY ABCD " 'ErrorInfo strSQL & "
" Set Result = Conn.Execute(strSQL) while not Result.EOF '---------------------------------------- 'Bygg upp länkarna för slutspelet '---------------------------------------- if sLink_SS <> "" then sLink_SS = sLink_SS & "   " sLink_SS = sLink_SS & "" 'Ver 4.00 ' sLink_SS = sLink_SS & "" ' sLink_SS = sLink_SS & ifLang(gsLang_Curr, "Slutspel", "Playoff", "Slutspill", "Endspiele") & " " & Result("ABCD") & "" sLink_SS = sLink_SS & ReturnSS_Name(Result("ABCD"),gsLang_Curr) & "" 'Ver 4.00 Result.movenext Wend Result.close if bRollPC=true then 'Ver 4.25 sDocTot = Replace_Item2(sDocTot,"@PLAYOFF_LINK_MANY@","") else sDocTot = Replace_Item2(sDocTot,"@PLAYOFF_LINK_MANY@",sLInk_SS) end if '------------------------------ 'Grupp förvald? '------------------------------ if sGrp="" then 'Ingen grupp förvald 'Ver 2.11 Call Read_Teams_ShirtColors 'Ver 5.32b Call Read_Teams_InGroups 'Läs in lag i grupperna och pytsa ut ' Call Split_Doc("@NO_GRP", "@DYNAMIC_END", sDocTot, sDocFirst, sDocDynamic, sDocEnd) ' response.write(sDocFirst & "") response.write(sDocTot & "") else '------------------------------ 'Läs in samtliga gruppspelmatcher '------------------------------ ' Call Read_GrpGames Call Read_GrpGames(glTurnNr, sKlass, sGrp) 'Ver 4.23 '------------------------------ 'Kalkylera tabell '------------------------------ if glTurnnr=583 then 'kuk ' errorinfo "Innan Calc_Table" end if ' Call Calc_Table Call Calc_Table(true, glTurnNr, sKlass, sGrp) 'Ver 4.23 if bIngenTabell = false then 'Ver 2.04 Call Split_Doc("@DYNAMIC_START", "@DYNAMIC_END", sDocTot, sDocFirst, sDocDynamic, sDocEnd) Response.write sDocFirst '------------------------------ 'Pytsa ut tabellen '------------------------------ for i=1 to iLagix Call Fix_Lagnr(saLag(i),sLinkLag, sShowLag) 'Ver 4.01 if gbPreviewActive = false then 'Ver 4.21 sLinkPhone = Return_Mobile_LinkCUPTEAM(sKlass, sShowLag) 'Ver 5.17 sLinkPhone = sLinkPhone & "" sDD = Replace_Item2(sDocDynamic,"@LINK_TEAM@", sLinkPhone) 'Ver 5.17 ' sDD = Replace_Item2(sDocDynamic,"@LINK_TEAM@","") else sDD = Replace_Item2(sDocDynamic,"@LINK_TEAM@","") end if sDD = Replace_Item2(sDD,"@DATA_TEAM@",Repl_LangAll(sShowLag) & "") 'Ver 5.21 ' sDD = Replace_Item2(sDD,"@DATA_TEAM@",Repl_LangVerb("ifrån",sShowLag) & "") 'Ver 5.20 ' sDD = Replace_Item2(sDD,"@DATA_TEAM@",sShowLag & "") sDD = Replace_Item2(sDD,"@DATA_SP@",iaAntM(i)) sDD = Replace_Item2(sDD,"@DATA_VM@",iaAntV(i)) sDD = Replace_Item2(sDD,"@DATA_OM@",iaAntO(i)) sDD = Replace_Item2(sDD,"@DATA_FM@",iaAntF(i)) sDD = Replace_Item2(sDD,"@DATA_GOALS@",iaAntPGoal(i) & " - " & iaAntMGoal(i)) sDD = Replace_Item2(sDD,"@DATA_KVOT@",ifTF(iaKvot(i)>0, "+" & iaKvot(i), iaKvot(i))) sDD = Replace_Item2(sDD,"@DATA_POINTS@",iaAntPts(i)) response.write sDD next else Call Split_Doc("@DYNAMIC_START", "@DYNAMIC_END", sDocTot, sDocFirst, sDocDynamic, sDocEnd) Response.write sDocFirst Response.write sDocDynamic end if '------------------------------ 'Pytsa ut matcherna (utgå från sDocEnd) '------------------------------ Call Split_Doc("@RES_START", "@RES_END", sDocEnd, sDocFirst, sDocDynamic, sDocEnd) Response.write sDocFirst for i=1 to giAntMatch sDD = Replace_Item2(sDocDynamic,"@MATCHNR@",gaMatchNr(i)) sDD = Replace_Item2(sDD,"@DATUM@","" & myWDay(gaMatchDat(i),true) & " " & gaMatchDat(i)) if trim(gaMatchResFmt(i))="" then sDD = Replace_Item2(sDD,"@KLOCKA_START@",Return_Mobile_LinkCUPGAME(gaMatchNr(i), gaMatchTid(i), 0, -1)) 'Ver 5.17 else sDD = Replace_Item2(sDD,"@KLOCKA_START@",Return_Mobile_LinkCUPGAME(gaMatchNr(i), gaMatchTid(i), 1, 7)) 'Ver 5.17 end if ' sDD = Replace_Item2(sDD,"@KLOCKA_START@",gaMatchTid(i)) ' Call Fix_Lagnr(gaMatchHL(i),sLinkLag, sShowLag) Call Fix_Lagnr4(gaMatchHL(i),sLinkLag, sShowLag, gaMatchHLOrg(i)) 'Ver 4.24 sDD = Replace_Item2(sDD,"@HL@",Repl_LangAll(sShowLag)) 'Ver 5.21 ' sDD = Replace_Item2(sDD,"@HL@",Repl_LangVerb("ifrån",sShowLag)) 'Ver 5.20 ' sDD = Replace_Item2(sDD,"@HL@",sShowLag) ' Call Fix_Lagnr(gaMatchBL(i),sLinkLag, sShowLag) Call Fix_Lagnr4(gaMatchBL(i),sLinkLag, sShowLag, gaMatchBLOrg(i)) 'Ver 4.24 sDD = Replace_Item2(sDD,"@BL@",Repl_LangAll(sShowLag)) 'Ver 5.21 ' sDD = Replace_Item2(sDD,"@BL@",Repl_LangVerb("ifrån",sShowLag)) 'Ver 5.20 ' sDD = Replace_Item2(sDD,"@BL@",sShowLag) sDD = Replace_Item2(sDD,"@PLANINFO@",gaMatchPlan(i)) sDD = Replace_Item2(sDD,"@ARENA@",gaMatchArena(i)) 'Ver 2.25 if trim(gaMatchResFmt(i))="" then 'Ver 5.03 sDD = Replace_Item2(sDD,"@MATCHRES@",Return_Register_Icon(gaMatchKlass(i), gaMatchNr(i), gaMatchDat(i), gaMatchTidSlut(i))) 'Ver 5.03 else sDD = Replace_Item2(sDD,"@MATCHRES@",gaMatchResFmt(i) & gaMatchResStat(i)) 'Ver 2.25 end if Response.write sDD next Response.write sDocEnd end if Close_DB Conn ' Response.write sDocEnd end if %>