funkar ej

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]

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

Vilken rad är det fel på...

------------------
MVH

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
%>

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
%>

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

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-

va hahahah fattar inte riktigt??

<%
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
%>

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

------------------
ASP är bäst fuck the rest!!!

connect66 etc.

du har väl inte oxå

connect1, connect2, conn.. etc

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-

tack jboy_87 funkar :-)