---
title: "Vad är felet? (inloggningskod)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/95989-vad-är-felet-inloggningskod/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "magnusfeldth"
published: "2004-01-28T13:23:34.000Z"
updated: "2004-01-29T17:17:58.000Z"
replies: 27
views: 732
page: 2
pages: 2
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/95989-vad-är-felet-inloggningskod"
---

# Vad är felet? (inloggningskod)

_Sida 2 av 2._

## #21 — magnusfeldth, 2004-01-29T16:56Z

med objRS och Response.Cookies("tubsockor")("namn") = RS("Namn") får jag samma felmess 

```
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: 'RS'
/vitatubsockorweb/kollavtxinlogg.asp, line 9
```

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

## #22 — @nders, 2004-01-29T16:57Z

Inte **RS**, inte **RecSet**, endast **objRS**, i alla fall om koden ser ut som min gör ovan.

Annars måste du visa mer kod.

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

## #23 — magnusfeldth, 2004-01-29T16:58Z

```
<% 
if Session("VTXOnline") <> "Ja" and Request.Cookies("tubsockor")("inloggad") = "Ja" then
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("sockdb/vtforum.mdb")
strSQL = "SELECT 1 FROM sockuser WHERE Usernamn = '" & f(Request.Cookies("tubsockor")("usernamn")) & "' AND Losenord = '" & f(Request.Cookies("tubsockor")("losenord")) & "'"
	set objRS = Connect.Execute (strSQL)
	if not objRS.EOF Then ' Inloggningen är korrekt
		Session("VTXOnline") = "Ja"
		Response.Cookies("tubsockor")("namn") = RS("Namn")
     	Response.Cookies("tubsockor")("usernamn") = RS("usernamn")
		Response.Cookies("tubsockor")("epost") = RS("Epost")
    	Response.Cookies("tubsockor")("losenord") = RS("losenord")		
		Response.Cookies("tubsockor")("inloggad") = "Ja"
		Response.Cookies("tubsockor").Expires = DateAdd("d", 5, Date)
	End if
	objRS.Close : set objRS = Nothing
	Connect.Close : set Connect= Nothing
End if

function f(strText)
	f = Replace(strText, "'", "''")
end function
%>
```

Fulla koden, precis som den du skrivit ovan.

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

## #24 — @nders, 2004-01-29T17:02Z

Bort med RS, in med objRS.

Recordsetobjektet heter objRS, ingenting annat.

Se min kodredigering ovan...

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

## #25 — magnusfeldth, 2004-01-29T17:08Z

Justerat enligt ovan nu, men då kommer detta: 

```
ADODB.Recordset (0x800A0CC1)
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/vitatubsockorweb/kollavtxinlogg.asp, line 9
```

Det vill tydligen inte att det skall funka!

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

## #26 — @nders, 2004-01-29T17:11Z

Jepp, och det är inte så konstigt när man tittar på vad jag angav i SELECT-frågan. Jag skrev att endast siffran 1 ska hämtas (jag tänkte väl inte på att du ville använda några värden från recordsetet). Byt 1 till \* (eller ännu hellre, endast de fält du behöver använda) i SQL-frågan.

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

## #27 — magnusfeldth, 2004-01-29T17:16Z

YES! Finally, nu funkar det! Thanks @nders! :e

(Anslutningsfråga, när man skall ange vilka fält som man ska hämta ur, behöver man även ange ID-kolumnen? Dum fråga kanske)

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

## #28 — @nders, 2004-01-29T17:17Z

Om man vill hämta ID-värdet så måste du ange även det fältet ja. ID-kolumnen är ett fält som precis vilket annat som helst.

Mvh

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/95989-vad-är-felet-inloggningskod/page2  
Föregående sida: https://www.webforum.nu/amne/asp/95989-vad-är-felet-inloggningskod.md