funkar ej

9 svar · 206 visningar · startad av urban 4 jan. 2002

urbanMedlem sedan nov. 2001124 inlägg

Trådstart4 jan. 2002 15:24#1

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]

RinaldoMedlem sedan mars 20014 214 inlägg

4 jan. 2002 15:27#2

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

Vilken rad är det fel på...

urbanMedlem sedan nov. 2001124 inlägg

4 jan. 2002 15:33#3

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

urbanMedlem sedan nov. 2001124 inlägg

4 jan. 2002 15:33#4

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

PatrikBMedlem sedan mars 20002 836 inlägg

4 jan. 2002 15:37#5

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

cya,
PatrikB

urbanMedlem sedan nov. 2001124 inlägg

4 jan. 2002 15:41#6

va hahahah fattar inte riktigt??

urbanMedlem sedan nov. 2001124 inlägg

4 jan. 2002 15:57#7

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

jboy_87Medlem sedan aug. 20011 099 inlägg

4 jan. 2002 16:01#8

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

PatrikBMedlem sedan mars 20002 836 inlägg

4 jan. 2002 16:04#9

connect66 etc.

du har väl inte oxå

connect1, connect2, conn.. etc

cya,
PatrikB

urbanMedlem sedan nov. 2001124 inlägg

4 jan. 2002 16:18#10

tack jboy_87 funkar :-)