Hvad mangler jeg :)

tror det er fordi du mangler at sætte # omkring dine dato'er!

//>Rune

Er det når jeg opretter min record der skal # omkring?
Jeg opretter med rs("slettes") = DateAdd("d", 14, date)

Fletet slettes er et "dato og tid" felt.
Hvis jeg sætter det til et "tekst" flet sletter den også record med dato 05-05-2002 :)

Her er et eksempel...:

SQL = "INSERT INTO Kalender (ID, Dato, Titel)"
SQL = SQL & "SELECT " &ID &", #" & Dato & "#, '" & Titel & "'"

//>Rune

Ellers har du oxo lidt at kigge på her..:

    SQL = "SELECT Format$([Dato],'dd-mm-yyyy') as VisDato FROM Dato"
    DatoRS = DatoDB.Execute(SQL)

til at få dato'en frem med....
//>Rune

Nu sletter den alle records hvor der står moget i slettes

<!-- #include file="DB.asp" -->
<%
Session.LCID = 1030
'Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open strDSN

slet = "#" & date() & "#"
strSQL = "DELETE FROM Annoncer where slettes <= " & slet & ""
Conn.Execute strSQL,lngRecords
'Conn.execute (SQL)
response.write slet & "<br>"
response.write lngRecords
Conn.close
Set Conn = nothing
%>

jeg opretter records med:
rs("slettes") = "#" & DateAdd("d", 14, date) & "#"

<!-- #include file="DB.asp" -->
<%
Session.LCID = 1030
'Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open strDSN

slet = date()
strSQL = "DELETE FROM Annoncer where slettes <= #" & slet & "#"
Conn.Execute strSQL,lngRecords
'Conn.execute (SQL)
response.write slet & "<br>"
response.write lngRecords
Conn.close
Set Conn = nothing
%>

Prøv med denne..!

//>Rune

Well, DateAdd("d", 14, date())  udskriver:    28-04-2002

Så prøv lige at skriv dette:

<!-- #include file="DB.asp" -->
<%
Session.LCID = 1030
'Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open strDSN

slet = date()
strSQL = "DELETE FROM Annoncer where slettes <= #28-04-2002#"
Conn.Execute strSQL,lngRecords
'Conn.execute (SQL)
response.write slet & "<br>"
response.write lngRecords
Conn.close
Set Conn = nothing
%>

//>Rune

Den sletter alle records der står #dato# i, hvis jeg skriver 28-04-2002 bliver den ikke slettet, men 05-05-2002 bliver slettet.
Det ser ud til at den kun tager det før den første - så alt under 14 bliver slettet selvom 05-05-2002 er en senere dato.

Sorry.. det her...
- for nu skulle den gerne slette kun én record!
<!-- #include file="DB.asp" -->
<%
Session.LCID = 1030
'Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open strDSN

slet = date()
strSQL = "DELETE FROM Annoncer where slettes = #28-04-2002#"
Conn.Execute strSQL,lngRecords
'Conn.execute (SQL)
response.write slet & "<br>"
response.write lngRecords
Conn.close
Set Conn = nothing
%>

//>Rune

Hmm.. lige en ting.. hvorfor bruger du denne DateAdd("d", 14, date()) ?

//>Rune

Nå nu virker det :)
Med følgende kode:
<!-- #include file="DB.asp" -->
<%
Session.LCID = 1030
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open strDSN
slet = date()
strSQL = "DELETE FROM Annoncer where slettes < #" & slet & "#"
Conn.execute (strSQL)
Conn.close
Set Conn = nothing
%>
record oprettes med:
rs("slettes") = DateAdd("d", 14, date())
og "datatype" skal stå til dato og tid, hvis den står til tekst sletter den bare alle records med noget i stettes :)

Du skriver :
jeg opretter records med:
rs("slettes") = "#" & DateAdd("d", 14, date) & "#"

Det må du ikke. # skal ikke med - det skal de kun hvis du indsæter med SQL.
"insert into tabel (dato) values (#" & DateAdd("d", 14, date) & "#)"

Jeg har rettet din første kode til så det sletter alle records med dato før i dag.


<!-- #include file="DB.asp" -->
<%
function FDate(V) ' Formatér dato til Access-SQL-syntax MM-DD-YYYY
  FDate = Month(V) & "-" & Day(V) & "-" & year(V)
end function

Session.LCID = 1030
'Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open strDSN

slet = date()
strSQL = "DELETE FROM Annoncer where slettes <= #" & FDate(date) & "#"
Conn.Execute strSQL,lngRecords
'Conn.execute (SQL)
response.write slet & "<br>"
response.write lngRecords
Conn.close
Set Conn = nothing
%>

Ovenstående virker på en Access-database.

Den kode du er kommet frem til virker ikke på en Access-database. Men det finder du nok ud af senere - så kan du jo oprette en nyt ? eller anvende den kode jeg har lavet. :-)

Thx 4 Poinz
//>Rune

coltau> jeg bruge en access-database

Din kode virker når du anvender en dato efter den 11 i måneden. Prøv at anvende en dato før den 12 i måneden så fejler den.

hmmm dam det havde jeg ikke lige set :)
svar på: http://www.eksperten.dk/spm/197931 også er der point til dig :)