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.
Rispondi quotando