aide sur un bp en ASP

Marsh Posté le 28-03-2002 à 19:12:23

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>

Marsh Posté le 28-03-2002 à 19:12:23

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *