본문 바로가기

Story/asp

Mssql To Xml

반응형

Mssql To Xml

 

출처 : http://bytes.com/topic/asp-classic/answers/728740-mssql-xml

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Neue Seite 1</title>
</head>

<body>

<%
Dim conn
Dim rs

Set conn = server.createObject("ADODB.Connection")
on Error Resume Next
SSN = Request.QueryString("SSN")
' Verbindung zur Datenbank herstellen
conn.open "PROVIDER=SQLOLEDB;SERVER=123;ADDRESS=212,1234;UID=werer;PWD=666;DATABASE=MydB;"

set rs=Server.CreateObject("ADODB.recordset")

rs.Open "SELECT * FROM Betriebsdaten for XML", conn
do until rs.EOF
for each x in rs.Fields
Response.Write(x.name)
Response.Write(" = ")
Response.Write(x.value & "<br />")
next
Response.Write("<br />")
rs.MoveNext
loop

rs.close
conn.close
%>

</body>
</html>

반응형

'Story > asp' 카테고리의 다른 글