<% Option Explicit %> <% '---------------------------------------------- ' 2008.06.03 1.00 Visa cuper ' 2009.07.31 5.21 Ta ej med testturneringar ' 2010.01.13 5.50 Ny version med tblGlobalCupInfo '---------------------------------------------- '---------------------------------------------- ' Parametrar: ' TurnNr ' Lang_Current ' DAG | PLAN | LAG '---------------------------------------------- Dim Conn, Result 'as Object Dim strSQL 'as String dim strKnr dim bOK dim sDocTot, bFel Dim sDocFirst, sDocDynamic, sDocEnd Dim sDD dim i, i2 dim sTmp dim sTemplate dim sMask_Typ '101 HB/FB/Arr dim sHistory 'OLD/CUR/FUT dim sTown dim sDate dim sMx(400,12) dim iMx dim bAdd, lTurnNr dim iAntKl, sKlass dim qHi, qSort dim sDat12, sStat const cMAX_CUP=100 Sub Get_Session_Matrix_And_Sort '------------------------------------------------- '------------------------------------------------- dim sVar, i, j dim bSortOk dim sTmp dim bOk sVar=session("matrix") iMx=session("iMx") for i=1 to iMx for j=1 to 12 sMx(i,j)=sVar(i,j) next next 'Sortera do bSortOk=true for i=1 to iMx-1 if qSort=9 or qSort=10 then 'Antal sorteras descendig if sMx(i,qSort) < sMx(i+1,qSort) then bSortOK=false for j=1 to 12 sTmp=sMx(i,j) sMx(i,j)=sMx(i+1,j) sMx(i+1,j)=sTmp next end if else ' ascending if sMx(i,qSort) > sMx(i+1,qSort) then bSortOK=false for j=1 to 12 sTmp=sMx(i,j) sMx(i,j)=sMx(i+1,j) sMx(i+1,j)=sTmp next end if end if next loop until bSortOk end sub Sub Set_Session_Matrix '------------------------------------------------- '------------------------------------------------- session("matrix") = sMx session("iMx")=iMx end sub Function strNum(iVal, iAntDig) '------------------------------------------------- '------------------------------------------------- dim sTmp sTmp=trim(iVal) while len(sTmp) < iAntDig sTmp="0" & sTmp Wend strNum=sTmp end function '------------------------------------------------- ' Alla - hb/fb/Arr ' Ældre (-12 mån), aktuella (-3 mån), framtida(+1 mån) ' Ort??? Turneringsnamn??? '------------------------------------------------- sMask_Typ="111" 'FB+Arr sHistory=Request.Querystring("Hi") if sHistory="" then sHistory="-10" qSort=Request.Querystring("S") if qSort="" then qSort="99" 'Datum default qHi="Hi=" & MakeHTTPSafe(sHistory) gsLang_Curr="SVE" gsColorBody = "white" gsColorRubr = "darkblue" gsColorMenu = "blue" gsColorMenuBody = "blue" ' sDatum=Request.Querystring("DAG") bFel=false sTemplate="showcups550.htm" if Read_HTML_Template(checkPreview(sTemplate), sDocTot) = false then 'Ver 4.21 ErrorInfo sDocTot bFel=true end if if bFel=false then '------------------------------ 'Byt ut färgerna i meny '------------------------------ 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 ) '------------------------------ 'Sätt ledtexterna efter språkkod '------------------------------ sDocTot = Replace_Item2(sDocTot, "@LINK_ACTION_1@", "") sDocTot = Replace_Item2(sDocTot, "@LINK_TEXT_1@", ifLang(gsLang_Curr, "12 mån gamla", "Old cups", "Vælg", "Oldies") ) sDocTot = Replace_Item2(sDocTot, "@LINK_ACTION_2@", "") sDocTot = Replace_Item2(sDocTot, "@LINK_TEXT_2@", ifLang(gsLang_Curr, "9 mån gamla", "Old cups", "Vælg", "Oldies") ) sDocTot = Replace_Item2(sDocTot, "@LINK_ACTION_3@", "") sDocTot = Replace_Item2(sDocTot, "@LINK_TEXT_3@", ifLang(gsLang_Curr, "6 mån gamla", "Old cups", "Vælg", "Oldies") ) sDocTot = Replace_Item2(sDocTot, "@LINK_ACTION_4@", "") sDocTot = Replace_Item2(sDocTot, "@LINK_TEXT_4@", ifLang(gsLang_Curr, "Senaste 3 mån", "Old cups", "Vælg", "Oldies") ) sDocTot = Replace_Item2(sDocTot, "@LINK_ACTION_5@", "") sDocTot = Replace_Item2(sDocTot, "@LINK_TEXT_5@", ifLang(gsLang_Curr, "Aktuella", "Old cups", "Vælg", "Oldies") ) sDocTot = Replace_Item2(sDocTot, "@LINK_ACTION_6@", "") sDocTot = Replace_Item2(sDocTot, "@LINK_TEXT_6@", ifLang(gsLang_Curr, "Nästa 2 mån", "Old cups", "Vælg", "Oldies") ) sDocTot = Replace_Item2(sDocTot, "@LINK_TYP@", "") sDocTot = Replace_Item2(sDocTot, "@RUB_TYP@", ifLang(gsLang_Curr, "Typ", "Matchno", "Kampnr", "Matchno") ) sDocTot = Replace_Item2(sDocTot, "@LINK_STATUS@", "") sDocTot = Replace_Item2(sDocTot, "@RUB_STATUS@", ifLang(gsLang_Curr, "Status", "Class", "Klass", "Klasse") ) sDocTot = Replace_Item2(sDocTot, "@LINK_DATUM@", "") sDocTot = Replace_Item2(sDocTot, "@RUB_DATUM@", ifLang(gsLang_Curr, "Datum", "Group", "Pulje", "Gruppe") ) sDocTot = Replace_Item2(sDocTot, "@LINK_TURN@", "") sDocTot = Replace_Item2(sDocTot, "@RUB_TURN@", ifLang(gsLang_Curr, "Händelse", "Day", "Dato", "Datum") ) sDocTot = Replace_Item2(sDocTot, "@LINK_KLASS@", "") sDocTot = Replace_Item2(sDocTot, "@RUB_KLASS@", ifLang(gsLang_Curr, "Klasser", "Time", "Tid", "Zeit") ) sDocTot = Replace_Item2(sDocTot, "@LINK_ANTAL@", "") sDocTot = Replace_Item2(sDocTot, "@RUB_ANTAL@", ifLang(gsLang_Curr, "Antal", "Team", "Hold", "Mannschaft") ) sDocTot = Replace_Item2(sDocTot, "@LINK_CLUB@", "") sDocTot = Replace_Item2(sDocTot, "@RUB_CLUB@", ifLang(gsLang_Curr, "Förening", "Field", gsSpelPlats, "Spielfeld") ) sDocTot = Replace_Item2(sDocTot, "@LINK_PLACE@", "") sDocTot = Replace_Item2(sDocTot, "@RUB_PLACE@", ifLang(gsLang_Curr, "Ort", "Field", gsSpelPlats, "Spielfeld") ) Call Split_Doc("@RES_START", "@RES_END", sDocTot, sDocFirst, sDocDynamic, sDocEnd) Response.write sDocFirst if qSort="99" then 'Nytt val av datum iMx=0 qSort="3" 'Datum '------------------------------------------------- ' Fas 1: ' Läs in turneringar som matchar kriteria '------------------------------------------------- strSQL = "Select T.*, K.Foretag, K.Ort from tblGlobalCupInfo T " & vbcrlf strSQL = strSQL & "LEFT JOIN tblLicKunder K ON T.Kundnr=K.Kundnr " strSQL = strSQL & "WHERE K.Demo=0 AND T.Testcup=0 AND T.Kundnr NOT IN (144, 267, 336, 670, 690, 767, 838, 884, 888, 900, 910) " ' strSQL = strSQL & "AND T.TestCup=0 " 'Ver 5.21 if sMask_Typ = "111" or sMask_Typ = "101" or sMask_Typ = "011" then 'do nothing - både cup och arr else if right(sMask_Typ,1) = "1" then strSQL = strSQL & " AND T.IsCup=0 " else strSQL = strSQL & " AND T.IsCup=1 " end if end if sDate=strGetDate(sHistory) strSQL = strSQL & "AND (T.CupDateFr>=" & dbfnutt(sDate) & " OR (T.CupDateTo>=" & dbfnutt(sDate) & " AND T.CupDateTo <'2099'))" 'Förhindra "Ej klar" if qSort="3" then strSQL = strSQL & " ORDER BY T.CupDateFr, T.TurnNr" elseif qSort="1" then strSQL = strSQL & " ORDER BY T.IsCup" elseif qSort="2" then strSQL = strSQL & " ORDER BY T.Status" elseif qSort="4" then strSQL = strSQL & " ORDER BY T.Turneringsnamn" elseif qSort="7" then strSQL = strSQL & " ORDER BY K.Foretag" elseif qSort="8" then strSQL = strSQL & " ORDER BY K.Ort" end if ' errorinfo strSQL Set Conn = Open_DB("cumap_se") 'Ver 5.50 Set Result = Conn.Execute(strSQL) while not Result.EOF and iMx < cMAX_CUP sDat12=Result("CupDateFr") if Result("CupDateFr") <> Result("CupDateTo") then 'Flera dagar sDat12=sDat12 & "-
" & Result("CupDateTo") end if sStat=Result("Status") if sStat="P-SLUT" then sStat="SLUT" '----------------------------------------- ' Checka arr eller cup '----------------------------------------- lTurnNr=Result("TurnNr") if Result("IsCup")=0 then 'Arr iMx=iMx+1 sMx(iMx,1)="Arr" sMx(iMx,2)=sStat sMx(iMx,3)=sDat12 sMx(iMx,4)=Result("Turneringsnamn") sMx(iMx,5)="---" sMx(iMx,9)=strNum(0,3) 'Sort på antal klasser sMx(iMx,6)=Result("AntTeam") & " Anm." sMx(iMx,7)=Result("Kundnr") & ":" & Result("Foretag") sMx(iMx,8)=Result("Ort") sMx(iMx,10)=strNum(Result("AntTeam"),4) 'Sort på antal anm sMx(iMx,11)=Result("StartPgm") sMx(iMx,12)=Result("Domain") else 'Cup if sStat="OK" or sStat="ANM" then if Result("AntClass") => 0 then iMx=iMx+1 sMx(iMx,1)=Result("Sport") sMx(iMx,2)=sStat sMx(iMx,3)=sDat12 sMx(iMx,4)=Result("Turneringsnamn") sMx(iMx,5)=Result("AntClass") & " klasser." & "
" & replace(Result("ClassInfo"),",",", ") ' sMx(iMx,6)="---" sMx(iMx,7)=Result("Kundnr") & ":" & Result("Foretag") sMx(iMx,8)=Result("Ort") sMx(iMx,9)=strNum(Result("AntClass"),3) 'Sort på antal klasser ' sMx(iMx,10)=strNum(0,4) 'Sort på antal anm sMx(iMx,11)=Result("StartPgm") sMx(iMx,12)=Result("Domain") sMx(iMx,6)=Result("AntTeam") & " lag" sMx(iMx,10)=strNum(Result("AntTeam"),4) 'Sort på antal anm end if elseif sStat="LOTTN" or sStat="SPEL" or sStat="SLUT" then if Result("AntClass") > 0 then iMx=iMx+1 sMx(iMx,1)=Result("Sport") sMx(iMx,2)=sStat sMx(iMx,3)=sDat12 sMx(iMx,4)=Result("Turneringsnamn") sMx(iMx,5)=Result("AntClass") & " klasser." & "
" & replace(Result("ClassInfo"),",",", ") sMx(iMx,9)=strNum(Result("AntClass") ,3) 'Sort på antal klasser sMx(iMx,6)=Result("AntTeam") & " lag" sMx(iMx,10)=strNum(Result("AntTeam"),4) 'Sort på antal anm sMx(iMx,6)=sMx(iMx,6) & ", " & "
" & Result("AntGame") & " matcher." sMx(iMx,7)=Result("Kundnr") & ":" & Result("Foretag") sMx(iMx,8)=Result("Ort") sMx(iMx,11)=Result("StartPgm") sMx(iMx,12)=Result("Domain") end if end if end if 'Cup Result.movenext Wend Result.close Close_DB Conn else ' qSort="99" ' errorinfo "sort..." Get_Session_Matrix_And_Sort end if Set_Session_Matrix 'Spara matris i session '------------------------------------------------ ' Pytsa ut '------------------------------------------------ for i=1 to iMx sDD=sDocDynamic if sMx(i,1)="Arr" then sDD = Replace_Item2(sDD,"@TYP@","" & sMx(i,1) & "") elseif sMx(i,1)="FB" then sDD = Replace_Item2(sDD,"@TYP@","" & sMx(i,1) & "") elseif sMx(i,1)="HB" then sDD = Replace_Item2(sDD,"@TYP@","" & sMx(i,1) & "") else sDD = Replace_Item2(sDD,"@TYP@","" & sMx(i,1) & "") end if sDD = Replace_Item2(sDD,"@STATUS@",sMx(i,2)) sDD = Replace_Item2(sDD,"@DATUM@",sMx(i,3)) sDD = Replace_Item2(sDD,"@LINK_2TURN@","") sDD = Replace_Item2(sDD,"@TURN@",sMx(i,4)) sDD = Replace_Item2(sDD,"@KLASS@",sMx(i,5)) sDD = Replace_Item2(sDD,"@ANTAL@",sMx(i,6)) sDD = Replace_Item2(sDD,"@CLUB@",sMx(i,7)) sDD = Replace_Item2(sDD,"@PLACE@",sMx(i,8)) ' if gbPreviewActive = false then 'Ver 4.21 ' sTmp = "" & sTmp & "" 'Ver 4.00 ' end if Response.write sDD next errorinfo "Antal händelser: " & iMx ' Response.write sDocEnd end if %>