<%
' Test si cookies acceptés
If IsEmpty(Request("CS")) Then
Session("CookieSessionAccept") = "Yes"
URL = Request.ServerVariables("URL")
If Request.ServerVariables("QUERY_STRING") <> "" Then
URL = URL & "?" & Request.ServerVariables("QUERY_STRING")
End If
Response.Redirect("/testforcookie.asp?URL="&Server.URLEncode(URL))
End If
If Request("CS")="No" Then
msg = "window.alert('Votre navigateur n\'accepte pas les cookies.\nVous ne pourrez pas commander sur notre site sans les accepter.');"
Else
msg = ""
End If
Conn.Open Session("ConnectionString")
scriptName = Request.ServerVariables("SCRIPT_NAME")
%>
QMI - Votre moteur pour longtemps
<%
query = "SELECT actu_id, actu_titre, actu_chapeau, actu_image1 FROM actu_t WHERE actu_reference=false ORDER BY actu_date DESC, actu_id DESC"
Set RS = ExecuteSQL(Conn, query)
If Not RS.EOF Then %>
" height="173">