cookies problem

Hejsan. Sitter och sliter med en inloggning jag haft länge.
Skulle vilja lägga till en kaka men får det inte att läsa igenom det rätt.

Jag får felkod:

Feltyp:
ADODB.Recordset (0x800A0CC1)
Objektet kunde inte hittas i mängden med det begärda namnet eller numret.
/forum_mitt/kontroll.asp, line 19

Den jag villlägga till är denna:

Response.Cookies("anvnamn") = RecSet("anvnamn")

:h Tacksam för lite hjälp på vägen med detta.

kontroll.asp ser ut så här just nu och det är

<%
Function secure(txt) 
  txt = Replace(txt, "'", "''") 
  secure = txt 
End Function

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\forum_mitt\lagret\nisse.mdb"
Set RecSet = Server.CreateObject("ADODB.Recordset")

anvNamn		= secure(Request.Form("anvnamn"))
losenord	= secure(Request.Form("losenord"))

SQL = "SELECT niva FROM admin WHERE anvnamn='" & anvnamn & "' AND losenord='" & losenord &"'"
RecSet.Open SQL, Connect, 3, 3

If not RecSet.EOF Then

  Response.Cookies("anvnamn") = RecSet("anvnamn")
  Response.Cookies("niva") = RecSet("niva")

  If RecSet("niva")="1" Then
    strPage="forum/index.asp"
  elseIf RecSet("niva")="2" Then
    strPage="forum/index.asp"
      
  End If
  
  ' Här loggas IP när rätt lösenord och password angetts
  SQL = "INSERT INTO iplogg([username],[ip],[loginstatus],[tid]) values ('"& anvnamn &"','"& Request.Servervariables("REMOTE_ADDR") &"','OK',#"& now() &"#)"
  Connect.execute(SQL)

  Response.Redirect strPage

else

  ' Här loggas IP när fel lösenrod och password angetts
  query="INSERT INTO iplogg([username],[ip],[loginstatus],[tid]) values ('"& anvnamn &"','"& Request.Servervariables("REMOTE_ADDR") &"','Fail',#"& now() &"#)"
  Connect.Execute(query)

  End If
  
  RecSet.Close : set recset = nothing
  Connect.Close : set connect = nothing
      
  Response.Redirect "forum/index.asp"
%>

SQL = "SELECT niva, anvnamn FROM admin WHERE anvnamn='" & anvnamn & "' AND losenord='" & losenord &"'"

Tack Peter :)

Jag försökte gå vidare på detta men stötte på patrull... Ska inte detta gå ??? När den kom fram till "Response.Cookies("msn") = RecSet("msn")" spikade den ifrån men med dom 4 första bara gick det igenom.

SQL = "SELECT niva, anvnamn, losenord, email, msn, land, hemsida, signatur, avatar FROM admin WHERE anvnamn='" & anvnamn & "' AND losenord='" & losenord &"'"

RecSet.Open SQL, Connect, 3, 3

If not RecSet.EOF Then

  Response.Cookies("anvnamn") = RecSet("anvnamn")
  Response.Cookies("niva") = RecSet("niva")
  Response.Cookies("losenord") = RecSet("losenord")
  Response.Cookies("email") = RecSet("email")
  Response.Cookies("msn") = RecSet("msn")
  Response.Cookies("land") = RecSet("land")
  Response.Cookies("hemsida") = RecSet("hemsida")
  Response.Cookies("signatur") = RecSet("signatur")
  Response.Cookies("avatar") = RecSet("avatar")

Vad är det som händer (eller inte händer)? :)

Det går fint till den ska skapa den 5:e kakan (msn).. Men kör jag bara de 4 första flyter det igenom somom den bara klarar skapa 4 kakor

Felmeddelande?

Feltyp:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: 'Response.Cookies'
/forum_mitt/kontroll.asp, line 24

Innehåller RecSet("msn") någonting?

Inte nu... Måste det göra det? Om det är så kan man få det att gå utan innehåll?

Om något värde kan vara null så använd Response.Cookies("MinKaka") = CStr(RecSet("fältnamn") & "") :)

Feltyp:
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer

Mycket med det här :)

Vad har respektive fält i databasen för datatyp?

Vi struntar i den biten nu för jag ger varje ett värde om det inte skrivs in nått och då funkar det ändå.

Jag har en annan sak i denna kak röra :)

Jag har gjort en profilsida som jag inte lyckas koppla till rätt id. Man har loggat in och sen när jag trycker på inställningar ska jag komma till profilsida. Vitsen är ju att man bara ska se den inloggades uppgifter men eftersom jag alldrig kopplat på detta vis vet jag inte hur det ska se ut. Min nuvarande kod ser ut så här på profilsidan

<% 
Response.buffer=True
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../lagret/nisse.mdb") 

Set RecSet = Connect.Execute("select * from admin order by id ASC")

rs_user = 	RecSet("anvnamn") 
rs_anvnamn = 	Request.Cookies("anvnamn")

'If rs_anvnamn = RecSet(anvnamn) Then    
If Request.Cookies("anvnamn") = rs_user Then
%>

Jag vet att den inte är riktig på långa vägar och jag vet inte hur jag kopplar den till aktuell inloggad

Är admin.id id-numret på användarna?