<% 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_l_entitE9_rs")) Then Set rs = Session("Form_Chansons_de_l_entitE9_rs") Else sql = "SELECT * FROM [chansons]" 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_l_entitE9_rs") = rs 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 %>