--- title: "Problem med Datum" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/50147-problem-med-datum" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Ivar" published: "2002-08-12T19:44:12.000Z" updated: "2002-08-13T21:31:30.000Z" replies: 22 views: 439 page: 1 pages: 2 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/50147-problem-med-datum" --- # Problem med Datum _Sida 1 av 2._ ## #1 — Ivar, 2002-08-12T19:44Z Hej! Jag har problem med den här koden Kod: Set RecSet = Server.CreateObject("ADODB.Recordset") SQL = "DELETE FROM items WHERE ID = Posted \> '" & Date & "'" RecSet.Open SQL, Connect, 1,2 Jag vill att automatiskt radera poster som är äldre en 30 dagar. Snälla hjälp jag är nybörjare i ASP Med vänlig hälsning Ivar Permalänk: https://www.webforum.nu/p/50147 ## #2 — OveRRidE, 2002-08-12T20:32Z ``` Set RecSet = Server.CreateObject("ADODB.Recordset") SQL = "DELETE FROM items WHERE dateCreated > #" & dateAdd("d",-30,Date) & "#" RecSet.Open SQL, Connect, 1,2 ``` 1\. Jag har förutsatt att kolumnen är i formatet "datum" av något slag. 2\. Jag har lagt till ett kolumnnamn som krävs för att ta reda på när posten skapades; 'dateCreated', där du lagrar dagens datum (med now()) när du skapar raden i databasen. Redigerat) Felkodat. Har rättat till Ekström:s nedanstående notering. :r Permalänk: https://www.webforum.nu/p/752130 ## #3 — Ivar, 2002-08-12T20:48Z Hej! Punkt 1 är svar ja Punkt 2 ska prova om jag fattat rätt Tack för hjälpen. MVH Ivar Permalänk: https://www.webforum.nu/p/752143 ## #4 — Ekström, 2002-08-12T21:22Z OveRRidE: Borde inte dateAdd-funktionen se ut som följer: dateAdd("d",-30,date()) Alltså att den drar bort 30 dagar istället för att lägga på? Är lite trött just nu... Kan ju bero på det också :e Permalänk: https://www.webforum.nu/p/752172 ## #5 — OveRRidE, 2002-08-12T21:57Z Ekström, det är korrekt, det är jag som är trött. :r Korrekt kod: ``` Set RecSet = Server.CreateObject("ADODB.Recordset") SQL = "DELETE FROM items WHERE dateCreated > #" & dateAdd("d",-30,Date) & "#" RecSet.Open SQL, Connect, 1,2 ``` Permalänk: https://www.webforum.nu/p/752190 ## #6 — Ekström, 2002-08-12T22:03Z > **OveRRidE skrev:** > > Ekström, det är korrekt, det är jag som är trött. :r Nej, det är jag som är trött. Och har tur :e Permalänk: https://www.webforum.nu/p/752195 ## #7 — Ivar, 2002-08-13T12:40Z Hej! Jag har den här koden nu men det funkar inte Tacksam för all hjälp: \<% Dim connect, query, senaste, test, delete set connect = server.createobject("ADODB.connection") Connect.Open "DRIVER={Microsoft Access Driver (\*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;" Set senaste = Server.CreateObject("ADODB.Recordset") query = "SELECT \* FROM items Where test='on' ORDER BY posted DESC" Set RecSet = Server.CreateObject("ADODB.Recordset") SQL = "DELETE FROM items WHERE dateCreated \> #" & dateAdd("d",-30,Date) & "#" senaste.Open query, Connect Do Until senaste.EOF %\> Permalänk: https://www.webforum.nu/p/752487 ## #8 — @nders, 2002-08-13T12:42Z På vilket sätt funkar det inte? Felmeddelande? Och det är väl inte all kod det där? Är det tänkt att den skall radera poster och inget mer? Eller exakt vad är det tänkt att koden skall göra? Permalänk: https://www.webforum.nu/p/752490 ## #9 — Ivar, 2002-08-13T12:46Z Ingen Felmeddelande men posterna är kvar DVS Äldre poster en 30 dagar ska bort. Permalänk: https://www.webforum.nu/p/752493 ## #10 — @nders, 2002-08-13T12:47Z Om den bara ska radera poster så borde det nog se ut något sånt härnt: ``` <% Dim connect, SQL set connect = server.createobject("ADODB.connection") Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;" SQL = "DELETE FROM items WHERE dateCreated < #" & dateAdd("d",-30,Date) & "#" Connect.Execute SQL, , 128 %> ``` Märk att jag har vänt på haken i SQL-frågan. Det ska vara mindre än, inte större än. Mvh, Permalänk: https://www.webforum.nu/p/752494 ## #11 — Ivar, 2002-08-13T12:49Z Tack Timmy jag testar. MVH Ivar Permalänk: https://www.webforum.nu/p/752497 ## #12 — @nders, 2002-08-13T12:49Z Ska nog ändra min signatur, för att undvika missförstånd. Jag heter Anders. :) \[r\]: Sådärja, en favorit i repris. ;) Permalänk: https://www.webforum.nu/p/752498 ## #13 — Ivar, 2002-08-13T13:39Z Här är all kod i default.asp vad är felet? \<% Dim connect, query, senaste, test, Sql set connect = server.createobject("ADODB.connection") Connect.Open "DRIVER={Microsoft Access Driver (\*.mdb)};DBQ=" & Server.MapPath("db/annonser.mdb") & ";pwd=;" Set senaste = Server.CreateObject("ADODB.Recordset") query = "SELECT \* FROM items Where test='on' ORDER BY posted DESC" Set RecSet = Server.CreateObject("ADODB.Recordset") SQL = "DELETE FROM items WHERE dateCreated \< #" & dateAdd("d",-30,Date) & "#" senaste.Open query, Connect Connect.Execute SQL, , 128 Do Until senaste.EOF %\> \ \ \"\>\<%=senaste("item")%\>\ \ \ Categori: \<% if senaste("category")="categori1" then %\> \<%=categori1%\> \<% elseif senaste("category")="categori2" then %\> \<%=categori2%\> \<% elseif senaste("category")="categori3" then %\> \<%=categori3%\> \<% elseif senaste("category")="categori4" then %\> \<%=categori4%\> \<% elseif senaste("category")="categori5" then %\> \<%=categori5%\> \<% end if %\> \ \ Pris: \<%=senaste("price")%\> Kr \ \ \<% senaste.MoveNext Loop senaste.Close Set senaste = Nothing %\> Händer ingenting alltså poster som är äldre en dagens datum Now() dvs äldre en 30 dagar skall bort. Mvh Ivar Permalänk: https://www.webforum.nu/p/752548 ## #14 — OveRRidE, 2002-08-13T16:07Z Har du skapat kolumnen 'dateCreated' i din databas och fyllt dessa rader med datum då raden skapades? Se även till så att det verkligen finns poster i databasen som kommer tas bort, så att det inte är det som beror. :) Permalänk: https://www.webforum.nu/p/752681 ## #15 — Ekström, 2002-08-13T16:43Z > **Ivar skrev:** > > Tack Timmy jag testar. > MVH Ivar Hehe, Timmy! Vad var det egentligen, @nders? Timmy är väl hunden i "Fem" om jag inte minns fel. :D Permalänk: https://www.webforum.nu/p/752719 ## #16 — @nders, 2002-08-13T16:50Z Riktigt OT: Timmy är även en rullstolsbunden figur i South Park, vars ordförråd består av hans eget namn. Han svarar alltid på tilltal, genom att skrika sitt eget namn, *Timmy!*. Läskigt skön karaktär. :D Permalänk: https://www.webforum.nu/p/752726 ## #17 — Ekström, 2002-08-13T16:59Z Hehe. Jag måste ja missat honom helt. Har ändå sett en hel drös med SP-avsnitt. Måste dock säga att Simpsons och Futurama knäcker SP lätt. :e Permalänk: https://www.webforum.nu/p/752746 ## #18 — crisse6, 2002-08-13T17:51Z håller med om att Simpsons är grymt :) Permalänk: https://www.webforum.nu/p/752803 ## #19 — @nders, 2002-08-13T17:52Z Back to topic, tack! Permalänk: https://www.webforum.nu/p/752804 ## #20 — Ekström, 2002-08-13T17:55Z Självklart, o allsmäktige ledare... ;) Nu är jag också OnT Permalänk: https://www.webforum.nu/p/752807 --- Tråden på webben: https://www.webforum.nu/amne/asp/50147-problem-med-datum Nästa sida: https://www.webforum.nu/amne/asp/50147-problem-med-datum/page2.md