Salve amici,
utilizzo questo codice:

codice:
<%
Dim RSnuova
Dim RSnuova_cmd
Dim RSnuova_numRows

Set RSnuova_cmd = Server.CreateObject ("ADODB.Command")
RSnuova_cmd.ActiveConnection = MM_connArchivio_STRING
RSnuova_cmd.CommandText = "SELECT * FROM "&Request.Form("TABELLA")&"" 
RSnuova_cmd.Prepared = true

Set RSnuova = RSnuova_cmd.Execute
RSnuova_numRows = 0
%>
<% do while not RSnuova.EOF %>
<%
Dim RScompara
Dim RScompara_cmd
Dim RScompara_numRows

Set RScompara_cmd = Server.CreateObject ("ADODB.Command")
RScompara_cmd.ActiveConnection = MM_connArchivio_STRING
RScompara_cmd.CommandText = "SELECT * FROM tabdativisita WHERE tabdativisita.iddato = '"&(RSnuova.Fields.Item("ID").Value)&"'" 
RScompara_cmd.Prepared = true

Set RScompara = RScompara_cmd.Execute
RScompara_numRows = 0
%>
<% strConn = MM_connArchivio_STRING
set conn = Server.CreateObject("ADODB.Connection")
conn.Open strCOnn
SQL = "UPDATE "&Request.Form("TABELLA")&" SET ID = '"&(RScompara.Fields.Item("IdVisita").Value)&"' WHERE ID = '"&(RSnuova.Fields.Item("ID").Value)&"'"

conn.Execute (SQL)
conn.Close
set conn = nothing
%>
<% RSnuova.movenext
loop %>
per sostituire dei valori di ID in una tabella.

In pratica devo sostituire tutti gli ID della tabella A con l'ID della tabella B che ha IDDATO = ID.tabella A

Qualcuno conosce un modo più semplice?