<% set conn=server.CreateObject("Adodb.connection") conn.Provider="Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Palais.mdb") conn.ConnectionTimeout = 0 conn.Open set rs=server.CreateObject("adodb.recordset") %>
Back to Home Page
English version
Lettre d'information
<%SQL_query = "select * from actualite where lang = 'french'" Set rs = conn.Execute(SQL_query)%> <% do WHILE NOT rs.EOF %> <%=rs("actual_title")%>
<%if rs("actual_image") <> "0" or rs("actual_image") <> null then%> " border="0" alt="" align="right"> <%end if%> <%=rs("actual_text")%>


<% rs.MoveNext Loop %> Recevez la lettre d'information par courrier électronique

Nous respectons votre anonymat en conservant pour votre inscription uniquement votre adresse e-mail nous permettant de vous envoyer l'information demandée.

<%rs.Close %> <%Conn.Close %>