---
title: "Åtgärden stöds inte"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6541-åtgärden-stöds-inte"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Mav"
published: "2000-09-08T12:52:00.000Z"
updated: "2000-09-08T13:32:00.000Z"
replies: 1
views: 187
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/6541-åtgärden-stöds-inte"
---

# Åtgärden stöds inte

## #1 — Mav, 2000-09-08T12:52Z

Ska lista 5 produkter för att sen klicka på "nästa" för att gå vidare till nästa sida.
Scriptet listar 5 prod. men sen får jag felmeddelandet
ADODB.Recordset fel '800a0cb3'
Åtgärden som programmet begärt stöds inte av leverantören.
/resport/dbboende/test/svarboende.asp, rad 129

Rad 29

```
set RS=RS.NextRecordSet
```

Övrig kod (htmlkod bortklippt)

```
<%
Dim visainfo
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

Set fritid = Server.CreateObject("ADODB.Connection")
fritid.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\db\adressbok.mdb"

visainfo = Request.Form("inbox")

SQL = "SELECT * FROM adressbok ORDER BY Kundnamn ASC"

If Request.Form("TypeSearch") = "Kundnamn" Then
SQL = "SELECT * FROM adressbok WHERE Kundnamn = '"& visainfo &"'"
End If

If Request.Form("TypeSearch") = "Ort" Then
SQL = "SELECT * FROM adressbok WHERE Ort = '"& visainfo &"'"
End If

If Request.Form("TypeSearch") = "Kedjanamn" Then
SQL = "SELECT * FROM adressbok WHERE Kedjanamn = '"& visainfo &"'"
End If

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, fritid, adOpenKeyset, adLockReadOnly
TotalRows=RS.RecordCount
RS.PageSize = 5
PageSize=RS.PageSize
if Request("Action") = "" Then
FormAction = "svarboende.asp" 
end if
ScrollAction = Request("ScrollAction")
if ScrollAction <> "" Then
PageNo = mid(ScrollAction, 5)
if PageNo<1 Then
PageNo = 1
end if
else
PageNo = 1
end if
RS.AbsolutePage = PageNo
PageNumber=PageNo
TotalPages=RS.PageCount
%>
<%If rs.BOF and rs.EOF Then%>
Det finns inget som matchar din sökning!<%Else%>
<%If Not rs.BOF Then%>
<p><%Response.Write("")%></p>
<form METHOD="GET" ACTION="<%=FormAction%>">
  <input type="hidden" name="sql" value="<%=sql%>"><%Do while not (RS is nothing) %>
Sökresultat
Namn:
Ort:
<%RowCount = rs.PageSize
Do While Not RS.EOF and rowcount>0%>
<A HREF=infoboende.asp?ID=<%=rs("ID")%>><%=rs("Kundnamn")%>
<%=rs("Ort")%>
<%RowCount=RowCount-1
RS.MoveNext
Loop%>
<%
set RS=RS.NextRecordSet
Loop
Conn.Close
set RS=nothing
set Conn=nothing%>
<%if PageNo>1 Then %>
  <p><input TYPE="SUBMIT" NAME="ScrollAction" VALUE="<%="Page " & PageNo-1%>"> <%end if %>
<%if PageNo<TotalPages or (PageNo=1 and totalpages>1) Then %> <input TYPE="SUBMIT" NAME="ScrollAction" VALUE="<%="Page " & PageNo+1%>"> <%end if %> </p>
</form>
<%End If%>
<%End If%>
<%
rs.Close
%>
```

Hoppas ngn ser vad som ska göras o kan hjälpa mig.

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

## #2 — emission, 2000-09-08T13:32Z

Du kör ju inte en sammansatt sökning, så du har bara ett recordset. Nextrecordset funkar alltså inte. Skippa den loopen.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/6541-åtgärden-stöds-inte