error

Hello I am getting the following error message: Microsoft VBScript runtime (0x800A01A8)
Object required: ''''
/delete_entry.asp, line 17

When I try to delete a record. The following is the code to the delete_entry.asp page.
<%
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 reDeleteEntry = 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 ccalls = Nothing
Set adoCon = Nothing
Response.Redirect "deleteselect.asp"
%>

Any ideals what I am doing wrong?

Thanks Tim

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

Ray
Tue Jul 08 12:54:38 CDT 2003

Not that this is an answer to your question, but why are you creating a
recordset? Just create your ADODB.Connection and execute your sql command
if you want to delete.

Ray at work

"Tim Midgett" <tmidgett@unitedfidelity.com> wrote in message
news:549034873226468@Asp.ForumsZone.com...
> Hello I am getting the following error message: Microsoft VBScript runtime
(0x800A01A8)
> Object required: ''''
> /delete_entry.asp, line 17
>
> When I try to delete a record. The following is the code to the
delete_entry.asp page.
> <%
> 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 reDeleteEntry = 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 ccalls = Nothing
> Set adoCon = Nothing
> Response.Redirect "deleteselect.asp"
> %>
>
> Any ideals what I am doing wrong?
>
> Thanks Tim
>
> -----------------------------
> This message is posted by http://Asp.ForumsZone.com
>