View Single Post
  #2 (permalink)  
Old Oct 11th, 2004, 10:21
spinal007's Avatar
spinal007 spinal007 is offline
Moderator
Join Date: Mar 2004
Location: Good Ol'London
Age: 23
Posts: 1,650
Blog Entries: 1
Thanks: 0
Thanked 4 Times in 4 Posts
hard?

put this at the top of your page:
Code: Select all
<%
' connect rs to database
For Each record In Request("Delete")
 rs.Open "DELETE * FROM [Table Name] WHERE (ID=" & record & ")"
Next ' record
%>
obviously, connect the recordset to the database and put in your table name

then use this link to delete a record:
Code: Select all
?delete=<%=admin("ID")%>">delete me!
heres the full code:
Code: Select all
<% 
While ((Repeat1__numRows <> 0) AND (NOT admin.EOF)) 
%>

      <tr bgcolor="#E6E6E6"> 
        <td width="182" bordercolor="#0D5692" height="1" align="center" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#FFFFFF"> 
          <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=(admin.Fields.Item("name").Value)%></font></div>
        </td>
        <td width="120" bordercolor="#0D5692" height="1" align="center" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#FFFFFF"> 
          <div align="center" style="width: 6; height: 0"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=(admin.Fields.Item("ID").Value)%></font></div>
        </td>
        <td width="181" bordercolor="#0D5692" height="1" align="center" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#FFFFFF"> 
          <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=(admin.Fields.Item("email").Value)%></font></div>
        </td>
        <td width="115" bordercolor="#0D5692" height="1" align="center" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#FFFFFF"> 
          <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=(admin.Fields.Item("username").Value)%></font></div>
        </td>
        <td width="116" bordercolor="#0D5692" height="1" align="center" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#FFFFFF"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=(admin.Fields.Item("password").Value)%></font></td>
        <td width="51" bordercolor="#0D5692" height="1" align="center" bordercolorlight="#000000" bordercolordark="#000000" bgcolor="#FFFFFF">
 <input type=submit name=Delete value="delete">

          <div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
          ?delete=<%=admin("ID")%>">Delete
          </font></div>
        </td>
      </tr>
      <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  admin.MoveNext()
Wend
%>
</FORM>