deleting access database record

[Tim Midgett]

I am trying to write an asp page to delete a record from my access database. I have written the page to display the info but when I select the entry to be deleted I get the following error message:
ADODB.Recordset (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/delete_entry.asp, line 20

Here is the code I am using:
<%
option Explicit
Dim adoCon
Dim rsDeleteEntry
Dim strSQL
Dim IngRecordNo

IngRecordNo = CLng(Request.QueryString("ID_no"))

Set adoCon = Server.CreateObject("ADODB.Connection")

adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("ccalls.mdb")

Set rsDeleteEntry = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT calltable.* FROM calltable WHERE ID_no=" & IngRecordNo

rsDeleteEntry.LockType = 3
rsDeleteEntry.Open strSQL, adoCon
rsDeleteEntry.Delete
rsDeleteEntry.Close

Set DeleteEntry = Nothing
Set adoCon = Nothing
Response.Redirect "delete_select.asp"
%>

I think it has to do with the EOF but I am new to asp and a little lost. :)
Thanks Tim

-----------------------------
This message is posted by [url]http://Asp.ForumsZone.com[/url]

[Tim Midgett]

Yea still at it Ray :)
I will give it a try. I hope I understand enought to do what you
suggested. hehe (tough to teach a newbie)
Thanks Tim


*** Sent via Developersdex [url]http://www.developersdex.com[/url] ***
Don't just participate in USENET...get rewarded for it!

[Tim Midgett]

Hey Ray thanks got it to work with the following:


<%
option Explicit
Dim adoCon
Dim rsDeleteEntry
Dim strSQL
Dim IngRecordNo

IngRecordNo = CLng(Request.QueryString("ID"))

Set adoCon = Server.CreateObject("ADODB.Connection")

adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
Server.MapPath("ccalls.mdb")

adoCon.EXECUTE "DELETE FROM calltable WHERE ID_no=" & ingRecordNo

Set adoCon = Nothing
Response.Redirect "delete_select.asp"
%>

Thanks Tim

*** Sent via Developersdex [url]http://www.developersdex.com[/url] ***
Don't just participate in USENET...get rewarded for it!

[Ray at]

Outstanding! Excellent job! Good feeling when something works for the
first time, isn't it? One suggestion. Add

adoCon.Close

before you set it to nothing.

Ray at work

"Tim Midgett" <tmidgett@unitedfidelity.com> wrote in message
news:%23XPG2IkRDHA.3768@tk2msftngp13.phx.gbl...

> Hey Ray thanks got it to work with the following:
>
>
> <%
> option Explicit
> Dim adoCon
> Dim rsDeleteEntry
> Dim strSQL
> Dim IngRecordNo
>
> IngRecordNo = CLng(Request.QueryString("ID"))
>
> Set adoCon = Server.CreateObject("ADODB.Connection")
>
> adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
> Server.MapPath("ccalls.mdb")
>
> adoCon.EXECUTE "DELETE FROM calltable WHERE ID_no=" & ingRecordNo
>
> Set adoCon = Nothing
> Response.Redirect "delete_select.asp"
> %>
>
> Thanks Tim
>
> *** Sent via Developersdex [url]http://www.developersdex.com[/url] ***
> Don't just participate in USENET...get rewarded for it!