Slet når antal poster = xx

Sidder her i skolen, men det må da være noget kode ala:
<%'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=database.mdb"
%>

<%
strSQL = "SELECT COUNT (*) AS Ialt FROM XXX"
Set rsCount = Conn.Execute(strSQL)

if rsCount("Ialt") => 100 then
SQL= "SELECT * From XXXX where ID > 70"
Set rs = Conn.Execute(SQL)
WHILE NOT RS.EOF

rs.delete
re.movenext
wend
end if
%>


Jeg ved ikke om koden virker, men det må være noget ala det.

Ja, men nu skal det jo ikke være id den tager efter, men de første 70. Fordi jeg har været inde og slette mange poster manuelt før, så det laveste id er nok omkring 200! Så kan den jo ikke slette dem der er under 70? Det skal bare være de 70 laveste id

Dette en sikkert IKKE en køn løsning, men burde virke! :D

sql = "Select TOP70 * from TABEL order by id asc"
set record = conn.execute(sql)
if not record.eof then
  do
      sql2 = "DELETE * from TABEL where id = " & record("id")
      conn.execute(sql2)
  record.movenext
  loop until record.eof
end if

hovsa.. var et svar!

Det kunne jeg ikke få til at virke, men det er også ligemeget nu! Men det var dna der var tættest på, så han skal ha point

#syntax_hh

Hvis du skrev hvilken fejl du fik, så ville det nok hjælpe en del...

Bruger du en access database eller MYSQL?