---
title: "Simple Chat"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13096-simple-chat/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "jboy_87"
published: "2001-11-28T16:38:00.000Z"
updated: "2001-12-09T14:17:00.000Z"
replies: 48
views: 654
page: 2
pages: 3
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/13096-simple-chat"
---

# Simple Chat

_Sida 2 av 3._

## #21 — jboy_87, 2001-11-29T13:49Z

\<% If NOT session("login") = "ok" THEN %\>

det här eller

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

## #22 — Erik Juhlin, 2001-11-29T13:49Z

Var lagras namnen på de inloggade?
Och om de inte lagras så är det väl lämpligt att lagra de när användaren loggar in...

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

## #23 — @nders, 2001-11-29T13:50Z

session("den_måste_väl_heta_någe") = användaren_som_just_loggade_in

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

## #24 — Jon, 2001-11-29T13:50Z

@nders är ute efter variabelnamnet, dvs den heter nåt i stil med session("user") eller nåt.

Oj. Det blev lite sent ser jag :)

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

## #25 — jboy_87, 2001-11-29T13:50Z

går och ta fram användarnamenet med det här

\<%=session("username")%\>

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

## #26 — Erik Juhlin, 2001-11-29T13:53Z

En person kan inte komma åt andras sessions. Du får lagra namnen på de inloggade i en databas eller i Application.

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

## #27 — jboy_87, 2001-11-29T13:54Z

fattar inte

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

## #28 — @nders, 2001-11-29T13:58Z

jboy, vet inte om du gör det lite för svårt för dig, eller om det är jag / vi som missuppfattar vad du försöker göra.

Kan det inte vara så pass enkelt som att byta ut

```
strUser = "<b>" & Request.ServerVariables("REMOTE_ADDR") & "</b>: "
```

mot

```
strUser = "<b>" & Session("UserName") & "</b>: "
```

 :q

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

## #29 — jboy_87, 2001-11-29T14:01Z

har provat men det funkar inte

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

## #30 — @nders, 2001-11-29T14:04Z

Hur får session("UserName") sitt värde då?

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

## #31 — jboy_87, 2001-11-29T14:04Z

provade så här också funkade inte

```
<!-- #include file="../adovbs.inc" -->

<%

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../Database/members.mdb")&";pwd=losen"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members Where id = " &Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

%>

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="REFRESH" content="3; URL=main.asp">
<title>Ny sida 1</title>
<base target="_self">
</head>

<body bgcolor="#FFF8E8">
<% strUser = "<b>" & recset("username") & "</b>: "
strMessage = Server.HTMLEncode(TRIM(Request.Form("message")))
' // Her rydes Chat loggen, hvis den overstiger 10000 karakter
If Len(Application("ChatLog")) > 10000 Then
Application.Lock
Application("ChatLog") = ""
Application.UnLock
End If
If Request.Form("Action") = "Skicka" Then
If Len(strMessage) > 0 Then
strChatContent = strUser & strMessage & "<br>" & Application("ChatLog")
Application.Lock
Application("ChatLog") = strChatContent
Application.UnLock
End If
End If
Response.Write Application("ChatLog")%>
</body>

</html>
```

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

## #32 — jboy_87, 2001-11-29T14:05Z

och så här länken:

\[kod\]
chat/default.asp?id=\<%=Request.QueryString("id")%\>\<%=Session("id")%\>
\[kod\]

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

## #33 — jboy_87, 2001-11-29T14:06Z

Querystringen skulle inte va med skrev fel länk men får endå

får följande felmess:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\] Syntaxfel (operator saknas) i frågeuttrycket 'id ='.
/chat/main.asp, line 11

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

## #34 — @nders, 2001-11-29T14:08Z

Hur ser din inloggning ut?

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

## #35 — jboy_87, 2001-11-29T14:12Z

```
<!-- #include file="adovbs.inc" -->

<%
Set connection = server.createObject("adodb.connection")
connection.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb") & ";"

sql = "select count(*) as members from members"
%>

<% IF Request.Querystring("loggaut") ="ja" THEN
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"
On Error Resume Next
Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members where id="&Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

RecSet("status") = "offline"

RecSet.Update
RecSet.Close
Connect.close
Set RecSet = nothing
Set Connect = nothing
Session.Abandon
Response.Redirect "default.asp" 
END IF 
%>

<% 
IF Request.Querystring("loggain") ="ja" THEN

If Request.Form("username") = "" Then
Session("meddelande") = "Du glömde fylla i användarnamet eller lösenordet."
end if

If Request.Form("losen") = "" Then
Session("meddelande") = "Du glömde fylla i användarnamet eller lösenordet."
end if

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";pwd=losen"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

'----- Rensar bort sånna som inte loggat ut korrekt.. -------

Do Until RecSet.EOF

	If RecSet("status") = "online" AND DateDiff("n", RecSet("datum"), Now) > 40 Then
		RecSet("status") = "offline"
		RecSet.Update
	End If
	
RecSet.MoveNext
Loop
	
RecSet.Close
	
'---------------- SLUT PÅ UTRENSNINGEN ------------------
	
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
Do Until RecSet.EOF

if lcase(recset("username")) = lcase(request.form("username")) and lcase(recset("losen")) = lcase(request.form("losen")) then

RecSet("datum") = Now
RecSet("status") = "online"

RecSet.Update

Session("namn") = RecSet("fnamn") & " " & RecSet("enamn")
Session("fnamn") = RecSet("fnamn")
Session("enamn") = RecSet("enamn")
Session("Username") = RecSet("Username")
Session("login") = "ok"
Session("id") = RecSet("id")
Session("status") = "online"
Session("epost") = RecSet("epost")

Session.TimeOut = 40

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing

Response.Redirect "index.asp"

End If

RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Session("meddelande") = "Tyvärr! Fel användarnamn eller lösenord. Försök igen!"
Response.Redirect "default.asp"

END IF
%>
```

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

## #36 — jboy_87, 2001-11-29T15:55Z

nån som kan hjälpa

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

## #37 — @nders, 2001-11-29T16:02Z

Väldans mycket kod, jag får se om jag tar mig genom den när jag kommer hem.

Har du kontrollerat så sessionsvariablerna får ett värde överhuvudtaget?

Kan du vid något tillfälle få ut användarnamnet genom **\<%=Session("username")%\>**?

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

## #38 — jboy_87, 2001-11-29T16:04Z

japp det funkar och få ut session("username")

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

## #39 — jboy_87, 2001-11-29T16:49Z

jag använder mig utav en popup det är kanske darför??????????

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

## #40 — @nders, 2001-11-29T17:02Z

Det kan det mycket väl vara!

Det händer ofta att popup-fönster skapar en ny session på servern.

Prova att köra det i samma fönster och rapportera sedan.

Mvh,

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13096-simple-chat/page2  
Föregående sida: https://www.webforum.nu/amne/asp/13096-simple-chat.md  
Nästa sida: https://www.webforum.nu/amne/asp/13096-simple-chat/page3.md