En simpel funktion i ASP

den skal lave i ASP men ved brug af vbscript;)

you should move your question to ASP programming this is Access!

selvom det godt nok er stillet i den forkerte kategori får du et løsningsforslag her:

//akj

<%

dim conn, strDSN
Set Conn = Server.Createobject("ADODB.Connection")

'--- Database forbindelse ---
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " &_
"DBQ=" & Server.Mappath("db1.mdb") & "; password=test"
Conn.Open strDSN

str_sql = "select * from comparedate"
set rs = conn.execute( str_sql)

Do While Not RS.EOF
    mydate = DateSerial(rs("myyear"),rs("mymonth"),rs("myday"))
    if mydate < date() then
        str_sql = "delete from comparedate where myyear = " & rs("myyear") & " and mymonth = " &rs("mymonth") & " and myday = " & rs("myday")
        conn.execute str_sql
        response.write Formatdatetime (mydate,2) & " er slettet <br>"       
    end if
    RS.MoveNext
Loop

%>

Ups forkert kategori :(

Når men her er 60 sprøde og tak for hjælpen.

Selvtak.