Ho un problema con il codice sotto.
Non ho mai lavorato con le RegExp, cerco un'esperto.

codice:
<%
Function RegExpMap(str)
  Dim objRegExp
  Set objRegExp = New RegExp

  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  objRegExp.Pattern = "<img id=carteDyn((.|\n)*?)>"
  Set objRegExp = Nothing
End Function

'l'url da scaricare
url_pagina = "http://www.pagina.it"

Set Objxml = Server.CreateObject("Msxml2.ServerXMLHTTP") 

Objxml.Open "Get", url_pagina, False 

Objxml.Send 

stringa = Objxml.responseText 

Set Objxml = Nothing 

'Response.Write(stringa) 
Dim myFile 
myFile = "temp_map.asp" 
Set fs=Server.CreateObject("Scripting.FileSystemObject") 
Set ts = fs.CreateTextFile(Server.MapPath(myfile), True) 
ts.WriteLine RegExpMap(stringa)
ts.Close 
set ts=Nothing 
set fso = Nothing 

%>
Il codice recupera una pagina in remoto, estrae solo il tag <img con id="noneID" e lo scrive in un file.
Tutto sembra funzionare ma all'interno del file non c'è scritto niente.
Qualche esperto in materia di RegExp può aiutarmi.
Grazie