<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>Sample Table Display</TITLE>
</HEAD>
<BODY>
<DIV ALIGN=CENTER>
<H1>Sample Table Display</H1>
<%
'
'Connect to database
'
Dim cnn
Dim rs
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open "Provider=SQLOLEDB.1;" _
& "Data Source=(local);" _
& "Initial Catalog=MySampleDatabase;" _
& "User ID=sa;" _
& "Password="
'
'Retrieve data
'
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT FirstName, LastName, BirthDate " _
& "FROM MySampleTable " _
& "ORDER BY LastName, FirstName", cnn
%>
<TABLE BORDER='1'>
<THEAD>
<TH>First Name</TH>
<TH>Last Name</TH>
<TH>Birth Date</TH>
</THEAD>
<TBODY>
<%
Do Until rs.EOF
Response.Write "<TR>"
Response.Write "<TD>" & rs("FirstName") & "</TD>"
Response.Write "<TD>" & rs("LastName") & </TD>"
Response.Write "<TD>" & Format$(rs("BirthDate"), "mm/dd/yyyy") & "</TD>"
Response.Write "</TR>"
rs.MoveNext
Loop
%>
</TBODY>
</TABLE>
<!-- Footer -->
<H5>Current as of <%Response.Write Now%></H5>
</DIV>
</BODY>
</HTML>