\\ \\ \ \ \ \ \ \ \

\ \<%IF (Rstemp("Namn")) = "4545" THEN Response.write "\Figg3\" %\> \<%Else%\> \<% Response.write(Server.HTMLEncode(Rstemp("Namn"))) %\> \ \<%End IF%\> \\\ \ \ \ \ \ \ \

\ \<%=RStemp("datum")%\> \<% IF RStemp("datum") \> date - 1 THEN %\> \- \ nytt \ \<% END IF %\> \\ \	\Svar:\ \\<%=RStemp("svar")%\> \\ \ \ \	\ \	\ \ \ \ \ \\ \<% recset.movenext Loop recset.close Set recset = nothing %\> Permalänk: https://www.webforum.nu/p/12575 ## #2 — LarsG, 2001-11-09T21:36Z Det finns inget end if som matchar denna rad ``` If RecSet("reid") = 0 Then ``` Permalänk: https://www.webforum.nu/p/294233 ## #3 — nybörjare, 2001-11-09T21:37Z He he ja vet men när ja sätter in den så blir det ändå fel så ja vet ej var ja ska ha in den Permalänk: https://www.webforum.nu/p/294234 ## #4 — LarsG, 2001-11-09T21:44Z ser väl ut som om den borde ligga där. ``` Loop [b]end if[/b] recset.close Set recset = nothing %> ``` Permalänk: https://www.webforum.nu/p/294235 ## #5 — nybörjare, 2001-11-09T21:50Z Tackar men nu får ja detta fel medelandet... ADODB.Recordset fel '800a0bb9' Parametrarna är felaktiga, ligger utanför tillåtet intervall eller skapar en inbördes konflikt. /Default.asp, rad 19 Permalänk: https://www.webforum.nu/p/294236 ## #6 — nybörjare, 2001-11-09T21:58Z Jag läöste det men nu så vissas inget på sidan fast där är saker i databasen????? Permalänk: https://www.webforum.nu/p/294237 ## #7 — LarsG, 2001-11-09T21:59Z Det beror på att du inte har inkluderat adovbs.inc Den innehåller definitioner av olika konstanter, som t.ex. adOpenStatic Det är i och för sig gansak onödigt att ha med den. Du kan skriva så här i stället. ``` Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (.mdb)};dbq="& file 'Öppnar tabellen forum SQL = "SELECT FROM forum ORDER BY ID DESC" set recset = connect.execute(sql) ``` Permalänk: https://www.webforum.nu/p/294238 ## #8 — LarsG, 2001-11-09T22:02Z Det kanske var jag som tänkte fel med end if. (Jag vet ju inte exakt vad du vill göra.) Om du flyttar den hit i stället ``` If RecSet("reid") = 0 Then id = RecSet("id") [b]end if[/b] ``` I och för sig så borde du skriva den som ``` if not recset.eof then If RecSet("reid") = 0 Then id = RecSet("id") end if end if ``` annars så kommer du att få ett fel om databasen är tom. Permalänk: https://www.webforum.nu/p/294239 ## #9 — nybörjare, 2001-11-09T22:02Z Tack larsG kom på det men nu så syns inget alls på sidan fast att jag har info i databasen Permalänk: https://www.webforum.nu/p/294240 ## #10 — nybörjare, 2001-11-09T22:03Z Du var snabbar än jag ska testa det... Permalänk: https://www.webforum.nu/p/294241 ## #11 — nybörjare, 2001-11-09T22:06Z Lars nu när ja skriver if not recset.eof then If RecSet("reid") = 0 Then id = RecSet("id") end if end if Så loppar den ut samma inlägg om och om igen men ja vill ha det som t.ex i ett vanlig forum att det loppas en gång bara fattar du? Permalänk: https://www.webforum.nu/p/294242 ## #12 — LarsG, 2001-11-09T22:16Z Alla dina utskrifter verkar komma från ett recordset som heter RStemp men jag ser aldrig att du gör movenext på det. Kan du beskriva lite mer hur det ser ut? Varför gör du denna fråga t.ex.? ``` SQL = "SELECT * FROM forum ORDER BY ID DESC" ``` och vilken fråga hänger ihop med rstemp? Permalänk: https://www.webforum.nu/p/294243 ## #13 — nybörjare, 2001-11-09T22:22Z Hmm kan du förklara vad du menar med kod??? som du märker är ja en newbe när det kommer till asp... Permalänk: https://www.webforum.nu/p/294244 ## #14 — LarsG, 2001-11-09T22:43Z Att det står kod: är bara ett sätt att markera viss text. (Det sker automatiskt om man använder \[wftag\] text \[/wftag\]) Om du klickar på länken till vänsten där det står WF-kod så kan du se vilka taggar som finns.) Det verkar ju som om det du har visat här bara är en del av det skript som du använder och därför är det svårt att säga vad som är fel. Permalänk: https://www.webforum.nu/p/294245 ## #15 — nybörjare, 2001-11-09T23:01Z Hejsan igen ändrade lite i min kod men nu får ja detta fel medelandet: Körningsfel i Microsoft VBScript fel '800a01a8' Objekt krävs.: '' /Default.asp, rad 84 ``` <% ' Variabel count = 0 'Databasen file = Server.MapPath("databasen.mdb") 'Öppnar databasen Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (.mdb)};dbq="& file 'Öppnar tabellen forum Set RecSet = Server.CreateObject("ADODB.Recordset") SQL = "SELECT FROM forum ORDER BY ID DESC" RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic If RecSet("reid") = 0 Then id = RecSet("id") end if Do While Not RecSet.EOF And Count < 0 %>

