---
title: "Fel Con..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/86150-fel-con/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Rassoul"
published: "2003-09-16T17:58:33.000Z"
updated: "2003-09-18T22:57:09.000Z"
replies: 28
views: 633
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/86150-fel-con"
---

# Fel Con...

_Sida 2 av 2._

## #21 — Rassoul, 2003-09-17T17:37Z

Nu får jag felet:

Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''
/cd/Default.asp, line 7

Default.asp:
\<!-- #Include File="adovbs.inc" --\>

\<%
Set connect = Server.CreateObject("ADODB.Connection")
connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
SQL = "SELECT \* FROM \[cd\]"
set rs = connect.execute(SQL)
RecSet.open SQL , connect, 1, 3
Do Until RecSet.EOF
%\>

\<html\>
\<head\>
\</head\>
\<body text="#000000"\>
\<b\>\<img scr="\<%=RecSet("Bild")%\>" border="0" alt="\<%=RecSet("Datum")%\>"\>\_CD nr:\<%=RecSet("ID")%\>\</b\>\<br\>
Namn:\<%=RecSet("Namn")%\>\<br\>
Info:\<%=Server.HTMLencode(RecSet("ovrig"))%\>\<br\>
Antal Låtar:\<%=RecSet("Latar")%\>
Betyg:\<%=RecSet("Betyg")%\>

\<% 
RecSet.MoveNext
Loop
RecSet.Close
%\>
\<body text="#FFFFFF" bgcolor="#000000"\>

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

## #22 — Jesper T, 2003-09-17T17:43Z

Ta bort detta: RecSet.open SQL , connect, 1, 3

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

## #23 — Rassoul, 2003-09-17T17:56Z

Ja men nu står det:
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: 'RecSet'
/cd/Default.asp, line 7

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

## #24 — Rassoul, 2003-09-17T18:20Z

Fixade det men nu står det:
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0404)
'While', 'Until' eller satsslut förväntas.
/cd/defaulta.asp, line 22, column 3
do Loop
\--^

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

## #25 — Jesper T, 2003-09-17T19:06Z

Nu verkar det vara ett virrvarr av fel, var vänlig och posta din befintliga kod så man ser helheten.
Byter du "recset" till "rs" så måste det självfallet vara konsekvent.
Och du, ta och läs lite här: <http://www.webforum.nu/showthread.php?s=&threadid=55116&forumid=22>, speciellt den första bulleten.

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

## #26 — OveRRidE, 2003-09-18T00:19Z

Kanske lite slarvigt av mig att inte skriva RecSet istället för Rs. :r 

```
<!-- #Include File="adovbs.inc" --> 

<% 
Set connect = Server.CreateObject("ADODB.Connection") 
connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb") 
SQL = "SELECT * FROM [cd]" 
set RecSet = connect.execute(SQL) 
Do Until RecSet.EOF 
%> 

<html> 
<head> 
</head> 
<body text="#000000"> 
<b><img scr="<%=RecSet("Bild")%>" border="0" alt="<%=RecSet("Datum")%>">_CD nr:<%=RecSet("ID")%></b><br> 
Namn:<%=RecSet("Namn")%><br> 
Info:<%=Server.HTMLencode(RecSet("ovrig"))%><br> 
Antal Låtar:<%=RecSet("Latar")%> 
Betyg:<%=RecSet("Betyg")%> 

<% 
RecSet.MoveNext 
Loop 
RecSet.Close 
[b]Set RecSet = nothing[/b]
%> 
<body text="#FFFFFF" bgcolor="#000000">
```

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

## #27 — Rassoul, 2003-09-18T12:05Z

TACK SÅ MYCKET!!!!

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

## #28 — Rassoul, 2003-09-18T12:40Z

J\*\*\*lar nu funkar inte Admin delen...
Felmess:
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A03FB)
'Loop' förväntas.
/cd/admin_lagtillny.asp, line 24

Lägger jag till Loop får jag ett annat felmess.

Här är admin_lagtillny.asp:

\<!-- #Include File="adovbs.inc" --\>
\<%
Set connect = Server.CreateObject("ADODB.Connection") 
connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb") 
SQL = "SELECT \* FROM \[cd\]" 
set RecSet = connect.execute(SQL) 
Do Until RecSet.EOF 

	RecSet.AddNew
	RecSet("Datum") = Now()
	RecSet("Ovrig") = Request.Form("text")
	RecSet("Namn") = Request.Form("namn")
        If Request.Form("Bild") = "" Then Recset("Bild") = Ingenbild.jpg else
	RecSet("Bild") = Request.Form("Bild")
	RecSet("Betyg") = Request.Form("Betyg")
	RecSet("latar") = Request.Form("Latar")

	
RecSet.Update
RecSet.Close
Set RecSet = Nothing
connect.Close
Set connect = Nothing
Response.Redirect "default.asp"
%\>

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

## #29 — OveRRidE, 2003-09-18T22:57Z

Å så kan vi väl åtminstone *försöka* att använda kod-taggarna?

Du skall väl inte loopa nåt i den där koden. Snarare kolla ifall recset är populerad eller inte. 

```
<!-- #Include File="adovbs.inc" --> 
<% 
Set connect = Server.CreateObject("ADODB.Connection") 
connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb") 
SQL = "SELECT * FROM [cd]" 
set RecSet = connect.execute(SQL) 
if not recset.eof  

RecSet.AddNew 
RecSet("Datum") = Now() 
RecSet("Ovrig") = Request.Form("text") 
RecSet("Namn") = Request.Form("namn") 
If Request.Form("Bild") = "" Then Recset("Bild") = Ingenbild.jpg else 
RecSet("Bild") = Request.Form("Bild") 
RecSet("Betyg") = Request.Form("Betyg") 
RecSet("latar") = Request.Form("Latar") 

RecSet.Update 

end if

RecSet.Close 
Set RecSet = Nothing 
connect.Close 
Set connect = Nothing 
Response.Redirect "default.asp" 
%>
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/86150-fel-con/page2  
Föregående sida: https://www.webforum.nu/amne/asp/86150-fel-con.md