Är det någon som har en lösning hur man datumstyr posthämtning från en databas. Jag vill endast hämta (via asp-kod) de poster som har legat i databasen i 14 dagar, räknat från dagens datum.


/från en hjärna som har tagit helgledigt

Hejsan!

Testa denna!

' Dagens datum
Idag = CDate(Date())
' Datum från databasen
Datum = CDate(RS("datum"))

' Räknar ut diff mellan datumen
Diff = DateDiff("d", Datum, Idag)

' Om denna diff är LIKA MED 14 så skall det loopas
If Diff = 14 Then
Do While Not RS.EOF
Response.Write(RS("fältnamn") & "<br>")

RS.MoveNext
Loop

' Annars skrivs det följande
Else
Response.Write("Inga poster som är 14 dagar gamla")

End If


mvh
Torbjörn

<%
Dim conn
Dim rsTemp
Dim fldNewsID
Dim fldNewsDate
Dim fldNewsCaption
Dim strSQL
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "<<<ConnectionString>>>"

strSQL = "SELECT * FROM News WHERE News.NewsDate >= Date() - 14 ORDER BY News.NewsDate"
'SQL-Server
'strSQL = "SELECT * FROM News WHERE News.NewsDate >= GETDATE() - 14 ORDER BY News.NewsDate"

Set rsTemp = Server.CreateObject("ADODB.Recordset")
rsTemp.Open strSQL, Conn

If rsTemp.Eof
Response.Write "Inga nyheter!"
Else
Set fldNewsID = rsTemp("NewsID")
Set fldNewsDate = rsTemp("NewsDate")
Set fldNewsCaption = rsTemp("NewsText")
Do
Response.Write "<B>" & fldNewsDate & "</B><BR>" & vbCrLf
Response.Write "" & fldNewsText & "<BR>" & vbCrLf
Loop Until rsTemp.Eof
End if

%>

En lite kortare version som åxå borde funka....

Idag = CDate(Date())
Datum = CDate(RS("datum"))
If Datum = Idag - 14 Then
Response.Write(Datum & "<br>")
Else
Response.Write("Inga nyheter")
End If

mvh
Torbjörn