<%
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
%>