---
title: "Lista inloggade medlemmar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/136803-lista-inloggade-medlemmar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "wborg"
published: "2005-11-01T19:36:12.000Z"
updated: "2005-11-01T20:58:44.000Z"
replies: 6
views: 465
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/136803-lista-inloggade-medlemmar"
---

# Lista inloggade medlemmar

## #1 — wborg, 2005-11-01T19:36Z

Tjena,

försöker skapa ett inloggnings system där man sen ska kunna se vilka andra som e online/inloggade.

Inloggningen fungerar korrekt men den uppdaterar inte mitt fält OnlineStatus i databasen (Access) som fortfarande står som 0 :(

just nu så har jag följande kod:

```
<% Response.Buffer = TRUE

	Set Conn = Server.CreateObject("ADODB.Connection") 
	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("login.mdb") 

	Set recset = Conn.Execute("Select * from tbl_users")

	X = FALSE

	Do Until X = TRUE OR RecSet.EOF

	If RecSet("Username") = Request.Form("Username") Then
	X = TRUE
	Exit Do
	End If

	RecSet.MoveNext
	Loop

	If X = TRUE Then

		Y = FALSE
		Do Until Y = TRUE OR RecSet.EOF

		If RecSet("Password") = Request.Form("password") Then
		Y = TRUE
		Exit Do
		End If

		RecSet.MoveNext

		Loop

	End If

	If X = FALSE Then 
	Response.Redirect "index.asp?mess=error&username"

	ElseIf Y = FALSE Then
	Response.Redirect "index.asp?mess=error&password"

	End If

	If X = TRUE AND Y = TRUE Then 

	Session("username") = Request.Form("username")
	Session("password") = Request.Form("password") 

        strSQL = "UPDATE tbl_users SET OnlineStatus = 1 WHERE Username = "&Session("Username")&""
        

	%>

<%	
	If RecSet("Access") = "2" Then
	Session("access") = "Admin" 
	Session("control") = "yes"

	Response.Redirect "admin.asp"
	
%>
		

	

<% End If %>

<% 	If RecSet("Access") = "1" Then
	Session("access") = "Member"
	Session("control") = "yes"

 %>

	<% Response.Redirect "member.asp" %>

<% Else %>

<%	End If 
	End If
	RecSet.Close
	Conn.Close %>

</html>
```

*OnlineStatus är satt till tal i databasen*

vad är det jag missar?? Jag kanske är helt ute och cyklar men mina ögon tycker det ser rätt ut (dom har iofs svikit mig förr)

Tacksam för all hjälp jag kan få

/S

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

## #2 — Peter S, 2005-11-01T19:40Z

```
WHERE Username = '"&Session("Username")&"'"
```

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

## #3 — wborg, 2005-11-01T19:44Z

Tack Peter

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

## #4 — Peter S, 2005-11-01T19:45Z

Det var så lite så.  :)

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

## #5 — @nders, 2005-11-01T19:51Z

Du **får** inte använda IDGs inloggningsscript. Du får inte! 
Jag börjar gråta varje gång jag ser det scriptet, och om jag ska vara helt ärlig trodde jag att det hade försvunnit i cyberspace. Så verkar dock inte fallet vara.

Ett exempel på lite vettigare inloggningskod: <http://www.webforum.nu/showthread.php?p=60574#post60574> (glöm inte att skydda dig mot sql injection bara, mitt exempel i denna tråd är bara ett exempel.)

Jag passar på att flytta iväg tråden till ASP-forumet också...

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

## #6 — ptr_lks, 2005-11-01T20:45Z

felpostad

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

## #7 — devotion, 2005-11-01T20:58Z

Det dyker upp med jämna mellanrum   :( 

Henrik

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/136803-lista-inloggade-medlemmar