<% Option Explicit %> Inloggning Web CuMaP <% '--------------------------------------------------------- ' Ver 4.23c 2008-02-04 Sök på: Ny permission: EKO ' Ver 4.lng 2008-08-01 språkhantering ' Ver 4.80 2009-01-12 Checka domän ' Ver 5.27 2009-09-01 Info om fel domän ' Ver 5.30 2009-09-03 Om endast en cup, lagra om menyer är i version 5.30 '--------------------------------------------------------- Dim Conn, Result 'as Object Dim strSQL 'as String dim sDateFL dim lTurnNr dim sCurrDomain, sRedir dim bFelDomain Function FixLangCbo '-------------------------------------------------------- ' Ver 4.lng ' Syfte: Fixar språkcombo ' ' Parameters: '-------------------------------------------------------- dim sCbo sCbo=vbcrlf & "" FixLangCbo =sCbo end function Function lng_txt(sID, sTxtSVE) '-------------------------------------------------------- ' Ver 4.lng ' Syfte: Returnerar språktext ' ' Parameters: '-------------------------------------------------------- if gsLang_Curr="SVE" and trim(sTxtSVE) <> "" then Lng_txt=sTxtSve exit function end if 'Vilket ID? 'Vilket ID? if sID=1 then if gsLang_Curr="ENG" then Lng_txt="You have to specify a user name" elseif gsLang_Curr="DEN" then Lng_txt="Du må ange en bruger" else Lng_txt="You have to specify a user name" end if end if if sID=2 then if gsLang_Curr="ENG" then Lng_txt="You have to specify a password" elseif gsLang_Curr="DEN" then Lng_txt="Du må ange et password" else Lng_txt="You have to specify a password" end if end if if sID=3 then if gsLang_Curr="ENG" then Lng_txt="User unknown, or login to incorrect domain" elseif gsLang_Curr="DEN" then Lng_txt="Brugern ukænd, eler fejlaktig domän" else Lng_txt="User unknown or login to incorrect domain" end if end if if sID=4 then if gsLang_Curr="ENG" then Lng_txt="Wrong password" elseif gsLang_Curr="DEN" then Lng_txt="Fejl password" else Lng_txt="Wrong password" end if end if if sID=5 then if gsLang_Curr="ENG" then Lng_txt="You are not active in our database" elseif gsLang_Curr="DEN" then Lng_txt="You are not active in our database" else Lng_txt="You are not active in our database" end if end if if sID=6 then if gsLang_Curr="ENG" then Lng_txt="WebCuMap Admin Log in " elseif gsLang_Curr="DEN" then Lng_txt="WebCuMap Admin Log in " else Lng_txt="WebCuMap Admin Log in " end if end if if sID=7 then if gsLang_Curr="ENG" then Lng_txt="Enter username and password to access your tournament" elseif gsLang_Curr="DEN" then Lng_txt="Indtast bruger navn og kodeord" else Lng_txt="Enter username and password to access your tournament" end if end if if sID=8 then if gsLang_Curr="ENG" then Lng_txt="User name" elseif gsLang_Curr="DEN" then Lng_txt="Bruger navn" else Lng_txt="User name" end if end if if sID=9 then if gsLang_Curr="ENG" then Lng_txt="Password" elseif gsLang_Curr="DEN" then Lng_txt="Kodeord" else Lng_txt="Password" end if end if if sID=10 then if gsLang_Curr="ENG" then Lng_txt="Password" elseif gsLang_Curr="DEN" then Lng_txt="Password" else Lng_txt="Password" end if end if if sID=11 then if gsLang_Curr="ENG" then Lng_txt="Log in" elseif gsLang_Curr="DEN" then Lng_txt="Log in" else Lng_txt="Log in" end if end if if sID=12 then if gsLang_Curr="ENG" then Lng_txt="Forgot your username and password?" elseif gsLang_Curr="DEN" then Lng_txt="Glemt dit brugernavn og password?" else Lng_txt="Glömt ditt lösenord och användarnamn?" end if end if if sID=13 then if gsLang_Curr="ENG" then Lng_txt="Send an email to " elseif gsLang_Curr="DEN" then Lng_txt="Skicka et email til " else Lng_txt="Skicka ett email till " end if end if if sID=14 then if gsLang_Curr="ENG" then Lng_txt="and you will within short receive your information." elseif gsLang_Curr="DEN" then Lng_txt="så får du informationen med vändande email." else Lng_txt="så får du informationen med vändande email." end if end if if sID=15 then if gsLang_Curr="ENG" then Lng_txt="State you name, Club and customer number." elseif gsLang_Curr="DEN" then Lng_txt="Ange ditt namn, kundnr och vilken förening det gäller." else Lng_txt="Ange ditt namn, kundnr och vilken förening det gäller." end if end if if sID=16 then if gsLang_Curr="ENG" then Lng_txt="You have logged in into incorrect domain (" elseif gsLang_Curr="DEN" then Lng_txt="Du har loggat in på felaktig domän (" else Lng_txt="Du har loggat in på felaktig domän (" end if end if if sID=17 then if gsLang_Curr="ENG" then Lng_txt="Your home domain is " elseif gsLang_Curr="DEN" then Lng_txt="Din hemmadomän är " else Lng_txt="Din hemmadomän är " end if end if if sID=18 then if gsLang_Curr="ENG" then Lng_txt="Click on the link below to enter the correct login link. Please update your bookmark with the correct link." elseif gsLang_Curr="DEN" then Lng_txt="Klicka på länken nedan för att komma till korrekt inloggning. Uppdatera dina bokmärken med korrekt länk." else Lng_txt="Klicka på länken nedan för att komma till korrekt inloggning. Uppdatera dina bokmärken med korrekt länk." end if end if end function Session.value("LoginOK")="" gIntFel=0 gStrFel="" Call Init_AdminCup bFelDomain=false 'Ver 5.27 gsWebDomain=Request.ServerVariables("SERVER_NAME") 'Ver 5.50 gsLang_Curr=request.querystring("lang") 'Ver 4.lng if gsLang_Curr="" then gsLang_Curr=Session.value("AdmLang") if gsLang_Curr="" then gsLang_Curr="SVE" end if Session.value("AdmLang")=gsLang_Curr Session("Banner_Language")=gsLang_Curr '---------------------------------------------------------- 'Kolla om användaren tryckt Utför kolla då valen '---------------------------------------------------------- ' If Not IsEmpty(Request("pblogin.x")) then If Request("pblogin") <> "" then GstrUser=Request("user") GstrPassword=Request("pw") if trim(gstrUser="") then GintFel=1 GstrFel=lng_txt(1, "Du måste ange en användare.") End If if trim(gstrPassword="") and gIntFel= 0 then GintFel=2 GstrFel=lng_txt(2,"Du måste ange ett lösenord.") End If 'Om allt var OK. If GintFel=0 Then '----------------------------------------------- ' Användare + Password angivet. Testa nu mot databasen '----------------------------------------------- Set Conn = Open_DB(gsWebDomain) 'Ver 5.50 strSQL = "Select * from tblUsers " strsql = strSQL & " WHERE Username = " & dbfnutt(gStrUser ) ' response.write(strSQL & "
") Set Result = Conn.Execute(strSQL) if Result.EOF then gIntFel=3 GStrFel=lng_txt(3,"Användaren saknas, eller inloggning på fel domän") else if gstrPassWord <> Result("PassWord") then gIntFel=4 gStrFel=lng_txt(4,"Felaktigt lösenord!") end if if Result("Aktiv") = false then gIntFel=5 gStrFel=lng_txt(5,"Du är ej aktiv i vår databas!") end if end if if gIntFel=0 then 'Fortfarande OK '----------------------------------------------------- ' Lagra i session-variablerna '----------------------------------------------------- Session.Value("user")=GstrUser Session.Value("pw")=GstrPassword Session.value("username")=Result("Name") Session.value("permission")=Result("permissions") Session.value("kundnr")=Result("kundnr") Session.value("LoginOK")="XERXES" sDateFL=konv_null(Result("DateFirstLogon"),"") lTurnNr = Result("TurnNr") Session.value("AdmLang")=gsLang_Curr 'Ver 4.lng Result.Close Set Result = Nothing Conn.Close Set Conn = Nothing dim sTmp dim sTidpunkt sTidPunkt = strGetDate(0) & " " & strGetTime(true) 'response.write ("Tidpunkt = " & sTidPunkt & "
") sTmp ="Update tblUsers set DateLastLogon = " & dbfnutt(sTidPunkt) & ", NoOfLogons = NoOfLogons + 1 WHERE Username = " & dbfnutt(gstrUser) ' response.write(sTmp & "
") call Exec_SQL(gsWebDomain, sTmp) if sDateFL = "" then sTmp ="Update tblUsers set DateFirstLogon = " & dbfnutt(sTidPunkt) & " WHERE Username = " & dbfnutt(gstrUser) ' response.write(sTmp & "
") call Exec_SQL(gsWebDomain, sTmp) end if if Session.value("permission") <> "SYSADM" then Session.value("Turn_OneOnly")=true Session("Banner_TurnNr")=0 '----------------------------------------------------- ' Kontrollera vilken/vilka aktiv turnering(ar) som finns till användaren '----------------------------------------------------- Set Conn = Open_DB(gsWebDomain) 'Ver 5.50 strSQL = "Select * from tblTurnering " & vbcrlf ' Ver 3.31 ' strsql = strSQL & " WHERE Kundnr = " & Session.value("kundnr") & " AND Aktiv = 1 " & vbcrlf if Session.value("permission") = "TURNADM" then strsql = strSQL & " WHERE Kundnr = " & Session.value("kundnr") & vbcrlf else strsql = strSQL & " WHERE Kundnr = " & Session.value("kundnr") & " AND Aktiv = 1 " & vbcrlf end if ' if Session.value("permission")="USER" then if Session.value("permission")="USER" OR Session.value("permission")="EKO" then 'Ver 4.23c strsql = strSQL & " AND TurnNr = " & lTurnNr & " " end if strsql = strSQL & "ORDER BY TurnNr DESC" ' response.write(strSQL & "
") Set Result = Conn.Execute(strSQL) if Result.EOF then ErrorInfo "***Ingen träff" ' Session.value("TurnNr") = -1 Session.value("AdmTurnNr") = -1 'Ver 3.11 else ' Session.value("TurnNr") = Result("TurnNr") Session("Banner_TurnNr")=Result("TurnNr") Session.value("AdmTurnNr") = Result("TurnNr") 'Ver 3.11 Session.value("Turneringsnamn") = Result("Turneringsnamn") Session.value("NewLayout530") = Result("NewLayout530") 'Ver 5.30 Result.movenext if Result.EOF = true then 'Fanns bara en Session.value("Turn_OneOnly")=true ' response.write("Turn_OneOnly)=true
") else Session.value("Turn_OneOnly")=false ' response.write("Turn_OneOnly)=false
") end if end if Result.Close Conn.Close '---------------------------------------------------------- 'Ver 4.80: Kolla vilken domän användaren tillhör '---------------------------------------------------------- set Conn = Open_DB("cumap.se") 'Ver 5.50 sCurrDomain=Request.ServerVariables("SERVER_NAME") ' strsql = "Select domain_cupweb from tblLicKunder WHERE Kundnr=" & Session.value("kundnr") strsql = "Select cur_domaincup from tblLicKunder WHERE Kundnr=" & Session.value("kundnr") 'Ver 5.50 Set Result = Conn.Execute(strSQL) 'Ver 5.27 - fel domän? sRedir="http://" & Result("cur_domaincup") & "/cuponweb/pgm/adm_menycumap.asp" if sCurrDomain <> Result("cur_domaincup") then bFelDomain=true sRedir="http://" & Result("cur_domaincup") & "/cuponweb/pgm/adm_logincumap.asp" response.write ("

