From: selim tanfous (selimtanfous@webmails.com)
Date: 10/02/2003 - 14:01
Bonjour tout le monde, j'ai un petit problème avec la page asp suivant
en gros le code suivant sert à crée dynamiquement une un document xml a
partir du résultat d'une requete sql et renvoie le tout au client via
response.write(xmldoc.xml)
moi a la fin je voulais sauvegarder le fichier xml sur le disque et du
coup j'ai une erreur : acces denied msxml4.dll
quelqu'un a une idée ? Merci
Ps je suis sous win2k Server, j'ai beau changé les droits d'accès rien
ne se passe
-------------------------------------------------------
<% Response.ContentType = "text/xml" %>
<?xml version="1.0" encoding="windows-1252" ?>
<%
set xmldoc = Server.CreateObject("Msxml2.DOMDocument.4.0")
' Check to see if a document has data. If it does, don't build it
if (xmldoc.childNodes.length = 0) then
' Build the XML document
set root = xmldoc.createNode("element","SalesData","")
xmldoc.appendChild(root)
' Queries the database for customer data
SQL = "SELECT OrderID, CompanyName, OrderDate, ShippedDate, " & _
" ShipCity, ShipState " & _
" FROM Customers " & _
"INNER JOIN Orders ON Customers.CustomerID = Orders.CustomerID
"
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("pdc")
set rs = Conn.Execute(SQL)
ocount = 0
rs.MoveFirst()
while (not rs.EOF and ocount < 10)
set onode = xmldoc.createNode("element","Order","")
xmldoc.documentElement.appendChild(onode)
for i = 0 to rs.Fields.Count - 1
set child = xmldoc.createNode("element",rs.Fields(i).Name,"")
child.text = rs.Fields(i)
onode.appendChild(child)
next
pcount = 0
set isnode = xmldoc.createNode("element","Items","")
onode.appendChild(isnode)
iSQL = "select ProductName, OrderDetails.UnitPrice as UnitPrice," &
_
" Quantity from OrderDetails" & _
" inner join Products on Products.ProductID =
OrderDetails.ProductID" & _
" where OrderID = "
iSQL = iSQL & rs("OrderID")
set irs = Conn.Execute(iSQL)
irs.MoveFirst()
while (not irs.EOF and pcount < 3)
set inode = xmldoc.createNode("element","Item","")
isnode.appendChild(inode)
for i = 0 to irs.Fields.Count - 1
set child = xmldoc.createNode("element",irs.Fields(i).Name,"")
child.text = irs.Fields(i)
inode.appendChild(child)
next
irs.MoveNext()
pcount = pcount + 1
wend
rs.MoveNext()
ocount = ocount + 1
wend
end if
Response.Write(xmldoc.xml)
xmldoc.save(server.mappath(xmlsave.xml))
%>
____________________________________________________________________
- http://www.WebMailSPro.com - >>
Créer votre WebBased email pour avec votre propre nom de domaine
--
Devenez redacteur <XML>fr et contribuez au developpement du
xml francophone (http://xmlfr.org/infos/redacteurs/) !
Liste de diffusion "xml-tech@xmlfr.org" (http://xmlfr.org).
Cette liste est a votre disposition pour discuter en francais de
tout sujet technique lie a XML.
Pour resilier votre abonnement, envoyez un message contenant
la commande "unsubscribe" a xml-tech-request@xmlfr.org
(mailto:xml-tech-request@xmlfr.org?Subject=unsubscribe)
Archive générée par hypermail 2.1.3 le 28/06/2004 - 11:06 UTC
webmaster@xmlfr.org
| 
