---
title: "Jäfmröa Session med recordset."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/98093-jäfmröa-session-med-recordset/page3"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "magnusfernstrom"
published: "2004-02-24T11:53:07.000Z"
updated: "2004-02-24T18:47:32.000Z"
replies: 43
views: 690
page: 3
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/98093-jäfmröa-session-med-recordset"
---

# Jäfmröa Session med recordset.

_Sida 3 av 3._

## #41 — magnusfernstrom, 2004-02-24T18:27Z

FANTASTISKT!
Det fungerar :) 
Du förstår inte hur glad jag är nu :)

Eller nu ska vi inte ta i. Allt fungerar ju antagligen inte.
Men jag återkommer om fler fel uppstår (med andra ord återkommer jag :)  ) 

MVH Magnus Fernström

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

## #42 — magnusfernstrom, 2004-02-24T18:45Z

Hmm det här är skumt...

Inkorgen kan endast visas när det finns något meddelande!
När den är tom får jag det här meddelandet: 
error '80020009'

/slauson/db/1/meddelanden.asp, line 10

Säger ju inte en så mycket...
Vad är fel nu då?

```
<%
If Session("inloggad") = "ja" Then

Set db = Server.CreateObject("ADODB.Connection")
db.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("users.mdb")
SQL = "SELECT * FROM meddelanden WHERE Till = " & Session("userID") & ""
Set rs = db.Execute(SQL)

If IsNumeric(Session("userID")) Then
     If CLng(Session("userID")) = CLng(rs("Till")) Then

Do until rs.EOF
%>
<table border="0" cellpadding="1" cellspacing="1">
<td width="300" height="" valign="center" align="left" bgcolor="EEEEEE">
<a href="message.asp?MID=<%=rs("MID")%>"><%=rs("Rubrik")%></a>
</td>
<td width="200" height="" valign="center" align="left" bgcolor="EEEEEE">
<a href="users.asp?userID=<%=rs("Fran")%>"><%=rs("FranUser")%></a>
</td>
<td width="100" height="" valign="center" align="left" bgcolor="EEEEEE">
<a href="delete_message.asp?MID=<%=rs("MID")%>">ta bort</a>
</td>
<%
rs.MoveNext
Loop
Set rs = nothing

Else
Response.Redirect "login.asp"
End If
End If
End If
%>
```

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

## #43 — @nders, 2004-02-24T18:46Z

Du kan ta bort de här if-satserna:

```
If IsNumeric(Session("userID")) Then
     If CLng(Session("userID")) = CLng(rs("Till")) Then
```

 (och de end if som hör ihop med dem, eftersom du har den jämförelsen i SQL-frågan.

Mvh

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

## #44 — magnusfernstrom, 2004-02-24T18:47Z

aha okej...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/98093-jäfmröa-session-med-recordset/page3  
Föregående sida: https://www.webforum.nu/amne/asp/98093-jäfmröa-session-med-recordset/page2.md