bonjour
dans la page précédente il y à un tableau avec des cases à cocher (il y en à 6) il y a donc la boucle qui scrute les cases cochées
et si une case est cochée alors j'extrais les données de cette base en offrant la possibilité d'effacer ce champ
le listage de cases cochées fonctionne très bien
mais l'édition de la base merde quand elle est inséré dans cette boucle (toute seule elle fonctionne très bien)
si je clique sur DEL j'ai le message de fin "Ben... vous n'avez rien coché" et rien ne c'est effacé
est ce qu'un pro de asp pourrait m'aider SVP
merci
<html>
....
<%z=request.form("base" ).Count
if request.form("base" ).Count then%>
<%for u=1 to z
val=request.form("base" )(u)%>
<h2>La base <%=val%>
<%if val="liens" then
Set objConn = Server.CreateObject ("ADODB.Connection" )
objConn.open "contact"
Select Case Request.Querystring ("Page" )
Case "Del" :
Sql = "Delete * From [liens] Where N° = " & Request ("N°" )
Set Rs = Server.Createobject ("Adodb.Recordset" )
Rs.Open Sql, Objconn
Response.Redirect "marc.Asp"
Rs.Close
Set Rs = Nothing
Case Else :
Sql = "Select * From [liens] Order By Jour Desc"
Set Rs = Server.Createobject ("Adodb.Recordset" )
Rs.Open Sql, Objconn
While Not Rs.Eof
Response.Write "<Center><Table Width=""90%"" Cellspacing=""0"" Border=""1"" Cellpadding=""2"" Bordercolor=""#996600"">" & _
"<Tr>" & _
"<Td>" & Rs ("jour" )& "</Td>" & "<Td>" & Rs ("nom" )& "</Td>" & "<Td>" & Rs ("prenom" )& "</Td>" & "<Td>" & Rs ("vous" ) & "</Td>" & _
"</Td>" & "<Td>" & rs("URL" ) & "</Td>" & "</Td>" & "<Td Colspan=""2"" Align=""Center""><A Href=?Page=Del&N°=" & Rs ("N°" ) & ">Del</A></Td>" & _
"</Tr><Tr>" & _
"<Td Colspan=""10"">" & Replace (Rs("justification" ), Vbcrlf, "<Br>" ) & "</Td>" & _
"</Tr></Table></Center><P>"
Rs.Movenext
Wend
Rs.Close
Set Rs = Nothing
Objconn.Close
Set Objconn = Nothing
End Select %>
<%end if %>
<%if val="liensE" then
Set objConn = Server.CreateObject ("ADODB.Connection" )
objConn.open "contact"
Select Case Request.Querystring ("Page" )
Case "Del" :
Sql = "Delete * From [lienseleve] Where N° = " & Request ("N°" )
Set Rs = Server.Createobject ("Adodb.Recordset" )
Rs.Open Sql, Objconn
Response.Redirect "marc.Asp"
Rs.Close
Set Rs = Nothing
Case Else :
Sql = "Select * From [lienseleve] Order By Jour Desc"
Set Rs = Server.Createobject ("Adodb.Recordset" )
Rs.Open Sql, Objconn
While Not Rs.Eof
Response.Write "<Center><Table Width=""90%"" Cellspacing=""0"" Border=""1"" Cellpadding=""2"" Bordercolor=""#996600"">" & _
"<Tr>" & _
"<Td>" & Rs ("jour" )& "</Td>" & "<Td>" & Rs ("nom" )& "</Td>" & "<Td>" & Rs ("prenom" )& "</Td>" & "<Td>" & Rs ("vous" ) & "</Td>" & _
"</Td>" & "<Td>" & rs("URL" ) & "</Td>" & "<Td>" & rs("rubrique" ) & "</Td>" & "</Td>" & "<Td Colspan=""2"" Align=""Center""><A Href=?Page=Del&N°=" & Rs ("N°" ) & ">Del</A></Td>" & _
"</Tr><Tr>" & _
"<Td Colspan=""10"">" & Replace (Rs("justification" ), Vbcrlf, "<Br>" ) & "</Td>" & _
"</Tr></Table></Center><P>"
Rs.Movenext
Wend
Rs.Close
Set Rs = Nothing
Objconn.Close
Set Objconn = Nothing
End Select %>
<%end if %>
</CENTER></BODY></HTML>
<%next
else%>
Ben... vous n'avez rien coché<br>
<%end if%></h2>
</font></h2>
</font></BODY>
</html>
