Bonjour
je souhaiterais, grace a l'asp, afficher le contenu d'un fichier xml sous forme de tableau.
voici mon code :
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>
Export de la base Personnes
</TITLE>
<!--include file="adovbs.inc"-->
<%
Dim i
Dim oRs
Dim sTable
Set oRs=Server.CreateObject("ADODB.RecordSet")
Set oRs.ActiveConnection = Nothing
oRs.CursorLocation=adUseClient
oRs.CursorType=adOpenStatic
oRs.LockType=adLockReadOnly
oRs.Source="D:\BD_MSDE\BDPersonnes03-07- 2003.xml"
oRs.Open
%>
</HEAD>
<BODY>
<CENTER>
<HR>
<H2>
Données extraites de la base de données Personnes sous forme de fichier XML
</H2>
<HR>
<%
sTable = "<table border='1'>"
sTable = sTable & "<tr>"
For i = 0 to oRs.Fields.Count - 1
sTable = sTable & "<td><b>" & oRs.Fields(i).Name & "</b></td>"
Next
oRs.MoveNext
sTable = sTable & "</tr>"
Do While Not oRs.EOF
sTable = sTable & "<tr>"
For i = 0 to oRs.Fields.Count - 1
sTable = sTable & "<td>" & oRs.Fields(i).Value & "</td>"
Next
oRs.MoveNext
sTable = sTable & "</tr>"
Loop
sTable = sTable & "</table>"
Response.Write sTable
%>
</CENTER>
</BODY>
</HTML>
<%
oRs.Close
Set oRs=Nothing
%>
Pour faire tourner ce code, je lance le serveur web de windows et je passe pas internet explorer et localhost...
Malheureusement le message suivant s'affiche et je suis incapable de débugger mon code...(la ligne 18 est : oRs.CursorLocation=adUseClient)
Informations techniques (destinées au personnel du Support technique)
Type d'erreur :
ADODB.Recordset (0x800A0BB9)
Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres.
/affichage_xml/index.asp, line 18
Type de navigateur :
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)
Page :
GET /affichage_xml/index.asp
Heure :
jeudi 3 juillet 2003, 16:48:59
Merci par avance de m'aider
A +
pif