Salve a tutti, ho questo listato che mi genera un file XML in una cartella del mio server web:

listato ges-dbu-mlk.asp:

dim strdove,strfile,strhtml,strfilepath,XMLhttp
strdove = "http://localhost/estrazione.asp?anno="&request("anno")&".xml"

'--- LETTURA DATI
' si connette all'indirizzo indicato e scarica il codice HTML
Set XMLhttp = Server.CreateObject("Microsoft.XMLHTTP")
XMLhttp.open "GET", strdove, False
XMLhttp.send
strHtml=XMLhttp.responseText
Set XMLhttp = Nothing

'--- SCRITTURA DATI
' crea un file con il nome indicato e ci scrive l'html che ha
' preso dall'indirizzo
strfilepath = Server.MapPath( "xml_dbu/" & strfile )
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.CreateTextFile(strfilepath, True)

objFile.Write strHtml
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing

Il file chiamato e' questo estrazione.asp:

<% Response.ContentType="application/xml" %>
<?xml version="1.0" encoding="UTF-8"?>
<%
...
anno = request("anno")
....

Set oCustomer = conn_dbu.Execute("SELECT TOP 530 * FROM MLKData WHERE (ragSoc is not null) AND ((StatoDBU = '1') OR (StatoDBU = '2')) ORDER BY RagSoc")

%>
...
costruzione xml
...

Ora se al posto di TOP 530 metto un valore inferiore anche di uno (529) il programma funziona perfettamente. Se metto * o un valore superiore al 529 mi da il seguente errore:

Errore di run-time di Microsoft VBScript error '800a0005'
Chiamata di routine o argomento non validi
/ges-dbu-mlk.asp, line 41

la linea 41: objFile.Write strHtml


non so cosa fare, suggerimenti ?
idee ?

Mau.