---
title: "Loginsystem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/64899-loginsystem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "CatZ"
published: "2003-01-14T21:17:10.000Z"
updated: "2003-01-14T21:39:43.000Z"
replies: 5
views: 199
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/64899-loginsystem"
---

# Loginsystem

## #1 — CatZ, 2003-01-14T21:17Z

Testar med följande: 

```
[b]header.asp[/b]
23. if session("user_id") = empty then 
24.   response.write "<a href='login.asp'>Login</a>"
25. else
26.   response.write "<a href='logout.asp'>Logout</a>"
27. end if

[b]login.asp[/b]
if session("user_id") = empty then
response.write "<center>"
if session("error_msg") <> empty then
  response.write session("error_msg")
end if
  response.write "<table border='0' cellspacing='0' cellpadding='3'>"
    response.write "<form method='post' action='login_validate.asp'>"
      response.write "<tr>"
        response.write "<td>Username</td>"
        response.write "<td><input type='text' name='f_username'></td>"
      response.write "</tr><tr>"
        response.write "<td>Password</td>"
        response.write "<td><input type='password' name='f_password'></td>"
      response.write "</tr><tr>"
        response.write "<td colspan='2'><input type='submit' value='login'></td>"
      response.write "</tr>"
    response.write "</form>"
  response.write "</table>"
response.write "</center>"
end if

[b]login_validate.asp[/b]
dim objRS
dim str_username, str_password
dim str_admin, int_userid, int_user
str_username = request.form("f_username")
str_password = request.form("f_password")
set objRS = objConn.execute( " select * " _
  & " from t_soldiers " _
  & " where soldier_login = '" & str_username & "' " _
  & " and soldier_password = '" & str_password & "' " )

if not objRS.eof then
  str_admin 	= objRS("soldier_admin")
  int_userid	= objRS("soldier_id")
  int_user		= objRS("soldier_nick")
  session("admin") 		= str_admin
  session("user_id")	= int_userid
  session("user")		= int_user
  session("error_msg") = "You logged in as " & session("user")
 server.transfer "/login.asp"
else
  session("error_msg") = "Wrong username or password!!"
 server.transfer "/login.asp"
end if
```

och får följande felmess när jag ska logga ut:

Körningsfel i Microsoft VBScript fel '800a005b'

Objektvariabel har inte angetts.

/header.asp, line 23

Permalänk: https://www.webforum.nu/p/64899

## #2 — CatZ, 2003-01-14T21:17Z

/red

Permalänk: https://www.webforum.nu/p/912581

## #3 — Jesper T, 2003-01-14T21:29Z

Skall det inte vara: if session("user_id") = "" then

Permalänk: https://www.webforum.nu/p/912590

## #4 — Gein, 2003-01-14T21:30Z

Hur ser logout.asp ut då?

Permalänk: https://www.webforum.nu/p/912591

## #5 — CatZ, 2003-01-14T21:31Z

usch det var ju logout... jag hade skrivit **SET** session = nothing

Permalänk: https://www.webforum.nu/p/912592

## #6 — CatZ, 2003-01-14T21:39Z

sessioner förstör man genom session("sessionen") = empty och slutligen för att vara på säkra sidan... session.abandon :)

Permalänk: https://www.webforum.nu/p/912595

---

Tråden på webben: https://www.webforum.nu/amne/asp/64899-loginsystem