Generation de xml via asp

Télécharger le projet
Commenter

Description

reformatage de données d'une base en fichier XML

Source / Exemple : 


<%@ Language=VBScript %>
<%Option explicit
dim sql, rs, newFileObject, newFile, objDataConn
set objDataConn = CreateObject("ADODB.Connection")
sql = "SELECT * FROM T_USER"
set rs = CreateObject("ADODB.recordset")
rs.Open sql, objDataConn

set newFileObject = Server.CreateObject("Scripting.FileSystemObject")
set newFile = newFileObject.CreateTextFile("C:\temp\" & "testxml.xml")
Do While Not rs.EOF
	newFile.Writeline("<USER>") 
	newFile.Writeline("<LOGIN>" & trim (rs.Fields("USER_LOGIN")) & "</LOGIN>")
	newFile.Writeline("<PASSWORD>" & trim (rs.Fields("USER_PASSWORD")) & "</PASSWORD>")
	newFile.Writeline("<FIRSTNAME>" & trim (rs.Fields("USER_FIRSTNAME")) & "</FIRSTNAME>")
	newFile.Writeline("<LASTNAME>" & trim (rs.Fields("USER_LASTNAME")) & "</LASTNAME>")
	newFile.Writeline("</USER>")
	rs.MoveNext
loop

rs.Close
Set rs = Nothing
newFile.Close
if newFileObject.FileExists("C:\temp\testxml.xml") then 
	Response.Write("création ok!") 
end if
set newFile = Nothing
set newFileObject = Nothing
objDataConn.Close
set objDataConn = Nothing
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.