--- title: "Shop fel.!!" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/5678-shop-fel" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "cgi" published: "2000-05-15T15:56:00.000Z" updated: "2000-05-16T13:00:00.000Z" replies: 11 views: 244 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/5678-shop-fel" --- # Shop fel.!! ## #1 — cgi, 2000-05-15T15:56Z När jag använder mig av nedanstående kod, så får jag upp : Microsoft VBScript runtime error '800a01a8' Object required: 'RS' \<% ' ========================================================================== ' Kontrollerar om webbläsaren kan hantera cookies. ' Hämtar cookien som planterades på sidan index.asp och kontrollerar om den ' har korrekt värde. ' ========================================================================== If Request.Cookies("Validate") = "" Then Response.redirect("nocookie.asp") End If ' ========================================================================== ' Öppna databasen och hämtar alla kategorier. ' ========================================================================== Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet MdbFilePath = Server.MapPath("shop.mdb") 'Specifierar sökvägen till databasen Databas.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen %\> \ \ \ASP Shop\ \ \ \ \ \ \

\

\ \

\

shoplogga.gif (5801 bytes)

\ \ \ \

\\

\\\Först ska du välja\ vilken kategori du är intresserad av. Klicka på någon av nedanstående kategorier för att gå vidare.\\\\ \

\\ \ \

\\\Kategorier:\\\\ \ \<% DO UNTIL RS.EOF %\> \ \

\"\>\\\<%= RS("Kategori") %\>\\\\ \ \<% RS.MoveNext Loop %\> \ \\\ \ \ \ \ \ \ \ \ \ \<% ' ========================================================================== ' Stäng databasen och RS. ' ========================================================================== RS.Close Connection.Close %\> Vad sjutton är fel.??? Permalänk: https://www.webforum.nu/p/5678 ## #2 — AG, 2000-05-15T17:58Z Ändra topp asp koden, innan \, till förljande: ``` <% If Request.Cookies("Validate") = "" Then Response.redirect("nocookie.asp") End If Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("\shop.mdb") SQL = "SELECT * FROM tabell" SET RS = Connection.Execute(SQL) %> ``` Ändra tabell mot din tabell. Borde fungera smärtfritt nu. Andreas \[Redigerat av AG den 15 maj 2000\] Permalänk: https://www.webforum.nu/p/242952 ## #3 — cgi, 2000-05-15T19:56Z Nej du, jag får fortfarande samma fel.!! Permalänk: https://www.webforum.nu/p/242953 ## #4 — Vide, 2000-05-15T23:09Z På vilken rad står det att det blir fel? Permalänk: https://www.webforum.nu/p/242954 ## #5 — cgi, 2000-05-16T10:13Z På rad (42). Permalänk: https://www.webforum.nu/p/242955 ## #6 — Vide, 2000-05-16T11:12Z ... och vilken rad blir det i koden, kan du markera det... lite svårt att räkna då texten här radbryts... Permalänk: https://www.webforum.nu/p/242956 ## #7 — cgi, 2000-05-16T11:46Z Det är den här raden som spökar: \<% DO UNTIL RS.EOF %\> Permalänk: https://www.webforum.nu/p/242957 ## #8 — Vide, 2000-05-16T11:57Z Skumt, och du har bytt ut koden mot den AG gav dig? Om du kommenterar ut hela lopen, får du fel på RS.close då? Permalänk: https://www.webforum.nu/p/242958 ## #9 — cgi, 2000-05-16T12:06Z AGs kod funkade inte alls, fick byta ut den mot denna: \<% If Request.Cookies("Validate") = "" Then Response.redirect("nocookie.asp") End If Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet MdbFilePath = Server.MapPath("shop.mdb") 'Specifierar sökvägen till databasen Databas.Open "Driver={Microsoft Access Driver (\*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen %\> Vad menar du med att kommentera ut hela lopen.?? Permalänk: https://www.webforum.nu/p/242959 ## #10 — Vide, 2000-05-16T12:22Z OK, då ser jag... du har inte skapat en fråga till databasen... skriv det här: ``` <% If Request.Cookies("Validate") = "" Then Response.redirect("nocookie.asp") End If Set Databas = Server.CreateObject("ADODB.Connection") 'Skapar kopplings objektet MdbFilePath = Server.MapPath("shop.mdb") 'Specifierar sökvägen till databasen Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" 'Öppnar databasen SQL = "Select * from tabell" Set RS = databas.execute(SQL) %> ``` ... och byt ut tabell mot den tabell du vill hämta data ur... Permalänk: https://www.webforum.nu/p/242960 ## #11 — cgi, 2000-05-16T12:33Z Nu funkar det bättre, jag fick byta ut SQL = "Select \* from tabell" till SQL = "Select \* from Kat" Permalänk: https://www.webforum.nu/p/242961 ## #12 — AG, 2000-05-16T13:00Z Då borde min fungera med tycker jag allt. :) Tur att det ordnade sig. Andreas Permalänk: https://www.webforum.nu/p/242962 --- Tråden på webben: https://www.webforum.nu/amne/asp/5678-shop-fel