Slette hvis dato er overskredet

Er din id ikke et tal?
Så skal du ikke have '' om.

Hvorhenne?

strSQL = "DELETE FROM kalender WHERE id = '" & id & "'"

-->

strSQL = "DELETE FROM kalender WHERE id = " & id

Kan man ikke bare gøre sådan?:

do while not rs.eof
if rs("tildato") < date then
strSQL = "DELETE FROM kalender WHERE id = " & rs("id")
Conn.Execute(strSQL)
end if
rs.MoveNext
Loop

Jo, det er det samme.

Man kan endda gøre sådan:

do while not rs.eof
if rs("tildato") < date then
Conn.Execute("DELETE FROM kalender WHERE id = " & rs("id"))
end if
rs.MoveNext
Loop

Den sletter ikke noget...

Hmm... har lige testet følgende og det virkede:

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
Set Conn = Server.CreateObject("ADODB.Connection")
strDSN = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("database.mdb")
Conn.Open strDSN

strSQL = "SELECT * FROM kalender"

rs.open strSQL, conn

do while not rs.eof
if rs("tildato") < date then
Conn.Execute("DELETE FROM kalender WHERE id = " & rs("id"))
end if
rs.MoveNext
Loop
%>

feltet "id" i databasen er autonummerering og feltet "tildato" er natuligvis af datatypen dato og klokkeslet.

Har du prøvet bare at udskrive noget for at se om if'en fungerer efter hensigten? Hvis ikke så prøv:

do while not rs.eof
if rs("tildato") < date then
response.Write "post nr. " & rs("id") & " er for gammel..."
end if
rs.MoveNext
Loop

Hvad sker der så?

der sker ikke noget.... tildato på det jeg tester er 08-01-2004

Der mangler lige en " på hver side af date

do while not rs.eof
if rs("tildato") < "" & date & "" then
response.Write "post nr. " & rs("id") & " er for gammel..."
end if
rs.MoveNext
Loop

smid et svar

ok :)
Løste " problemet?

Hos mig gør den tilføjelse ganske vist at ALT ryger, men hvis det virker hos dig, så hey...

det virker :) takker

Glimrende :o)
Tak for point.