Optimering af kode...

Jeg skal flytte data fra en tabel ind i en anden. Jeg har en tabel med varemærker, hvert varemærke har et 3 cifret nummer tilknyttet.

tabellen brand ser således ud:
Brand_name | Brand_nummer
Yamaha    | 030
osv.

Disse 3 cifre er starte på vores varenummer.
og skal derfor flyttes over i tabellen Vare, i vare_nummer

Jeg har lavet nedenstående kode. Men det må kunne gøres bedre og mere effektivt, og vigtigst af alt uden at scriptet laver en timeout.


SQL = " SELECT * from brand"
Set RS = conn.execute(SQL)
Do until rs.eof

Str_brand = Trim(Replace(RS("Brand_name"),"'",""))
Str_nummer = rs("Brand_nummer")

Faq_SQL="Select * from vare Where Brand like '"& Str_brand &"'"
Set Faq_RS = conn.execute(faq_SQL)
Do until FAQ_RS.EOF
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
  Recordset1.Open Faq_SQL, Conn, 2, 3

    Recordset1("Vare_nummer") = Str_nummer
  Recordset1.Update
Recordset1.Close
FAQ_RS.movenext
Loop

Rs.movenext
Loop