kan man slette et specielt felt på en speciel dag

Tjae den nemmeste måde ville da klart være at have et citat for hver uge i en database hvor ugenummeret så også fremgår i en kolonne som for eksempel kunne hedde "ugenummer"...

så kunne din SQL-sætning så således ud:

<%
WeekNumber = datepart("ww", now, 2, 2)
strSQL = "select * from citater WHERE ugenummer=" & WeekNumber & ""
%>

- så er der jo ingen umiddelbar grund til at slette noget i databasen...

\Dan

Jeg tilslutter mig en løsning ala Dans
I princippet behøves du ikke have en ugenummer
Du kan jo bare have 52 citataer og så bruge indexet som uge nummer

Anyway ville jeg bare som en pointe sige at det er bøvlet at skulle slette noget hver mandag
Du ville skulle lave noget i global.asa som tjekkede hvornår i en ny uge den første gæst besøger siden, og så slette der og kun der
For du kan jo ikke være sikker på der er besøg en mandag, og uden besøg kan du ikke afvikle koden

Jeg er 110% sikker på at jeg får mindst 700 besøg på min hjemmeside dagligt, så er problemet med manglende besøg udelukket :o)

Desuden er mit største problem at det er brugerne selv som lægger et citat (de bliver så censureret af mig) men vi er nu oppe på 45 i unik id hvilket jo går helt skævt i forhold til uge numre.

men kunne man ikke (nu når du har vist mig WeekNumber) gøre følgende:

4 felter i DB (Citater)

Id
Brugernavn
Citat
DBWeekNumber

<%
WeekNumber = datepart("ww", now, 2, 2)
%>

<%
Set forbindelse = Server.CreateObject("ADODB.Connection")
DBQ = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DBQ = DBQ & "DBQ=" & Server.MapPath("Citater.mdb")
forbindelse.Open DBQ
strSQL = "select * from Citater"
forbindelse.Execute(strSQL)
%>

<%
If DBWeekNumber <> WeekNumber then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("Citater.mdb")
Conn.Open DSN
strSQL = "Delete from Citater where DBWeekNumber < WeekNumber "
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%>

<%
Set forbindelse2 = Server.CreateObject("ADODB.Connection")
DBQ2 = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DBQ2 = DBQ2 & "DBQ=" & Server.MapPath("Citater.mdb")
forbindelse2.Open DBQ2
%>

strSQL2 = "Update Citater set "
strSQL2 = strSQL2 & "DBWeekNumber = WeekNumber "
strSQL2 = strSQL2 & " Where Id = (højeste hvad er det nu det hedder)"

forbindelse2.Execute(strSQL)

<%
end if
%>

<%
forbindelse2.Close
Set forbindelse2 = Nothing
%>

<%
forbindelse.Close
Set forbindelse = Nothing
%>

dannielsen/skal i ikke lige sende mig et svar så returnere jeg med points :o)
Deal or No deal??

dannielsen og busschou naturligvis

OK! DEAL!

- her et svar...

\Dan