Hej
Har en databas med nyheter och vill visa nyheterna som är skrivna igår med texten Igår och nyheterna som är skrivna idag med texten Idag, hur skriver jag den koden i asp för att kunna sortera ut gårdagens och dagen post?

/Micke

<code>
SQL = "select * from nyheter where datum > '" & date -1 & "'"
rs.open SQL, Connect
do untilrs.EOF

datum = rs("datum")
if datediff(d,now,datum) = 1 then
dag = igår
elseif datediff(d,now,datum) = 0 then
dag = idag
else
dag = datum
end if

response.write("nyheten skriven: " & dag)
rs.movenext
loop
rs.close
</code>

Alltid snyggt med en funktion:
<code>
Function FriendlyDate(Value)
If IsDate(Value) Then
Select Case DateDiff("d", Value, Date)
Case 0
FriendlyDate = "Idag"
Case 1
FriendlyDate = "Igår"
Case Else
FriendlyDate = Value
End Select
End If
End Function

rs.Open "SELECT * FROM News", con
Do Intil rs.EOF
Response.Write "Nyheten skriven: " & FriendlyDate(rs("datum"))
rs.MoveNext
Loop
rs.close
</code>

Hej

skulle ha skrivit med koden från början och den ser ut så här:

<%

Set Connect = Server.CreateObject("ADODB.Connection")

Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq="_
& Server.MapPath("db/nyheter.mdb")&";"


SQLsats = "SELECT TOP 20 * FROM drivrutiner ORDER BY id DESC"

Set RecSet = Connect.Execute(SQLsats)


Response.Write ""
Do Until RecSet.EOF

Response.Write " <a href='nyheter.asp?id=" & RecSet("id") &"'>" & RecSet("rubrik") & " - Läst ant. gånger" &"-" & RecSet("lasa") & "<br>"

RecSet.MoveNext

Loop

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>

/Micke