Ps have just Searched on this Forum but there is nothing that helps me out mybe can help me anyone?
Here is the Code:
Expand|Select|Wrap|Line Numbers
- <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>