moving from one table to another using asp [with errors]

[Jeremy]

I am having trouble moving a record from one table to another. I keep
getting the following error:

Microsoft VBScript runtime error '800a01a8'
Object required: '[string: "rs('Photo') & ', ' &"]'
/photogallery/adminupdate.asp, line 27

I've included my code. Anyone know what this error means & how to go
about remedying it? I'd appreciate any response!

Thanks in advance!

Jeremy

<% LANGUAGE="VBScript"
const adOpenDynamic = 2
const adLockOptimistic = 3

dim sqt

'capture form elements
accept = Request.form("accept")
feature = Request.form("feature")
key = Request.form("key")

'open database and get the record based upon the key
set conn = server.createobject("ADODB.Connection")
conn.Open("DSN=photo")
sqlText = "SELECT * FROM Table1 WHERE Photo = '" & key & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sqlText, conn, adLockOptimistic, adOpenDynamic

'make updates in the record
rs("Accept") = accept
rs("Feature") = feature
rs.Update

' if not accepted delete - if accepted copy to other table then delete
if rs("Accept") = "False" then
rs.delete
else
Set sqt = rs("Photo") & ", " & rs("Unm") & ", " & rs("IID") & ", " &
rs("Title") & ", " & rs("Species") & ", " & _
rs("Gender") & ", " & rs("PerchFly") & ", " & rs("Country") & ", " &
rs("Region") & ", " & rs("Description") & ", " & _
rs("Keywords") & ", " & rs("Feature") & ", " & rs("Entered") & ", "
& rs("Accept")"

Set sqlText = "INSERT INTO Table2 (" & sqt & _
")"
rs.Open sqlText, conn
rs.delete
End if

rs.close
conn.close
Response.Write "Record Updated"
Response.Redirect "adminscreen.asp"

%>

[David C. Holley]

What do you mean by 'moving a record' and why do you want to 'move' it?

David H

Jeremy wrote:

> I am having trouble moving a record from one table to another. I keep
> getting the following error:
>
> Microsoft VBScript runtime error '800a01a8'
> Object required: '[string: "rs('Photo') & ', ' &"]'
> /photogallery/adminupdate.asp, line 27
>
> I've included my code. Anyone know what this error means & how to go
> about remedying it? I'd appreciate any response!
>
> Thanks in advance!
>
> Jeremy
>
> <% LANGUAGE="VBScript"
> const adOpenDynamic = 2
> const adLockOptimistic = 3
>
> dim sqt
>
> 'capture form elements
> accept = Request.form("accept")
> feature = Request.form("feature")
> key = Request.form("key")
>
> 'open database and get the record based upon the key
> set conn = server.createobject("ADODB.Connection")
> conn.Open("DSN=photo")
> sqlText = "SELECT * FROM Table1 WHERE Photo = '" & key & "'"
> Set rs = Server.CreateObject("ADODB.Recordset")
> rs.Open sqlText, conn, adLockOptimistic, adOpenDynamic
>
> 'make updates in the record
> rs("Accept") = accept
> rs("Feature") = feature
> rs.Update
>
> ' if not accepted delete - if accepted copy to other table then delete
> if rs("Accept") = "False" then
> rs.delete
> else
> Set sqt = rs("Photo") & ", " & rs("Unm") & ", " & rs("IID") & ", " &
> rs("Title") & ", " & rs("Species") & ", " & _
> rs("Gender") & ", " & rs("PerchFly") & ", " & rs("Country") & ", " &
> rs("Region") & ", " & rs("Description") & ", " & _
> rs("Keywords") & ", " & rs("Feature") & ", " & rs("Entered") & ", "
> & rs("Accept")"
>
> Set sqlText = "INSERT INTO Table2 (" & sqt & _
> ")"
> rs.Open sqlText, conn
> rs.delete
> End if
>
> rs.close
> conn.close
> Response.Write "Record Updated"
> Response.Redirect "adminscreen.asp"
>
> %>

[Aaron [SQL Server MVP]]

> Set sqt = rs("Photo") & ", " & rs("Unm") & ", " & rs("IID") & ", " &
....

> Set sqlText = "INSERT INTO Table2 (" & sqt & _

Don't use SET to create strings!!!
[url]http://www.aspfaq.com/2283[/url]

--
[url]http://www.aspfaq.com/[/url]
(Reverse address to reply.)