<% 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
French version
Information Letter
<%SQL_query = "select * from actualite where lang = 'english'" 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 %> Receive this information letter by e-mail

Your anonymity is respected and for registration purposes only your e-mail address is retained so that we can send you the information requested.

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