|
||||||
Admin start | Loggout <% Set Connect__8 = Server.CreateObject("ADODB.Connection") 'On error resume next Connect__8.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/users_56459845gg.mdb")) Set RecSet__8 = Server.CreateObject("ADODB.Recordset") %> <% '====================================================================================================================== %> <% ' Kontrollera användarnamn, lösenord och behörighet %> <% ''====================================================================================================================== %> <% Dim X X = FALSE If Not Session("999___sdfsdfsdf") = "Yes" Then Session("user9___u8u7u") = Request.Form("Username") Session("pass9___u8u7u") = Request.Form("Password") Visa = "SELECT Username, ID, Password, Access FROM users" RecSet__8.Open Visa, Connect__8 Do Until X = TRUE OR RecSet__8.EOF If RecSet__8("Username") = Request.Form("Username") AND RecSet__8("Password") = Request.Form("Password") Then X = TRUE Exit Do End If RecSet__8.MoveNext Loop If X = FALSE Then 'Response.Write "Du har angivit felaktigt användarnamn eller lösenord. Var god försök igen! Vanliga fel: Vid problem kontakta då IM Storms support " End If Else Visa = "SELECT Username, ID, Password, Access FROM users" RecSet__8.Open Visa, Connect__8 Do Until X = TRUE OR RecSet__8.EOF If RecSet__8("Username") = Session("user9___u8u7u") AND RecSet__8("Password") = Session("pass9___u8u7u") Then X = TRUE Exit Do End If RecSet__8.MoveNext Loop If X = FALSE Then Response.Write "Du har angivit felaktigt användarnamn eller lösenord. Var god försök igen! Vanliga fel: Vid problem kontakta då IM Storms support " RecSet__8.Close Connect__8.Close End If End If If X = TRUE Then Session("19792F") = RecSet__8("Access") Session("999___sdfsdfsdf") = "Yes" Session.Timeout = 140 RecSet__8.Close Connect__8.Close %> <% '====================================================================================================================== %> <% ' Script för inloggade med A-access %> <% ''====================================================================================================================== %> <%If Session("19792F") = "A" Then %> Welcome <%=Session("user9___u8u7u")%>
All pictures on the site should not be more then 445px width!! Download this program for free to resize your pictures with in 3 clicks. <% End If %> <%'Avsluta inlognings lycka%> <%End If%>
|