<% 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_Chansons_de_Franck_POCHON_rs")) Then Set rs = Session("Form_Chansons_de_Franck_POCHON_rs") Else sql = "SELECT DISTINCTROW [chansons].[Titre], [chansons].[Minutes], [chansons].[Secondes], [chansons].[Statut], [groupes].[Artiste(s)], [groupes].[Genre], [groupes].[Internet] FROM ([groupes] INNER JOIN [chansons] ON [groupes].[Artiste(s)] =[chansons].[Artiste(s)]) " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 If rs.eof Then rs.AddNew End If Set Session("Form_Chansons_de_Franck_POCHON_rs") = rs End If %> <% If cstr(Request.QueryString("Internet")) <> "" Then rs.Fields("Internet").Value = Request.QueryString("Internet") End If If cstr(Request.QueryString("Genre")) <> "" Then rs.Fields("Genre").Value = Request.QueryString("Genre") End If If cstr(Request.QueryString("Artiste(s)")) <> "" Then rs.Fields("Artiste(s)").Value = Request.QueryString("Artiste(s)") End If If cstr(Request.QueryString("Statut")) <> "" Then rs.Fields("Statut").Value = Request.QueryString("Statut") End If If cstr(Request.QueryString("Secondes")) <> "" Then rs.Fields("Secondes").Value = Request.QueryString("Secondes") End If If cstr(Request.QueryString("Minutes")) <> "" Then rs.Fields("Minutes").Value = Request.QueryString("Minutes") End If If cstr(Request.QueryString("Titre")) <> "" Then rs.Fields("Titre").Value = Request.QueryString("Titre") End If tempVar = Request.QueryString("nav_btn") On Error Resume Next If cstr(tempVar)="nav_btn_MoveFirstRecord" Then rs.MoveFirst End If If cstr(tempVar)="nav_btn_MovePrevRecord" Then rs.MovePrevious If rs.bof Then rs.MoveNext End If End If If cstr(tempVar)="nav_btn_MoveNextRecord" Then rs.MoveNext If rs.eof Then rs.MovePrevious End If End If If cstr(tempVar)="nav_btn_MoveLastRecord" Then rs.MoveLast End If If cstr(tempVar)="nav_btn_MoveAddRecord" Then rs.AddNew End If If cstr(tempVar)="nav_btn_MoveCommitRecord" Then rs.Update rs.Requery End If If cstr(tempVar)="nav_btn_MoveCancelUpdate" Then rs.CancelUpdate rs.Resync End If If cstr(tempVar)="nav_btn_MoveDeleteRecord" Then rs.Delete rs.MoveNext If rs.eof Then rs.MovePrevious If rs.bof Then rs.AddNew End If End If End If On Error Goto 0 %>