- <%@ Language=VBScript %>
- <html>
- <head>
- <title>Voir une base de Donnée</title>
- </head>
-
- <body>
- <center>
- <%
- Set objConn = Server.CreateObject("ADODB.Connection")
- objConn.Open = "dsn=votre-base;uid=votreID;pwd=votrePASS;"
-
- Set objRs = objConn.Execute("SELECT * FROM votre-table")
-
- Response.Write "<table border=1 bordercolor=AAAAC9 cellpadding=1 cellspacing=0>"
- Response.Write "<tr>"
-
- For I = 0 To objRS.Fields.Count - 1
- Response.Write "<td><b>" & objRS(I).Name & "</b></td>"
- Next
-
- Response.Write "</tr>"
-
- Do While Not objRS.EOF
- Response.Write "<tr>"
-
- For I = 0 To objRS.Fields.Count - 1
- Response.Write "<td>" & objRS(I) & "</td>"
- Next
-
- Response.Write "</tr>"
-
- objRS.MoveNext
- Loop
-
- Response.Write "</table>"
-
- objRS.Close
- objConn.Close
- %>
- </center>
- </body>
-
- </html>
<%@ Language=VBScript %>
<html>
<head>
<title>Voir une base de Donnée</title>
</head>
<body>
<center>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "dsn=votre-base;uid=votreID;pwd=votrePASS;"
Set objRs = objConn.Execute("SELECT * FROM votre-table")
Response.Write "<table border=1 bordercolor=AAAAC9 cellpadding=1 cellspacing=0>"
Response.Write "<tr>"
For I = 0 To objRS.Fields.Count - 1
Response.Write "<td><b>" & objRS(I).Name & "</b></td>"
Next
Response.Write "</tr>"
Do While Not objRS.EOF
Response.Write "<tr>"
For I = 0 To objRS.Fields.Count - 1
Response.Write "<td>" & objRS(I) & "</td>"
Next
Response.Write "</tr>"
objRS.MoveNext
Loop
Response.Write "</table>"
objRS.Close
objConn.Close
%>
</center>
</body>
</html>