Script troppo lento, come velocizzarlo

[iadream]

Salve amici,
utilizzo questo 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?

[optime]

con una UPDATE in JOIN, semplice!

[iadream]

ehm ehm cioè????

[optime]

maro', un programmatore con la tua esperienza...

lasciati ispirare da questo esempio

UPDATE tabella1 SET
tabella1.campo_da_aggiornare=tabella2.campo_con_va lore_da_leggere
FROM tabella1 JOIN tabella2 ON tabella1.campo_corrispondente=tabella2.campo_corri spondente

[iadream]

che esperienzaaaa!!! Si comunque c'ero quasi arrivato...spesso è colpa della PIGRIZIA...ma altrimenti a cosa servirebbero gli amici!!!!

[optime]

Originariamente inviato da iadream
Si comunque c'ero quasi arrivato...

come no


aho, 'sta bbbirra?

[iadream]

Ho parlato troppo presto... ho scritto:

SQL = "UPDATE "&Request.Form("TABELLA")&" SET ID = tabdativisita.IdVisita FROM "&Request.Form("TABELLA")&" JOIN tabdativisita ON "&Request.Form("TABELLA")&".id = tabdativisita.iddato"

e mi da il seguente errore

You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'FROM fondo JOIN tabdativisita ON fondo.id = tabdativisita.iddato' at line 1

[optime]

fatti stampare la query e postala

[iadream]

UPDATE lentiinuso SET lentiinuso.ID = tabdativisita.IdVisita FROM lentiinuso JOIN tabdativisita ON lentiinuso.ID = tabdativisita.IdDato

[optime]

non puoi aggiornare un dato che usi per la JOIN... è ILLOGICO