---
title: "Fel:"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/5360-fel"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "cgi"
published: "2000-02-11T19:00:00.000Z"
updated: "2000-02-11T20:51:00.000Z"
replies: 3
views: 762
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/5360-fel"
---

# Fel:

## #1 — cgi, 2000-02-11T19:00Z

Har ett fel i mitt forum.
När jag väljer en katori typ asp i forumet
så går allting bra förutom att där rubrikerna ska stå så står det:
Microsoft VBScript runtime error '800a01a8' 
Object required: 'RS2' 

/cgi-bin/forumthreads.asp, line 56 

har kollat i asp koden men hittar inget fel.
Kan någon hjälpa mig.
Sidan finns på addressen: <http://reptiler.webhostme.com/cgi-bin/forumthreads.asp?forumid=1>

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

## #2 — cgi, 2000-02-11T19:02Z

Glömde.
Så här ser koden ut för forumet.

\<!--#include file="functions.inc"--\>

\<%

Session("dbasepath") = "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("forum.mdb")

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open Session("dbasepath")

SQLStmt = "SELECT \* FROM Forums"
Set RS = Connection.Execute(SQLStmt)

%\>
\<html\>

\<head\>
\<link REL="stylesheet" HREF="styles/forum.css" TYPE="text/css"\>
\<title\>Forum.\</title\>
\<meta name="Author" content="Michael Jenselius"\>
\<meta name="Company" content="Intermedia Publishing AB"\>
\<meta name="Publishied" content="1998"\>
\<meta name="Copyright" content="Intermedia Publishing AB"\>
\</head\>

\<body MARGINHEIGHT="0" MARGINWIDTH="0" bgcolor="#FFFFFF" text="#000000" topmargin="0" leftmargin="0" vlink="#0000FF"\>

\<table border="0" width="600"\>
  \<tr\>
    \<td width="188" valign="top" colspan="2"\>\<img src="images/forumlogga.gif" alt="forumlogga.gif (3219 bytes)" WIDTH="265" HEIGHT="108"\>\</td\>
  \</tr\>
  \<tr\>
    \<td width="219" valign="top"\>\<p align="right"\>\<img src="images/dottedvertical.gif" alt="dottedvertical.gif (956 bytes)" WIDTH="2" HEIGHT="361"\>\</td\>
    \<td valign="top" width="589"\>\<p align="left"\>\<br\>
    \<font face="Verdana" size="2"\>\<%=RS("Description")%\>\</font\>\</p\>
    \<p\>\<img src="images/dottedline.gif" WIDTH="360" HEIGHT="2"\>\</p\>
    \<table border="0" width="400"\>
      \<tr\>
        \<td width="204" align="center"\>\<img src="images/back.gif" alt="back.gif (57 bytes)" WIDTH="12" HEIGHT="9"\> \<font face="Verdana"\>\<b\>\<small\>\<a href="index.asp"\>Tillbaka till huvudmenyn\</a\>\</small\>\</b\>\</font\>\</td\>
        \<td width="188" align="center"\>\<img src="images/post.gif" alt="havemail.gif (513 bytes)" WIDTH="12" HEIGHT="9"\> \<a href="forumpost.asp?ForumId=\<%=RS("Id")%\>"\>\<strong\>\<small\>\<font face="Verdana"\>Posta
        inlägg\</font\>\</small\>\</strong\>\</a\>\</td\>
      \</tr\>
    \</table\>
    \<table border="0" width="400"\>
      \<tr\>
        \<td width="100%" bgcolor="#B3D9D9"\>\<small\>\<font face="Verdana"\>\<strong\>Forum:\</strong\> \<%=RS("Forum")%\>\</font\>\</small\>\</td\>
      \</tr\>
    \</table\>
    \<table border="0" width="400"\>
      \<tr\>
        \<td width="234" bgcolor="#B3D9D9"\>\<strong\>\<small\>\<font face="Verdana"\>Rubriker\</font\>\</small\>\</strong\>\</td\>
        \<td width="37" bgcolor="#B3D9D9"\>\<strong\>\<small\>\<font face="Verdana"\>Svar\</font\>\</small\>\</strong\>\</td\>
        \<td width="117" bgcolor="#B3D9D9"\>\<strong\>\<small\>\<font face="Verdana"\>Senaste inlägg\</font\>\</small\>\</strong\>\</td\>
      \</tr\>
\<% Do until RS2.EOF 

SQLStmt = "SELECT Count(\*) AS ItemCount FROM Entries Where ReplyId =" & RS2("Id")
SQLStmt = SQLStmt & " AND OrgThread \<\> TRUE"

Set RS3 = Connection.Execute(SQLStmt)

%\>
      \<tr\>
        \<td width="234" bgcolor="#F7F7F7"\>\<small\>\<font face="Verdana"\>\<a href="viewmsg.asp?id=\<%=RS2("Id")%\>&ForumId=\<%=RS("Id")%\>"\>\<%= HTMLTecken(RS2("Subject"))%\>\</a\>\<br\>
        \<small\>\<% ' = RS2("Subject")%\> \</small\>\</font\>\</small\>\</td\>
        \<td width="37" bgcolor="#D4D4D4" valign="top" align="left"\>\<small\>\<font face="Verdana"\>\<%=RS3("ItemCount") %\>\</font\>\</small\>\</td\>
        \<td width="117" bgcolor="#F7F7F7" valign="top" align="left"\>\<small\>\<font face="Verdana"\>\<%=RS2("FormDate")%\>\</font\>\</small\>\</td\>
      \</tr\>
\<%
RS2.MoveNext
Loop
RS.Close
RS2.Close
RS3.Close
%\>
    \</table\>
    \<p align="left"\>\<img src="images/dottedline.gif" alt="dottedline.gif (909 bytes)" WIDTH="360" HEIGHT="2"\>\</p\>
    \<p\>&nbsp;\</td\>
  \</tr\>
\</table\>
\</body\>
\</html\>
\<% Connection.Close %\>

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

## #3 — Vide, 2000-02-11T19:15Z

Hej!

... är det jag som ser dåligt eller har du inte skapat RS2 innan du försöker exekvera den... vet inte vilken rad felet ligger på p.g.a radbrytningarna ovan men troligen ligger felet på den rade där du startar loopen: \<% Do until RS2.EOF...

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

## #4 — cgi, 2000-02-11T20:51Z

Hur gör jag för att fixa till felet.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/5360-fel
