---
title: "funkar ej"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/13541-funkar-ej"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "urban"
published: "2002-01-04T15:24:00.000Z"
updated: "2002-01-04T16:18:00.000Z"
replies: 9
views: 206
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/13541-funkar-ej"
---

# funkar ej

## #1 — urban, 2002-01-04T15:24Z

fattar inte varför det inte funkar:
Feltyp:
(0x80020009)
Undantag inträffade. 
/status.asp, line 72

```
                    <%if recset66("read") = "0" then%><a href="meddelanden.asp?tillid=<%=session("id")%>" id="flashlink" flashtype=0 flashcolor="white" target="main">Meddelanden:      
                   
<%
Dim Funktion1
Funktion1 = Funk_nya_mess
Set RS = nothing
Set RecSet = nothing
%>   
<%else%>
bla bla
<%end if%>
```

\[Redigerat av urban den 04 jan 2002\]

\[Redigerat av urban den 04 jan 2002\]

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

## #2 — Rinaldo, 2002-01-04T15:27Z

Alltså hur många olika recset har du??

Vilken rad är det fel på...

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

## #3 — urban, 2002-01-04T15:33Z

jag har inkulderat en fil som heter funktioner.asp
och ser ut såhär:

```
<%

Function Funk_nya_mess

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/messages.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From message WHERE tillID = " &Session("id") &" AND read = 0"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	count = 0
	Do Until RecSet.EOF
		count=count+1
	RecSet.MoveNext
	Loop
	RecSet.Close
	Connect.Close
	Set RecSet = nothing
	Set Connect = nothing
	Session("count") = count
	Response.Write count
	
End Function

Function Funk_antal_medlemmar

Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

	count = 0
	Do Until RecSet.EOF
		count=count+1
	RecSet.MoveNext
	Loop
	RecSet.Close
	Connect.Close
	Set RecSet = nothing
	Set Connect = nothing

	Response.Write count
	
End Function
%>
```

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

## #4 — urban, 2002-01-04T15:33Z

och här e alla mina recset

\<%
Set Connect66 = Server.CreateObject("ADODB.Connection") 
Connect66.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("Database/messages.mdb")&""

Set RecSet66 = Server.CreateObject("ADODB.Recordset")

Addera = "Select \* From message WHERE tillID = " &Session("id") &" AND read = 0"
RecSet66.Open Addera, Connect66, adOpenStatic, adLockOptimistic
%\>

```
<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From members Where id = " &Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>

<%
Set Conect = Server.CreateObject("ADODB.Connection") 
Conect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/messages.mdb")&""

Set Rs = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From message Where tillid = " &Session("id")
RS.Open Addera, Conect, adOpenStatic, adLockOptimistic
%>
```

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

## #5 — PatrikB, 2002-01-04T15:37Z

hallå!
inte har du väl 66 st olika connections och 66 olika recordsets på samma sida???

cya,
PatrikB

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

## #6 — urban, 2002-01-04T15:41Z

va hahahah fattar inte riktigt??

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

## #7 — urban, 2002-01-04T15:57Z

\<%
Set Connect66 = Server.CreateObject("ADODB.Connection") 
Connect66.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("Database/messages.mdb")&""

Set RecSet66 = Server.CreateObject("ADODB.Recordset")

Addera = "Select \* From message WHERE tillID = " &Session("id") &" AND read = 0"
RecSet66.Open Addera, Connect66, adOpenStatic, adLockOptimistic
%\>

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

## #8 — jboy_87, 2002-01-04T16:01Z

Addera = "Select \* From message WHERE tillID = " &Session("id")

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

## #9 — PatrikB, 2002-01-04T16:04Z

connect66 etc.

du har väl inte oxå

connect1, connect2, conn.. etc

cya,
PatrikB

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

## #10 — urban, 2002-01-04T16:18Z

tack jboy_87 funkar :-)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/13541-funkar-ej