Delete Record Help

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Delete Record Help

Logged in as: Guest

arrSession:exec spGetSession 2,3,779

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> ASP >> Delete Record Help
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Delete Record Help - 2/10/2003 12:16:39 PM

nicksalls

Posts: 1
Score: 0
Joined: 2/10/2003
From:
Status: offline

Hello,
Can someone please tell me whats wrong with this code? I get this error

Microsoft VBScript runtime error '800a01a8'

Object required: 'SELECT * FROM Email '

/adminarea/clients/email/deleteemail_step2.asp, line 79

My Code ------------------

<%

Dim rsDeleteLink__MMColParam
rsDeleteLink__MMColParam = "1"
if (Request.QueryString("Email_id") <> "") then rsDeleteLink__MMColParam =
Request.QueryString("Email_id")

Dim conn, rs, strsql
set conn = server.CreateObject("ADODB.Connection")
set rs = server.CreateObject("ADODB.Recordset")

'DSN less connection
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source=" &
Server.MapPath("../../../../database/wgcdesigns.mdb")
conn.open

strsql = "SELECT * FROM Email WHERE Email_id = " +
Replace(rsDeleteLink__MMColParam, "'", "''") + ""

strsql.Execute

rs.MoveFirst
rs.Delete
rs.Close
Set rs = Nothing

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

%>