CONSULTATION DEMANDES OFFRES Choix de la rubrique <% Session.timeout = 5 If IsObject(Session("PASP_conn")) Then Set conn = Session("PASP_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "PASP","PASP","PASP" Set Session("PASP_conn") = conn End If %> <% sql = "SELECT Rubriques.IDRUBRIC, Rubriques.Nom FROM Rubriques " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %> <% On Error Resume Next rs.MoveFirst %> "><%=Server.HTMLEncode(rs.Fields("Nom").Value)%> <% rs.MoveNext do while Not rs.eof %> "><%=Server.HTMLEncode(rs.Fields("Nom").Value)%> <% rs.MoveNext loop%> Sponsor/Parrain : Réservez votre rubrique Envoyez-nous vos remarques et suggestions
Choix de la rubrique <% Session.timeout = 5 If IsObject(Session("PASP_conn")) Then Set conn = Session("PASP_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "PASP","PASP","PASP" Set Session("PASP_conn") = conn End If %> <% sql = "SELECT Rubriques.IDRUBRIC, Rubriques.Nom FROM Rubriques " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %> <% On Error Resume Next rs.MoveFirst %> "><%=Server.HTMLEncode(rs.Fields("Nom").Value)%> <% rs.MoveNext do while Not rs.eof %> "><%=Server.HTMLEncode(rs.Fields("Nom").Value)%> <% rs.MoveNext loop%>
Envoyez-nous vos remarques et suggestions
