Simple ADO Query
08/10/2009 02:04
<%@ LANGUAGE = VBScript %>
<% Option Explicit %>
<HTML>
<HEAD>
<TITLE>Simple ADO Query</TITLE>
</HEAD>
<BODY >
<%
Dim con
Dim rs
Dim i
Set con = Server.CreateObject("ADODB.Connection")
con.Open "DSN=tybca"
Set rs =con.Execute("SELECT * From emp")
%>
<TABLE border = 1>
<tr>
<% for i=0 to rs.Fields.Count-1 %>
<th><%=rs(i).Name %></th>
<% next %>
</tr>
<% while not rs.EOF %>
<tr>
<% for i=0 to rs.Fields.Count-1 %>
<td><%=rs(i) %></td>
<%next%>
</tr>
<% rs.movenext
wend
%>
</BODY>
</TABLE>
<%
rs.close
con.close
%>
</HTML>
———
Back