" & lng_txt(16, "Du har loggat in på felaktig domän (")) response.write ("" & sCurrDomain & ").
" & lng_txt(17, "Din hemmadomän är ") & "" & Result("cur_domaincup") & "

") response.write ("

" & lng_txt(18, "Klicka på länken nedan för att komma till korrekt inloggning. Uppdatera dina bokmärken med korrekt länk.") & "

") response.write ("

" & sRedir & "") end if Result.close Set Result = Nothing Conn.Close Set Conn = Nothing else 'SYSADM ' Session.value("TurnNr") = 0 Session.value("AdmTurnNr") = 0 'ver 3.11 Session.value("Turn_OneOnly")=false sRedir="adm_menycumap.asp" end if ' Response.Redirect "adm_menycumap.asp" if bFelDomain=false then 'Ver 5.30 Response.Redirect sRedir end if else ' Fel... Result.Close Set Result = Nothing Close_DB Conn 'Stäng databasen end If end If end if if bFelDomain=false then 'Ver 5.27 %>

<% if 1=0 then %> <% if GintFel <> 0 then %> <% end if %> <% if cSYSTEMBUSY = true then %> <% end if %> <% end if 'if 1=0 then %>

<% dim newlink newlink="http://" & Request.ServerVariables("SERVER_NAME") & "/cuponweb/php/adm_logincumap.php" response.write("

Inloggningsidan är flyttad!
Se till att ändra ditt bokmärke till följande länk:
") response.write("" & newlink & "

") %>

Select language:<% = FixLangCbo %>


<% = lng_txt(8,"Användarnamn") %>
  

<% = lng_txt(9,"Lösen") %>
   


         <% if cSYSTEMBUSY <> true then %> " name="pblogin" style="margin-top: 3; margin-bottom: 3" tabindex="3" > <% end if %>

<% = GstrFel %>

<% = cBUSYMSG %>

 

<% = lng_txt(12,"Glömt ditt lösenord och användarnamn?") %>
<% = lng_txt(13,"Skicka ett email till ") %>CuMap <% = lng_txt(14,"så får du informationen med vändande email.") %>
<% = lng_txt(15,"Ange ditt namn, kundnr och vilken förening det gäller. ") %>

<% end if ' Ver 5.27 %>