När jag kör denna kod så kan jag ej se texten "Match idag!". Det fungerar om datumet är = 1 eller > 1, men inte 0. Vad är det för fel?
Vad ska jag skriva i min SQL-sats?
<% SQL = "SELECT TOP 1 * FROM 2003 WHERE datum > NOW"
Set RS = Conn.Execute(SQL)
%>
<% Do While not RS.eof %>
<%
dim Datum
dim t
t = RS("datum")
Datum = datediff("d", date, t)
if datum = 1 then
response.Write RS("lag1") & "-" & RS("lag2") & "<br>" & Datum & " dag kvar<br><br>"
elseif datum > 1 then
response.Write RS("lag1") & "-" & RS("lag2") & "<br>" & Datum & " dagar kvar<br><br>"
elseif datum = 0 then %>
<%= RS("lag1") %>-<%= RS("lag2")%><br>Match idag!
<% end if %>
<%
SQL = "SELECT TOP 1 * FROM 2003 WHERE datum >= NOW"
Set RS = Conn.Execute(SQL)
If Not RS.EOF Then
Dagar = DateDiff("d", Date, RS("datum"))
If Dagar = 0 Then
Response.Write RS("lag1") & " - " & RS("lag2") & "<br>Match idag!"
ElseIf Dagar = 1 Then
Response.Write RS("lag1") & " - " & RS("lag2") & "<br>1 dag kvar<br><br>"
Else
Response.Write RS("lag1") & " - " & RS("lag2") & "<br>" & Dagar & " dagar kvar<br><br>"
End If
End If
%>
<%
SQL = "SELECT TOP 1 * FROM 2003 WHERE datum >= Now ORDER BY datum"
Set RS = Conn.Execute(SQL)
If Not RS.EOF Then
If FormatDateTime(RS("datum"), vbShortDate) = Date() Then
Response.Write RS("lag1") & " - " & RS("lag2") & "<br>Match idag!"
Else
Dagar = DateDiff("d", Date(), RS("datum"))
If Dagar = 1 Then
Response.Write RS("lag1") & " - " & RS("lag2") & "<br>1 dag kvar<br><br>"
Else
Response.Write RS("lag1") & " - " & RS("lag2") & "<br>" & Dagar & " dagar kvar<br><br>"
End If
End If
End If
%>