Jag har en table som listar ut de poster som jag vill se. På varje rad finns ett check box. Om check box är inkliket, kan man klicka på en "Remove" knapp för att ta bort hela raden. du kan ju pröva med detta Du kan göra på följande sättCheck box
Hur kan man vetta vilka check box är inclickta?Sv: Check box
-------------------------------------------script----------------------------------
If Request("Id") <> "" Then
SQLStmt = "DELETE FROM Korg Where KorgId =" & Request("Id")
DB.Execute(SQLStmt)
End If
DO UNTIL RS.EOF
%><Label Value="<%= RS("Produktnamn") %>"></Label>
<b> <Label Value="<%= RS("Antal") %>">
<Label Value="<%= GetPrice() %>"> :-
<a href="beställning.asp?Id=<%= RS("KorgId") %>"><img src="delete.gif" alt="Radera" border="0" WIDTH="14" HEIGHT="13"></a
<%
SubTotal = SubTotal + (RS("Antal") * RS("Pris"))
RS.MoveNext
Loop
%>
-----------------------------script--------------------------------------------
Lite ommodifierad men du förstår principen
i Loopen så låter du ett (ID) följa med varje gång en ny produkt läggs upp när dom sedan trycker på ett X så försvinner det
MVH Per MSv: Check box
<code>
<%
<FORM action="" method=post id=form1 name=form1>
<TABLE cellSpacing=1 cellPadding=1 width="100%" border=1>
<TR>
<TD>Text</TD>
<TD>Delete</TD></TR>
<%
Dim vTemp
Dim strIN
Dim strSQL
Dim conn
Dim rsTemp
Dim fldRecID
Dim fldText
Set conn= server.CreateObject("ADODB.Connection")
conn.Open "<<<Connection String>>>"
If Request.Form("Action") = "Delete" Then
If Request.Form(DeleteID).Count Then
For each vTemp In Request.Form(DeleteID)
strIN = strIN & ", " & vTemp
Next
strSQL = "DELETE FROM TabellNamn WHERE RecID IN (" & Mid(strIN, 3) & ")"
conn.Execute strSQL
End if
End If
Set rsTemp = conn.Execute("SELECT * FROM TabellNamn")
Set fldRecID = rsTemp("RecID")
Set fldText = rsTemp("fldText")
Do Until rsTemp.EOF
Response.Write " <TR>" & vbCrLf & _
" <TD>" & fldText & "</TD>" & vbCrLf & _
" <TD><INPUT type=checkbox name=DeleteID value=""" & fldRecID & """></TD></TR>" & vbCrLf
rsTemp.MoveNext
Loop
Set fldRecID = Nothing
Set fldText = Nothing
rsTemp.Close
Set rsTemp = Nothing
conn.Close
Set conn = Nothing
%>
<TR>
<TD></TD>
<TD><INPUT type=submit value=Delete name=Action></TD></TR></TABLE></FORM>
%>
</code>