---
title: "Fattar inte vad felet är!!!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13354-fattar-inte-vad-felet-är"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2001-12-25T15:10:00.000Z"
updated: "2001-12-25T15:57:00.000Z"
replies: 9
views: 268
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/13354-fattar-inte-vad-felet-är"
---

# Fattar inte vad felet är!!!

## #1 — ampy, 2001-12-25T15:10Z

Jag förstår inte vad felet är på denna kod:

```
	<%

' ÖPPNAR DATABASEN

SQL = "SELECT * FROM LinkCounter ORDER BY ID DESC"

Set RecSet = Server.Createobject("ADODB.Recordset")
RecSet.open SQL, "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veckanslank/linkcounter.mdb")

%>
<font face="Verdana" size="1">

<a href="veckanslank/linkcounter.asp?action=in&id=<%=RecSet("id")%>" target="_blank"><%=RecSet("Namn")%></a>
<br>

<%=RecSet("Beskrivning")%>

<br><br>Vi väljer själva ut Veckans länk och vi väljer ut de sajter som vi tycker har snygg design och bra innehåll. <br><br>
		
Senaste "Veckans länk" var det <b><%

RecSet.Close
Set RecSet = nothing

Addera = "Select TOP 2 * From LinkCounter ORDER BY id desc"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<br>
<%
RecSet.MoveNext 
do until RecSet.EOF %>
<br> <% response.write RecSet("Klick")
RecSet.MoveNext
Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%></b> som besökte.
```

Felmeddelande:

```
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.
/Ampy/main.asp, line 658
```

Någon som kan se vad felet är?

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

## #2 — Pace, 2001-12-25T15:17Z

Du stänger RecSet och precis efter kör du objektet igen. Låt det vara öppet! Ta bort:

```
...Senaste "Veckans länk" var det <b><%

[b]RecSet.Close
Set RecSet = nothing[/b]

Addera = "Select TOP 2 * From LinkCounter ORDER BY id desc"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
...
```

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

## #3 — Erik Juhlin, 2001-12-25T15:22Z

Ey Pace, det är bara Set RecSet = nothing han ska ta bort...

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

## #4 — ampy, 2001-12-25T15:35Z

Det blir dettta felmeddelande nu:

```
Feltyp:
ADODB.Recordset (0x800A0E7D)
Åtgärden är inte tillåten på ett objekt som refererar till en stängd eller en ogiltig anslutning.
/Ampy/main.asp, line 658
```

Jag tog bort Set RecSet = nothing bara.

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

## #5 — Erik Juhlin, 2001-12-25T15:39Z

Vad finns i variablen Connect?

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

## #6 — ampy, 2001-12-25T15:41Z

Hur ser man  det?

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

## #7 — Erik Juhlin, 2001-12-25T15:43Z

Ett tips är att skriva:

```
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("veckanslank/linkcounter.mdb")
```

Microsoft Jet drivrutinen ska vara mycket snabbare än gamla Microsoft Access Driver.

När du sen öppnar databasen kan du skriva:

```
RecSet.open SQL, objConn
```

Sen ett annat tips är ju att lägga din databas så den inte ligger åtkomlig för allmänheten. Så som den ligger nu så kan ju vem som helst ladda ner den.

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

## #8 — Erik Juhlin, 2001-12-25T15:43Z

Kolla vad du tilldelar Connect längre upp...

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

## #9 — ampy, 2001-12-25T15:48Z

Jag har fixat det nu :)

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

## #10 — Erik Juhlin, 2001-12-25T15:57Z

Bra!

Ser lite läskigt ut att du har över 600 rader kod. Borde kanske fundera på Com-objekt..? ;) :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13354-fattar-inte-vad-felet-är