Slette i asp

Et vildt skud i tågen.....hvis jeg tager fejl er der sikkert nogen der retter mig så jeg lærer noget af det. Det var bare hvad jeg lige kunne finde på.

'Access DB eksempel
    Set Conn = Server.CreateObject("ADODB.Connection")
    DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
    DSN = DSN & "DBQ=" & Server.MapPath("/DB/database.mdb")
    Conn.Open DSN
    strQ = "SELECT * FROM Table"
    Conn.Execute(strSQL)
    If objRS.EOF Then
        strID = objRS("ID")
        strQ = "DELETE * FROM Table WHERE ID=" & stID
        Conn.Execute(strSQL)
    Else
        objRS.MoveNext
    End If
    Conn.Close
    Set Conn = Nothing

i det her går jeg selvfølgelig udfra at du har et autonummereret ID felt....stigende.

I stedet for if løkken kan du bruge objRS.MoveLast så flytter cursoren til sidste recordset.. det er også en mulighed

sqlstr="select top 1 id from TableName order by id desc"
set rs=Conn.Execute(sqlstr)
sqlstr="delete from TableName where id=" & rs(0)
Conn.Execute(sqlstr)

Her antages også at der er et autonummerfelt, ID. Alternativt kan det være et dato/tidsfelt som defaultværdi sættes til now() i Access-databasen. Så udskiftes ID blot med DatoFeltNavn

hmm