Slette en post efter en uge, 14 dage eller et år!

<INPUT type=\"radio\" id=radio1 name=radio1>1 uge<br>
<INPUT type=\"radio\" id=radio1 name=radio1>2 uger<br>
<INPUT type=\"radio\" id=radio1 name=radio1>1 måned<br>
<INPUT type=\"radio\" id=radio1 name=radio1 checked>1 år<br>

en lidt mere udbygget ting:

<%@ Language=VBScript %>
<%
select case (Request.Form(\"radio1\"))
case \"uge\" Response.Write \" 1uge\"
case \"2uger\" Response.Write \"2 uger\"
case \"maaned\" Response.Write \"1 måned\"
case \"aar\" Response.Write \"1 år\"
case else Response.Write \"intet valgt\"
end select
%>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>
<form action=test.asp method=post>
<INPUT type=\"radio\" id=radio1 name=radio1 value=\"uge\">1 uge<br>
<INPUT type=\"radio\" id=radio1 name=radio1 value=\"2uger\">2 uger<br>
<INPUT type=\"radio\" id=radio1 name=radio1 value=\"maaned\">1 måned<br>
<INPUT type=\"radio\" id=radio1 name=radio1 checked value=\"aar\">1 år<br>
<INPUT type=\"submit\" value=\"Submit\" id=submit1 name=submit1>
</form>

</BODY>
</HTML>

for at slette posten automatisk ville jeg lave en stored procedure (hvis man ka\' det i access?? kan ik huske det!), som løber tabel igennem dagligt for at se om aktueldato = sletpostdati!

Det her duer ikke! Den skal udbygges mere, med defination af dato for sletning af posten!

konkretiser venligst :-)

ok... når personen har valgt en dato skal du til at starte med lave en dateadd på den for at finde ud af hvilken dato posten rent faktisk skal slettes.

eksempel:
dato = requst.form(\"dato\")
dato = dateadd(dd, dato, date())

her skal dato være antal dage, altså en uge = 7 dage

Når det er gjort sætter du datoen ind i db\'en, og specificerer at på denne dato skal posten slettes.

En gang om dagen kører du så en SQL query, noget ala
conn.execute(Delete * from tabel where (slet_dato = #date()#))

mere er der sådan set ikke i det

cyberfessor >> det er da ik\' optimalt! så skal han køre dette manuelt script hver dag! Han kan dog gøre det automatisk ved at bruge Windows Scripting host og W2K Scheduleren ;-)

mit forslag til en stored procedure - skrevet til sql-server 7.0, men skulle kunne migreres til access:

@declare next_id int
@declare next @int
@declare dato datetime

select @next_id = 0
select @dato = getdate()
select @dato = dateadd(day,-7,@dato)
while @next_id is not null
begin
  select @next_id = min(post_id) from Post_Tabel where post_id > @next_id and postsletdato = @dato
    if @next_id is not null
    begin
      delete from Post_Tabel where postsletdato = @dato
    end
end

slash har hjulpet så meget, at han skal have 500 point; cyberprofessor scorer 100 pts - tks!