<% Param = Request.QueryString("Param") Data = Request.QueryString("Data") %> <% 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 %> <% sql = "SELECT * FROM [chansons]" If cstr(Param) <> "" And cstr(Data) <> "" Then sql = sql & " WHERE [" & cstr(Param) & "] = " & cstr(Data) End If Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 %> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% rs.MoveNext loop%>
chansons
Titre Durée Tonalité Tempo Minutes Secondes Statut Artiste(s)
<%=Server.HTMLEncode(rs.Fields("Titre").Value)%>
<%=Server.HTMLEncode(rs.Fields("Durée").Value)%>
<%=Server.HTMLEncode(rs.Fields("Tonalité").Value)%>
<%=Server.HTMLEncode(rs.Fields("Tempo").Value)%>
<%=Server.HTMLEncode(rs.Fields("Minutes").Value)%>
<%=Server.HTMLEncode(rs.Fields("Secondes").Value)%>
<%=Server.HTMLEncode(rs.Fields("Statut").Value)%>
<%=Server.HTMLEncode(rs.Fields("Artiste(s)").Value)%>