copiare record tra tabelle

[Sebvegeth]

cerco di copiare un record da una tabella all'altra dello stesso db in questo modo

strSQL="SELECT * FROM Nonpagati WHERE Codice='"& Codice &"'"
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.open strSQL, conn 
ID = rs(0)
Nome = rs(1)
Cognome = rs(2)
Mail = rs(3)
Regalo = rs(8)
NomeRef = rs(10)
CognomeRef = rs(11)
MailRef = rs(12)
Data = Date()
Ora = Time()
rs.Close
set rs = Nothing

strSQL="SELECT * FROM Pagati"
Set rs = Server.CreateObject("ADODB.Recordset") 
rs.open strSQL, conn 
rs.AddNew 
rs("ID") = ID 
rs("Data") = Data
rs("Ora") = Ora
rs("Nome") = Nome 
rs("Cognome") = Cognome 
rs("Mail") = Mail 
rs("Codice") = Codice
rs("Regalo") = Regalo 
rs.Update 

objConn.Execute "UPDATE Pagati SET Bonus = Bonus + 1 WHERE Nome=" & NomeRef & " AND Cognome='"& CognomeRef &"' AND Mail='"& MailRef &"'" 
rs.Close
set rs = Nothing

ma mi da quest'errore:

ADODB.Recordset error '800a0cb3'
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

perchè?? qlc sa dirmi il motivo??

[asdfgasdfg]

rs.open strSQL, conn

rs.open strSQL, conn ,2,2

[Sebvegeth]

ok, ora però mi da quest'altro errore sull'udpdate

Object required: 'objConn'

il codice dell'update è questo

objConn.Execute "UPDATE Pagati SET Bonus = Bonus + 1 WHERE Nome=" & NomeRef & " AND Cognome='"& CognomeRef &"' AND Mail='"& MailRef &"'"

perchè??

[asdfgasdfg]

perchè il nome della tua connessione è conn non objconn

objConn.Execute

Conn.Execute

[Sebvegeth]

ops...è vero :tongue:
ultima cosa...ora mi dice Object Required sulla rs.close di questa parte di codice

strSQL="SELECT COUNT(*) AS tot_rec FROM Provvisori"
set rs = server.createobject("adodb.recordset")
rs.open strSQL, conn ,2,2
tot_rec = 0
if not rs.eof then
tot_rec = rs("tot_rec")
end if
rs.close
set rs = nothing
if tot_rec > 19 then
strSQL="DELETE * FROM Provvisori"
conn.execute(strSQL)
end if
rs.Close
set rs = Nothing

why?

[Sebvegeth]

risolto :metallica