---
title: "Objekt krävs.. (?)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11706-objekt-krävs"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Gein"
published: "2001-09-20T14:19:00.000Z"
updated: "2001-09-20T15:22:00.000Z"
replies: 3
views: 230
page: 1
pages: 1
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/11706-objekt-krävs"
---

# Objekt krävs.. (?)

## #1 — Gein, 2001-09-20T14:19Z

```
<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("grabsen.mdb")&";"
Uppdatera = "UPDATE users SET TIMESTAMP = "&time&" WHERE SESSIONID ="&Session.SessionID&""
Response.Write(Uppdatera)
'Connect.Execute(Uppdatera)
Connect.Close
Set Connect = Nothing

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("grabsen.mdb")&";"
Kolla = "SELECT * FROM users"
RecSet.Open Kolla, Connect, adOpenStatic, adLockOptimistic '*

Do Until RecSet.EOF

	If DateDiff("n", time, RecSet("TIMESTAMP")) < - 1 then

		Set RecSetUpdate = Server.CreateObject("ADODB.Recordset")
		Uppdatera = "UPDATE users SET SESSIONID = '"&Session.SessionID&"', ONLINE = 0 WHERE SESSIONID = "&RecSet("SESSIONID")&""
		RecSetUpdate.Open Uppdatera, Connect, adOpenStatic, adLockOptimistic
		RecSetUpdate.Close
	end if

RecSet.MoveNext
Loop
%>
```

så här ser min .inc fil ut, som jag tänkte ha, men jag får felmeddelande på rad 14, Objekt krävs.. jag har markerat raden med en \*:a.
Kan jag inkludera en fil innuti en include fil, som jag har gjort?, det borde väl gå.

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

## #2 — @nders, 2001-09-20T14:35Z

Du har inte skapat RecSet.

```
Set RecSet = Server.CreateObject("ADODB.RecordSet")
```

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

## #3 — emission, 2001-09-20T15:10Z

...och dessutom är det bara resursslöseri att skapa Connection-objektet två gånger, söka ut informationen som ska uppdateras och att skapa ett recordset när man kör en UPDATE.

Denna kod gör exakt samma sak som din, fast snabbar.

```
<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("grabsen.mdb")&";"
Uppdatera = "UPDATE users SET TIMESTAMP = " & time & " WHERE SESSIONID =" & Session.SessionID
Response.Write Uppdatera
'Connect.Execute Uppdatera,,128

Kolla = "UPDATE users SET ONLINE = 0 WHERE DATEDIFF('n',time(),[TIMESTAMP])<-1"
Connect.Execute Kolla,,128
%>
```

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

## #4 — puzze, 2001-09-20T15:22Z

tackar!, snacka om att komprimera koden.. jag har mycket att lära!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11706-objekt-krävs