---
title: "Lite forum probs igen..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14358-lite-forum-probs-igen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "FIgg3"
published: "2002-02-11T18:48:00.000Z"
updated: "2002-02-11T20:02:00.000Z"
replies: 4
views: 153
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/14358-lite-forum-probs-igen"
---
# Lite forum probs igen...
## #1 — FIgg3, 2002-02-11T18:48Z
Tjenare skulle behöva lite hjälp här...
När ja kör denna koden
```
<% if Request.QueryString("read") = "main" then%>
04 FORUM
| Rubrik |
Namn |
Läst |
Svar |
Datum |
<%
file = Server.MapPath("forum.mdb")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM forum where reid = 0 ORDER BY ID DESC"
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
Do until RecSet.EOF
color = color + 1
If color Mod 2 = 0 then
colorbg = "#E2E2E2"
Else
colorbg = "#FFFFFF"
End If
rubrik = left(Recset("Rubrik"),7) & "..."
%>
|
"><%=rubrik%> |
<%=RecSet("namn") %>
|
<%=RecSet("count") %>
|
<%=RecSet("svar") %>
|
<%=RecSet("date") %>
|
<%
RecSet.movenext
Loop
Recset.close
Set RecSet = nothing
end if
%>
<%
if Request.QueryString("read") = "post" then
ID2 = Request.QueryString("id")
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("forum.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From forum WHERE id="&ID2
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
count = RecSet("count") + 1
RecSet("count") = count
%>
| Rubrik
|
Namn
|
Läst
|
Svar
|
Datum
|
| <%=RecSet("Rubrik")%> |
<%=RecSet("namn") %> |
<%=RecSet("count") %> |
<%=RecSet("svar") %> |
<%=RecSet("date") %> |
|
<%=forumKod(RecSet("mess"))%> |
<% If RecSet("Svar") = 0 Then %>
Det finns inga svar på denna frågan än!!!
<%Else%>
<% If RecSet("Svar") > 0 Then
RecSet.Close
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From forum ORDER BY datum "
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<%
Do Until RecSet.EOF
If int(RecSet("reid")) = int(ID2) Then
%>
| Namn:
<%=RecSet("namn") %> |
Datum:
<%=RecSet("date") %> |
| <%=forumKod(RecSet("mess"))%> |
<%
End If
RecSet.MoveNext
Loop
%>
<%End If%>
<%End If%>
Svar
på detta inlägg:
<% End If %>
```
(Ursäkta mycket kod) så får ja detta fel meddelandet:
```
Feltyp:
ADODB.Recordset (0x800A0C93)
Åtgärden är inte tillåten i det här sammanhanget.
/forum.asp, line 130
```
Rad 130 är:
```
RecSet.Close
```
Och den koden siter i hop med
```
<% If RecSet("Svar") > 0 Then
RecSet.Close
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From forum ORDER BY datum "
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
```
MVH
Permalänk: https://www.webforum.nu/p/14358
## #2 — voigtann1, 2002-02-11T18:53Z
kan du prova att lägga ner \<%RecSet.Close
%\>
längst ner på sidan?
kan vara att du avsluta recset för snabbt.. sidan kanske behöver recset fortfarande..
Permalänk: https://www.webforum.nu/p/310158
## #3 — FIgg3, 2002-02-11T18:57Z
tack men det fungera ej fick samma fel mess...
Permalänk: https://www.webforum.nu/p/310159
## #4 — voigtann1, 2002-02-11T19:14Z
kan man stänga och sen öppna den igen??? prova byt namn på recset till recset2 eller ngt...
Permalänk: https://www.webforum.nu/p/310160
## #5 — Skarre, 2002-02-11T20:02Z
Jag tror att du snabbare kan få hjälp om du förenklar för de som försöker hjälpa dig genom att t.ex. endast posta relevant kod eller markera den felande raden i fetstil.
Permalänk: https://www.webforum.nu/p/310161
---
Tråden på webben: https://www.webforum.nu/amne/asp/14358-lite-forum-probs-igen