Buondì
Premesso che forse non è il forum giusto... il mio problrma è il seguente.
Ho un db di access 2000 da cui esporto in xml (automaticamente alla chiusura di una mschera) una query tramite questo codice:

Private Sub Form_Close()
Application.ExportXML _
ObjectType:=acExportQuery, _
DataSource:="q_web_istrut", _
DataTarget:="k:\q_istrut.xml", _
SchemaTarget:="k:\q_istrut.xsd", _
PresentationTarget:="k:\q_istrut.xsl"
End Sub

Access crea quindi i 4 file suddetti tra cui il q_web_istrut.htm che contiene questo codice:

<HTML xmlns:signature="urn:schemas-microsoft-comffice:access">
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=UTF-8"/>
</HEAD>
<BODY ONLOAD="ApplyTransform()">
</BODY>
<SCRIPT LANGUAGE="VBScript">
Option Explicit

Function ApplyTransform()
Dim objData, objStyle

Set objData = CreateDOM
LoadDOM objData, "q_istrut.xml"

Set objStyle = CreateDOM
LoadDOM objStyle, "q_istrut.xsl"

Document.Open "text/html","replace"
Document.Write objData.TransformNode(objStyle)
End Function

Function CreateDOM()
On Error Resume Next
Dim tmpDOM

Set tmpDOM = Nothing
Set tmpDOM = CreateObject("MSXML2.DOMDocument.5.0")
If tmpDOM Is Nothing Then
Set tmpDOM = CreateObject("MSXML2.DOMDocument.4.0")
End If
If tmpDOM Is Nothing Then
Set tmpDOM = CreateObject("MSXML.DOMDocument")
End If

Set CreateDOM = tmpDOM
End Function

Function LoadDOM(objDOM, strXMLFile)
objDOM.Async = False
objDOM.Load strXMLFile
If (objDOM.ParseError.ErrorCode <> 0) Then
MsgBox objDOM.ParseError.Reason
End If
End Function

</SCRIPT>
</HTML>


Il problema è che : se apro questo file con ie6 tutto fila liscio
se lo apro con ie7 va in un loop infinito e si blocca tutto...

Ne sapete qualcosa?
Grazie
naq