Status

--- title: "Fel" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/12866-fel" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "urban" published: "2001-11-27T20:08:00.000Z" updated: "2001-11-27T22:23:00.000Z" replies: 15 views: 207 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/12866-fel" --- # Fel ## #1 — urban, 2001-11-27T20:08Z Hej kan nån förlklara vad felet är \[kod\] \\ \<%Dim Funktion1 Funktion1 = Funk_nya_mess %\> \\\\\\ \

Poäng: \<%=RecSet("poang")%\>\\ \ \ \[kod\] Permalänk: https://www.webforum.nu/p/12866 ## #2 — Vide, 2001-11-27T20:09Z Vad är Funk_nya_mess och hur hämtar du recordsettet RecSet? Och inte minst: Vad är fel? Permalänk: https://www.webforum.nu/p/295970 ## #3 — urban, 2001-11-27T20:19Z Körningsfel i Microsoft VBScript (0x800A000D) Inkompatibla typer: 'RecSet' /status.asp, line 52 Permalänk: https://www.webforum.nu/p/295971 ## #4 — @nders, 2001-11-27T20:21Z Vi saknar lite kod. :) > hur hämtar du recordsettet RecSet? Mvh, Permalänk: https://www.webforum.nu/p/295972 ## #5 — urban, 2001-11-27T20:24Z status.asp ``` <% 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 %> Status

Meddelanden: <%Dim Funktion1 Funktion1 = Funk_nya_mess %>

Poäng: <%=RecSet("poang")%>

``` 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 %> ``` Permalänk: https://www.webforum.nu/p/295973 ## #6 — LarsG, 2001-11-27T20:53Z 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. Permalänk: https://www.webforum.nu/p/295974 ## #7 — urban, 2001-11-27T21:00Z va Permalänk: https://www.webforum.nu/p/295975 ## #8 — urban, 2001-11-27T21:01Z ska försöka Permalänk: https://www.webforum.nu/p/295976 ## #9 — urban, 2001-11-27T21:04Z sådär \<%Dim Funktion1 Funktion1 = Funk_nya_mess set recset = nothing set connect = nothing %\> Permalänk: https://www.webforum.nu/p/295977 ## #10 — LarsG, 2001-11-27T21:20Z 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") ``` Permalänk: https://www.webforum.nu/p/295978 ## #11 — urban, 2001-11-27T21:21Z ja fixade det själv :-) Permalänk: https://www.webforum.nu/p/295979 ## #12 — urban, 2001-11-27T21:22Z 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")%\> Permalänk: https://www.webforum.nu/p/295980 ## #13 — urban, 2001-11-27T21:25Z Hur gör man så att användaren kan se hur många nya inlägg han har?????? Permalänk: https://www.webforum.nu/p/295981 ## #14 — LarsG, 2001-11-27T21:28Z Ä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. Permalänk: https://www.webforum.nu/p/295982 ## #15 — urban, 2001-11-27T21:32Z 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. Permalänk: https://www.webforum.nu/p/295983 ## #16 — LarsG, 2001-11-27T22:23Z Jag förstår inte alls. Permalänk: https://www.webforum.nu/p/295984 --- Tråden på webben: https://www.webforum.nu/amne/asp/12866-fel