"><%=Recset("rubrik")%>

<%IF (Recset("Namn")) = "4545" THEN Response.write "" %> <%Else%> <% Response.write(Server.HTMLEncode(Recset("Namn"))) %> <%End IF%>

<%=Recset("datum")%> <% IF Recset("datum") > datum - 1 THEN %> - nytt <% END IF %>

Svar: <%=Recset("svar")%>

<% RecSet.MoveNext Loop RecSet.Close Set RecSet = Nothing %> ``` Permalänk: https://www.webforum.nu/p/294246 ## #16 — LarsG, 2001-11-09T23:04Z Vilken rad är rad 84? Permalänk: https://www.webforum.nu/p/294247 ## #17 — nybörjare, 2001-11-09T23:08Z Jag glömde lite kod men längst nere så är rad 84 allså denna ``` <% Con.Close Set Con = Nothing %> ``` Hela koden: ``` <% ' Variabel count = 0 'Databasen file = Server.MapPath("databasen.mdb") 'Öppnar databasen Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file 'Öppnar tabellen forum Set RecSet = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM forum ORDER BY ID DESC" RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic If RecSet("reid") = 0 Then id = RecSet("id") end if Do While Not RecSet.EOF And Count < 0 %>

"><%=Recset("rubrik")%>

<%IF (Recset("Namn")) = "4545" THEN Response.write "Figg3" %> <%Else%> <% Response.write(Server.HTMLEncode(Recset("Namn"))) %> <%End IF%>

<%=Recset("datum")%> <% IF Recset("datum") > datum - 1 THEN %> - nytt <% END IF %>

Svar: <%=Recset("svar")%>

<% RecSet.MoveNext Loop RecSet.Close Set RecSet = Nothing %> Skriv nytt inlägg

<% Con.Close Set Con = Nothing %> ``` Permalänk: https://www.webforum.nu/p/294248 ## #18 — @nders, 2001-11-09T23:11Z Du har skrivit fel på namnet på ditt connectionobjekt, byt Con till Connect på de raderna. Mvh, Permalänk: https://www.webforum.nu/p/294249 ## #19 — LarsG, 2001-11-09T23:12Z Det skall vara samma namn som du använder när du öppnar databasen. ``` Connect.Close Set Connect = Nothing ``` Permalänk: https://www.webforum.nu/p/294250 ## #20 — nybörjare, 2001-11-10T10:14Z Har försökt få rätt på det men nu fr ja inget fel medelande så jag har allså kört fast... Men nu vissas inget alls fast det finns saker i databasen... Kan någon titta lite på koden??? ``` <% ' Variabel count = 100 'Databasen file = Server.MapPath("databasen.mdb") 'Öppnar databasen Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& file 'Öppnar tabellen forum Set RecSet = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM forum ORDER BY ID DESC" RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic If RecSet("reid") = 0 Then id = RecSet("id") end if Do until RecSet.EOF or Count %>

"><%=Recset("rubrik")%>

<%IF (Recset("Namn")) = "4545" THEN Response.write "kl" %> <%Else%> <% Response.write(Server.HTMLEncode(Recset("Namn"))) %> <%End IF%>

<%=Recset("datum")%> <% IF Recset("datum") > datum - 1 THEN %> - nytt <% END IF %>

Svar: <%=Recset("svar")%>

<% RecSet.MoveNext Loop RecSet.Close Set RecSet = Nothing %> Skriv nytt inlägg

<% Connect.Close Set Connect = Nothing %> ``` Permalänk: https://www.webforum.nu/p/294251 --- Tråden på webben: https://www.webforum.nu/amne/asp/12575-asp-forum Nästa sida: https://www.webforum.nu/amne/asp/12575-asp-forum/page2.md