--- title: "Radera efter dagens datum" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/169316-radera-efter-dagens-datum" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Biasse" published: "2008-02-24T15:06:19.000Z" updated: "2008-02-24T21:30:49.000Z" replies: 41 views: 1478 page: 1 pages: 3 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/169316-radera-efter-dagens-datum" --- # Radera efter dagens datum _Sida 1 av 3._ ## #1 — Biasse, 2008-02-24T15:06Z Sitter och försöker få en funktion för detta och läst era tidigare trådar. Men när jag lägger in den jag fått fram raderar den hela databasen fast det finns poster som inte gått ut än. ``` <% Sub DeleteSiten Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbnamn Conn.Execute("DELETE FROM kalender WHERE datum <= dateadd('d', -1, date())") Conn.Close Set Conn = Nothing End sub DeleteSiten %> ``` Permalänk: https://www.webforum.nu/p/169316 ## #2 — Eclipse, 2008-02-24T17:04Z Jag har aldrig tagit bort nåt utan stjärnan... men tror egentligen att det är brädgårdarna som du ska fokusera på. Datum utan brädgårdar fungerar GARANTERAT INTE. ``` ' ## DELETE SELECTED POST SQL = "DELETE * FROM [" & myTable & "] WHERE [intID] = " & myVar & ";" Conn.Execute(SQL) ``` ``` Conn.Execute("DELETE FROM kalender WHERE datum <= #" & dateadd('d', -1, date()) & "#;") ``` Jag brukar heller aldrig skriva allt i en rad, just för det blir så lurigt med alla fjumpar... Permalänk: https://www.webforum.nu/p/2084743 ## #3 — Eclipse, 2008-02-24T17:06Z 43 dagar gamla poster: ``` ' ## DELETE OLD POST IN HTTP_REFERER-LOG -- 42 DAYS = 6 WEEKS SQL = "DELETE * FROM [referer] WHERE dteCreated <#" & dateAdd("d", -43, date()) & "#;" Conn.Execute(SQL) SQL = "DELETE * FROM [log] WHERE dteCreated <#" & dateAdd("d", -43, date()) & "#;" Conn.Execute(SQL) SQL = "DELETE * FROM [developer] WHERE dteCreated <#" & dateAdd("d", -43, date()) & "#;" Conn.Execute(SQL) ``` Permalänk: https://www.webforum.nu/p/2084744 ## #4 — Biasse, 2008-02-24T17:52Z Ser ut så här nu men den raderar inte post alls nu ``` <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbnamn SQL = "DELETE * FROM kalender WHERE datum <#" & dateAdd("d", -1, date()) & "#;" Conn.Execute(SQL) Conn.Close Set Conn = Nothing %> ``` Permalänk: https://www.webforum.nu/p/2084754 ## #5 — LarsG, 2008-02-24T17:56Z Det är inget fel på din första fråga. Vad har kolumnen datum för datatyp? Permalänk: https://www.webforum.nu/p/2084755 ## #6 — Biasse, 2008-02-24T17:59Z Det är ett kalenderskript som skriver in datumet som tex. 2008-02-24 Kolumnen har: Datum/tid & kort datum Permalänk: https://www.webforum.nu/p/2084756 ## #7 — Eclipse, 2008-02-24T18:18Z Kanske datum är reserverat? Använd klamrarna i så fall: ``` SQL = "DELETE * FROM [b][kalender][/b] WHERE [b][datum][/b] <#" & dateAdd("d", -1, date()) & "#;" ``` Permalänk: https://www.webforum.nu/p/2084760 ## #8 — Biasse, 2008-02-24T18:20Z Det hjälpte inte.. Permalänk: https://www.webforum.nu/p/2084762 ## #9 — Eclipse, 2008-02-24T18:22Z OK, men är du säker på att: \[kalender\] datum \<-- = Datum/tid Permalänk: https://www.webforum.nu/p/2084764 ## #10 — Eclipse, 2008-02-24T18:23Z OK, kolla detta då!! Uppdaterar du rätt fil!?!? Permalänk: https://www.webforum.nu/p/2084767 ## #11 — Biasse, 2008-02-24T18:24Z Data typen för \[datum\] är datum/tid ja. Kan det spela nån roll var på sidan jag lägger in det? Permalänk: https://www.webforum.nu/p/2084768 ## #12 — Eclipse, 2008-02-24T18:40Z Vad menar du? Var lägger du koden nu...!? Rent generellt, ASP läser sidan FÖRST och skickar \*den färdiga sidan\* till klienten, så det ska gå bra att lägga koden var som helst på sidan. Permalänk: https://www.webforum.nu/p/2084771 ## #13 — Eclipse, 2008-02-24T18:42Z Två frågor: 1\. Har dbnamn fått ett namn tilldelat på samma sida? 2\. Finns snutten: "on error resume next" på denna sidan? Om ja, kommentera bort den i så fall. Permalänk: https://www.webforum.nu/p/2084773 ## #14 — Eclipse, 2008-02-24T18:44Z Fungerar denna...!? (Har du en fungerande koppling...???) ``` SQL = "SELECT [datum] FROM [kalender];" Set mySQL = Conn.Execute(SQL) IF NOT mySQL.EOF THEN response.write "very good...!! " ``` Permalänk: https://www.webforum.nu/p/2084774 ## #15 — Biasse, 2008-02-24T18:53Z Så här ser det ut. Kopplingen är det inget fel på för den läser top 5. ``` <% Dim dbnamn dbnamn = Server.MapPath("pagang.mdb") ' Databasens sökväg %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbnamn SQL = ("DELETE * FROM [kalender] WHERE [datum] <#" & dateAdd("d", -1, date()) & "#;") Conn.Execute(SQL) Conn.Close Set Conn = Nothing %> ``` \ \ \ \\ \ \ \
``` <% IF Request.Querystring("vad") = "femsenaste" THEN %> ``` \
\På Gång Snart...\ \ ``` <%Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbnamn Set RS = Conn.Execute("SELECT TOP 5 * FROM kalender ORDER BY DATUM ASC") Do Until RS.EOF %> ``` \
\ \
\\ ``` "\> ``` <%=RS("rubrik")%> ``` \\ \ ``` <% RS.MoveNext Loop RS.Close Set RS = Nothing END IF %> ``` \ \ \ \ Permalänk: https://www.webforum.nu/p/2084777 ## #16 — Eclipse, 2008-02-24T19:04Z Testa att ta bort paranteserna i koden som inte fungerar. Kolla mitt exempel ovan. Annars kan du också skriva alla kod på en rad som du gjorde från början, om du nu trivs bättre med det. Glöm inte brädgårdarna vid fråga med datum! Permalänk: https://www.webforum.nu/p/2084779 ## #17 — Eclipse, 2008-02-24T19:09Z Tips för sökväg till databas. Om du vill kan du lägga sökvägen till databasen i en session i global.asa och sen ropa på den. Du kan inte använda server.MapPath i global.asa för den frågar om sökvägen \*till respektive fil\* som anropar, inte sökvägen till global.asa ... Men det är bara ett problem EN gång. Kolla denna felpostningen som jag gjorde: Permalänk: https://www.webforum.nu/p/2084780 ## #18 — Biasse, 2008-02-24T19:11Z Har provat: ``` SQL = ("DELETE * FROM [kalender] WHERE [datum] <#" & dateAdd("d", -1, date()) & "#;") ``` ``` SQL = "DELETE * FROM [kalender] WHERE [datum] <#" & dateAdd("d", -1, date()) & "#;" ``` ``` SQL = "DELETE * FROM kalender WHERE datum <#" & dateAdd("d", -1, date()) & "#;" ``` Dom funkar inte. Permalänk: https://www.webforum.nu/p/2084781 ## #19 — Biasse, 2008-02-24T19:14Z Men databaskopplingen funkar som den är. Lägger jag in en händelse i kalendern 13/2 så borde den försvinna när jag laddar om sidan. Permalänk: https://www.webforum.nu/p/2084782 ## #20 — Biasse, 2008-02-24T19:58Z Testade en anna variant men det gick inte bättre. ``` <% Response.Buffer=True Set objConnection = Server.CreateObject("ADODB.Connection") objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\inetpub\wwwroot\diggers\kalender\pagang.mdb" Set rs2 = Server.CreateObject("ADODB.Recordset") strsql = "SELECT * FROM kalender" rs2.Open strsql, objConnection, 3, 3 strSQL="delete from kalender where [datum]<#" & DateAdd("d",-1,Date()) & "#;" objConnection.Execute strSQL,,128 rs2.Close objConnection.Close Set rs2 = Nothing Set objConnection = Nothing %> ``` Permalänk: https://www.webforum.nu/p/2084787 --- Tråden på webben: https://www.webforum.nu/amne/asp/169316-radera-efter-dagens-datum Nästa sida: https://www.webforum.nu/amne/asp/169316-radera-efter-dagens-datum/page2.md