<%
Response.ContentType = "text/html"
Response.Charset = "ISO-LATIN-1"
%>
Nouvelle page 1
<%
Const path = "/code/fpdb/"
Const strProvider = "DRIVER={Microsoft Paradox Driver (*.db )}; " ' Provider OLE DB
Const strProvider2 = "DRIVER=MySQL;DATABASE=test;UID=root;PWD=toto" ' Provider OLE DB
Const csq1 = "select * from test"
Const csq2 = "select * from news"
Dim s
set conn=server.createobject("ADODB.connection") %>
<% Response.Write "" & server.mappath(path) & "
" %>
<%
conn.Open strProvider & "DBQ=" & server.mappath(path)
q = csq1
set rs = conn.execute (q) %>
<% for i = 0 to rs.Fields.Count - 1 %>
| <% Response.Write rs.Fields(i).Name
next
do while not rs.eof %>
|
<%
for i = 0 to rs.Fields.Count - 1
Response.Write "| " & rs.Fields (i) & " | "
next
rs.movenext %>
<% loop
rs.close
set rs = nothing %>
<% conn.close
conn.Open strProvider2
q = csq2
set rs = conn.execute (q)
Response.Write ""
for i = 0 to rs.Fields.Count - 1
Response.Write "| " & rs.Fields(i).Name & " | "
next
Response.Write "
"
do while not rs.eof
Response.Write ""
for i = 0 to rs.Fields.Count - 1
s = rs.Fields(i)
if "x" & s & "x" = "xx" then
s = " "
else
s = Server.HTMLEncode (s)
end if
Response.Write "| " & s & " | "
next
Response.Write "
"
rs.movenext
loop
Response.Write "
" & vbCRLF
set rs = nothing
set conn = nothing %>