Delete All Record in a search result page?

Monie · #1 Nov 10th, 2004, 02:03

Hai spinal...
I have this page that will displays all the information from a search page.
The user will enter a DATE in the search page and then the result page will display all the DATE that the user requested.

What i want to do in this result page is,
I want to delete all the RECORD/DATA displayed in the result page and then after deleting, the page will redirect to the main page. I dont know how to do that spinal. Could you help me please.

Below is my code for the result page. "bnBookDate" is the search field in the search page.
I tried to use your delete by checkbox in this code but I cannot manage to modify them because after deleting,
we cannot display back the data(which your code does that..) We must redirect the page to another page.

Please spinal...HELP ME!

Result page: This is an action page comes from the search page.

Code: Select all

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim rs__MMColParam
rs__MMColParam = "1"
if (Request.QueryString("bnBookDate") <> "") then rs__MMColParam = Request.QueryString("bnBookDate")
%>
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_bn_STRING
rs.Source = "SELECT *  FROM BN  WHERE bnBookDate = '" + Replace(rs__MMColParam, "'", "''") + "'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
rs_numRows = 0
%>

The only thing that I wanted to do in the result page is to delete all the data that are displayed only?
Please help me.........

da_stimulator · #2 Nov 10th, 2004, 22:13

Loop through the RS and store the unique identifier into an array, then loop through the array deleting the records...

Example:

Code: Select all

Dim strArray(1)
i=0
if not(rs.eof) then
  do while not(rs.eof)
  strArray(i) = rs("bnID")

  i = i + 1

  ReDim Preserve rsArray(i)
  rs.movenext
  loop

  For i = 0 to Ubound(rsArray)
    strsql = "DELTE FROM BN WHERE bnID=" & rsArray(i)
    MM_bn_STRING.execute(strsql)
    response.write("Record " & rsArray(i) & " Deleted
" & vbcrlf)
   i=i+1
  Next
else
  response.write("No Results")
end if

Monie · #3 Nov 11th, 2004, 03:15

What if I do this...
The data wont be display...it only delete them and then redirect them to another page..."delete_success.asp"

Code: Select all

<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_bn_STRING
rs.Source = "DELETE *  FROM BN  WHERE bnBookDate = '" + Replace(rs__MMColParam, "'", "''") + "'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
rs_numRows = 0
response.redirect "delete_success.asp"
%>

If I want to use your code...Could you tell me where should I put them in my existing code?
Thanx .....

da_stimulator · #4 Nov 11th, 2004, 03:27

Judging from you're current code you know enough to judge placement, my code wont work by itself, you need to customize it to fit you're needs, that was just an example for you to go off of.

Right after it processes the delete queries, place a response.redirect("whereverYouWantToGo.asp")

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Record the link you clicked to leave my page	TheSealPortalTeam	PHP Forum	22	May 5th, 2008 20:05
Printing single record from Access via Report in Web Page	Neotekk	JavaScript Forum	0	Jun 18th, 2007 15:20
Add/Delete/Modify Database Record form	David Blake	Starting Out	6	May 1st, 2007 16:22
Delete file in password protected page.	SweetLou	Classic ASP	4	Jan 7th, 2006 21:15
Delete record problem	Gee Bee	Databases	2	Jan 4th, 2006 18:28

		Webforumz.com > Main Forums > Program Your Website > Classic ASP
Delete All Record in a search result page?