<% Option Explicit %> <% Dim Conn, Result 'as Object Dim strSQL 'as String dim strReturn, sTmp dim bFel, sLU dim sDocTot Dim sDocFirst, sDocDynamic, sDocEnd Dim sDD dim i, i2 dim sLang 'Ver 2.08 Sub Get_Session_Local '-------------------------------------------------------- ' Syfte: Hämtar in lokala sessionvariabler ' ' Parameters: '-------------------------------------------------------- glTurnNr = session("Turnnr") gsLang_Curr = session("Lang_Current") end sub 'Ver 2.08.start Call Init_Cup(232) ' <--- Ändra här sLang=Request.Querystring("Lang") if sLang<> "" then session("Lang_Current")=sLang end if Call Insert_Log(232, sLang, "Uppstart") '<--- Ändra här 'Ver 2.08-slut call Get_Session_Local 'Hämta in lokala variabler '----------------------------------------- 'Uppstart: Bygg upp querystring ' Om glTurnNr="", så har sessions ' objektet gått i timout. '----------------------------------------- gsQ = "?Cup=" & glTurnNr & "&Lang_Current=" & gsLang_Curr if glTurnNr="" then ErrorInfo("Sessionen har gått i timeout, stäng webbrowsern och prova igen
The session has timed out, please close your web browser and try again") ' gsStartPgm=Request("lblstartpgm") ' if gsStartPgm <> "" then ' response.redirect gsStartPgm ' end if else '------------------------------------------------- ' Läs in turneringsinfo '------------------------------------------------- Call Read_TurnVars(glTurnNr) '------------------------------ 'Läs in menyerna för aktuellt språk '------------------------------ call ReadLanguage(glTurnNr,gsLang_Curr) if Read_HTML_Template("kamratcupen_sommar_2007232.htm", sDocTot) = false then 'Ver 2.08 <--- Ändra här Response.write sDocTot Else '----------------------------------------------- 'Lite trix: Fixa rubiken på framen samt vilken ' main-sida som ska visas beroende på ' primärt språk '----------------------------------------------- sDocTot = Replace_Item2(sDocTot, "@TITLE@", gsTurnNamn) sDocTot = Replace_Item2(sDocTot, "@STARTPAGE@", gsURL_Start(gixL) & gsQ) sDocTot = Replace_Item2(sDocTot, "@TOPPAGE@", "cuptop.asp" & gsQ) sDocTot = Replace_Item2(sDocTot, "@MENUPAGE@", "menuleft.asp" & gsQ) Response.write sDocTot end if end if %>