[Database.asp] Optimierung

[sven . kriehn]

Hi,

ich habe folgendes Script auf dem SQL-Server in einem DTS laufen:

Function Main()
        Dim conn
        Dim rs,rs2
        Set conn = CreateObject("ADODB.Connection")
        conn.Open = "Provider=SQLOLEDB.1;Data Source=vdrssql22\web; Initial 
Catalog=QUSUPPLIER;user id = 'qudb_admin';password='_quadmin'"
        
        Set rs = CreateObject("ADODB.Recordset")
        QuellSQL="Select tb_SpecIndex_espec.Specnr, tb_SpecIndex_espec.Specdesc From 
tb_SpecIndex, tb_SpecIndex_espec where tb_SpecIndex_espec.Specnr = 
tb_SpecIndex.actSpecNr"
        rs.Open QuellSQL, conn, 3, 3

        Set rs2 = CreateObject("ADODB.Recordset")
        Do while Not rs.EOF
                UpSQL="Update tb_SpecIndex Set actSpecTitle ='" & rs("Specdesc") &"' 
where actSpecNr = '"& rs("Specnr") & "'"
                rs2.Open UpSQL, conn, 3, 3
        rs.MoveNext
        Loop
        
        Set rs = nothing
        Set rs2 = nothing
        conn.close
        Set conn = nothing
        Main = DTSTaskExecResult_Success
End Function

Leider bekomme ich bei der Ausf�hrung immer ein Scripttimeout. Kan ich hier noch 
irgendwas optimieren oder die Aufgabe irgendwie anders l�sen?

Gruss Sven

_______________________________________________
Database.asp mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/database.asp