15 svar · 201 visningar · startad av urban
Hej kan nån förlklara vad felet är
[kod]
<a target="_top" href="read_mess.asp"><font color="#FF0000">
<%Dim Funktion1
Funktion1 = Funk_nya_mess
%>
</font></a></b></font><font face="Arial" size="1"><br>
<img border="0" src="Bilder/Pilar.GIF"> Gästbok: 0<br>
<img border="0" src="Bilder/Pilar.GIF"> Forum: 0<br>
<img border="0" src="Bilder/Pilar.GIF"> Poäng: <%=RecSet("poang")%></font></td>
</tr>
</table>
[kod]
Körningsfel i Microsoft VBScript (0x800A000D)
Inkompatibla typer: 'RecSet'
/status.asp, line 52
status.asp
<!-- #include file="adovbs.inc" -->
<!-- #include file="funktioner.asp" -->
</script>
<% end if%>
<%
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
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Status</title>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="50">
<tr>
<td width="96%" height="52">
<font face="Arial" size="1"><img border="0" src="Bilder/Pilar.GIF">
Meddelanden: </font>
<font face="Arial" size="1" color="#000000"><b>
<a target="_top" href="read_mess.asp"><font color="#FF0000">
<%Dim Funktion1
Funktion1 = Funk_nya_mess
%>
</font></a></b></font><font face="Arial" size="1"><br>
<img border="0" src="Bilder/Pilar.GIF"> Gästbok: 0<br>
<img border="0" src="Bilder/Pilar.GIF"> Forum: 0<br>
<img border="0" src="Bilder/Pilar.GIF"> Poäng: <%=RecSet("poang")%></font></td>
</tr>
</table>
</body>
</html>
Funktioner.asp
<%
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")&";pwd=losen"
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
%>
I funktionen Funk_nya_mess så öppnar du ett nytt recordset som också heter recset som du sedan stänger och sätter till nothing.
------------------
essentitia preter non sans multiplicandum
va
ska försöka
sådär
<%Dim Funktion1
Funktion1 = Funk_nya_mess
set recset = nothing
set connect = nothing
%>
Om du skriver om funktionerna så här
Function Funk_nya_mess(Connect)
Dim rs
set rs = connect.execute("select count(*) from message where tillID = '" & session("id") & " and read = 0"
Funk_nya_mess = rs(0)
rs.close
end function
Function Funk_antal_medlemmar(Connect)
Dim rs
set rs = connect.execute("select count(*) from members")
Funk_antal_medlemmar = rs(0)
rs.close
End Function
så slipper du öppna flera connections och så håller du inte på med globala variabler.
Sedan kan du anropa med
session("count") = funk_antal_mess(connect)
session("medlemmar") = funk_antal_medlemmar(connect)
response.write session("count")
------------------
essentitia preter non sans multiplicandum
ja fixade det själv :-)
gjorde så här
<%
Set Connect2 = Server.CreateObject("ADODB.Connection")
Connect2.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&";"
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
Addera2 = "Select * From members Where id = " &Session("id")
RecSet2.Open Addera2, Connect2, adOpenStatic, adLockOptimistic%>
<%=RecSet2("poang")%>
Hur gör man så att användaren kan se hur många nya inlägg han har??????
Är det inte det du räknar ut med funktionen funk_antal_mess?
Du får beskriva lite vilka tabeller du har och vad du menar med nya inlägg.
------------------
essentitia preter non sans multiplicandum
det är klar med funktionen har fixat den hur göra man så att det står hur många nya gb inlägg man fått.