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:

  • Versaler och gemener har inte omtänkts.
  • Felaktig lösenord.
  • Caps Lock är påslagen.

    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:

  • Versaler och gemener har inte omtänkts.
  • Felaktig lösenord.
  • Caps Lock är påslagen.

    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")%>

    Articles
    List Articles
    Add new Article
    Upload Picture
    Uploaded Pictures

    Journalists
    List Journalist
    Add a new Journalist

    Stories from other sites
    List Stories from other sites
    Add ned storie
    Edit page...
    Nordic info
    African info
    Abouts us
    Contact

    Pictorial
    Edit Pictorial

    Comments...
    List all Comments
    List NEW Sent Comments
    Add new Comment


    Letters...
    List Letters



    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%>

    To read your new email:
    https://webmail.binero.se
    Admin area
    Username:

    Password: