<% If IsObject(Session("attente_conn")) Then Set conn = Session("attente_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "attente","","" Set Session("attente_conn") = conn End If %> <% If IsObject(Session("Form_EntitE9s_musicales_de_Franck_POCHON_rs")) Then Set rs = Session("Form_EntitE9s_musicales_de_Franck_POCHON_rs") Else sql = "SELECT * FROM [groupes]" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 If rs.eof Then rs.AddNew End If Set Session("Form_EntitE9s_musicales_de_Franck_POCHON_rs") = rs End If %>
<%If Not IsNull(rs.Fields("Internet").Value) Then%> "> <%End If%> <%If Not IsNull(rs.Fields("Genre").Value) Then%> "> <%End If%> <%If Not IsNull(rs.Fields("Artiste(s)").Value) Then%> "> <%End If%>