<%@LANGUAGE="VBSCRIPT"%>
<%
set Rsactu = Server.CreateObject("ADODB.Recordset")
Rsactu.ActiveConnection = session("connexion")
Rsactu.Source = "SELECT top 1 * FROm dbo_semvie.message WHERE "& DATE &" between date_debut and date_fin"
Rsactu.CursorType = 3
Rsactu.CursorLocation = 2
Rsactu.LockType = 3
Rsactu.Open()
if Rsactu.recordcount = 0 then
Rsactu.Close()
Rsactu.Source = "select top 1 * from dbo_semvie.message where date>"& DATE &" order by date"
Rsactu.CursorType = 3
Rsactu.CursorLocation = 2
Rsactu.LockType = 3
Rsactu.Open()
end if
if Rsactu.recordcount = 0 then
Rsactu.Close()
Rsactu.Source = "select top 1* from dbo_semvie.message where date<"& DATE &" order by date desc"
Rsactu.CursorType = 3
Rsactu.CursorLocation = 2
Rsactu.LockType = 3
Rsactu.Open()
end if
%>
accueil
<%if Rsactu.recordcount<=0 then%>
Pas d'actualité pour le moment
<%else%>
Date: <%=trim(Rsactu("date"))%>
<%=trim(replace(Rsactu("message"),vbcrlf," "))%>
<%end if%>
