<%
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 [groupes]"
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
%>
groupes
Artiste(s)
Genre
Internet
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>