Jäfmröa Session med recordset.

Men jag tänkte att det kanske är nåt speciellt när man ska jämföra värden med siffror?

Jepp, man måste alltid tänka på att subtypskonvertera.

If IsNumeric(Session("UserID")) Then
     If CLng(Session("userID")) = CLng(rs("To")) Then
....
....
....
End if

Oooo okej, tänkte väl att det var nåt lurt med det hela ;)

Men som vanligt så får man hjälp av någon kunnig :)
Tack så mycket @nders.
Men du, det vore toppen om du förklarade för mig vad som egentligen händer med denna kod.
Vad är IsNumeric och CLng t.ex?

Det kan vara spökerier i subdatatyperna även om jag nu inte tror att VBScript är så känsligt för det...

If CInt(Session("userID")) = CInt(rs("To")) Then
  [blue]'Hubba hubba[/blue]
Else
  Response.Write "Session.userID = " & Session("userID") & "<br>rs(""To"") = " & rs("To")
End If

Jag skulle dock rekommendera dig att döpa om fältet To till något vettigt, eftersom jag har för mig att TO är ett reserverat ord.

If Isnumeric(någonting) then ---> Om någonting kan anses vara ett tal, gör följande
Clng (någonting) ---> Konverterar någonting till subtypen long, dvs långt heltal (32 bitar).

Okej, tack anders.
Engine^ tack för din hjälp också.
Jag tror inte To är ett reserverat ord, för det blir inte fel.
Jag hade innan ett fält som hette From. Men då blev det fel på sidan eftersom det antagligen är ett reserverat ord.

Men det kanske inte behöver bli fel för att det är ett reserverat ord?

Ja, det är ju inte omöjligt att jag har för mig fel... ;) Jag rekommenderar dock fortfarande att du byter namn på fältet. :)

Summa summarum bör det se ut som följer nu...

If IsNumeric(Session("userID")) And IsNumeric(rs("To")) Then
  If CLng(Session("userID")) = CLng(rs("To")) Then
    ...

OKej tack så mycket Engine^ för tipset.
:)

TO är reserverat av ODBC, så beroende av anslutningstyp kan saker och ting gå åt pipan. Byt namn på fältet.

Använd mer specifika fältnamn så slipper man sånt krångel.

Ooops ett nytt problem!
Jag tar det här så slipper vi en till tråd.

Om Strängen är tom så har jag löst det med denna kod:

If Request.Querystring("MID") = "" Then
Response.Write "Meddelanden finns inte"
Else
----
---
----
End If

Och med dne koden är det inga problem.
Men om man istället skriver t.ex. MID=3434 i länken så får man detta meddelande:

error '80020009'

/slauson/db/1/message.asp, line 14

Alltså, hur skall jag gära för att kolla om strängen har något värde, samt om siffran i strängen överhuvudtaget finns i databasen?

Okej, då byter jag väl då :)

samt om siffran i strängen överhuvudtaget finns i databasen?

If objRS.EOF Then
    ' tomt, för böveln!!!
else
    ' gör prylar
end if

Och OBJ skall i detta fall ersättas av?

objRS ska givetvis bytas mot namnet på ditt recordsetobjekt.

Hehe okej :)

men vad i...
Alltså ledsen, men jag är för trög...
Hur ska koden se ut?

Visa din kod.

Ja du det är den jag fick av dig helt enkelt....
Querystringen heter MID, och det gör även fältet i databasen-

Du måste ju ha mer kod än den jag skrev?
Visa den koden du försökte med, som inte fungerar.

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

If Request.Querystring("MID") = "" Then
Response.Write "Meddelanden finns inte"
Else

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

If IsNumeric(Session("userID")) Then
     If CLng(Session("userID")) = CLng(rs("Till")) Then
 
Do until rs.EOF
%>
<br>
Rubrik: <%=rs("Rubrik")%>
<br>
Från: <%=rs("FranUser")%>
<br>
<br>
<%=rs("Meddelande")%>
<br>
<%
rs.MoveNext
Loop

Else
Response.Redirect "meddelanden.asp"
End If
End If
End If
End If
%>

För övrigt så är koden himla stökig med tanke på alla If satser. Men det kanske inte går på något annat sätt?