SIMPLEQUERY_VBSCRIPT.ASP

<%@ LANGUAGE = VBScript %> 
<% Option Explicit%>

<HTML>
<HEAD>
<TITLE>Simple ADO Query</TITLE>
</HEAD>

<BODY BGCOLOR="White" topmargin="10" leftmargin="10">

<!-- Display Header -->

<font size="4" face="Arial, Helvetica">
<b>Simple ADO Query with ASP</b></font><br>

<hr size="1" color="#000000">

Contacts within the Authors Database:<br><br>

<%
Dim oConn
Dim oRs
Dim curDir
Dim Index


' Map authors database to physical path
curDir = Server.MapPath("\iissamples\sdk\asp\database\authors.mdb")


' Create ADO Connection Component to connect
' with sample database

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"


' Execute a SQL query and store the results
' within recordset

Set oRs = oConn.Execute("SELECT * From authors")
%>


<TABLE border = 1>
<%
Do while (Not oRs.eof) %>

<tr>
<% For Index=0 to (oRs.fields.count-1) %>
<TD VAlign=top><% = oRs(Index)%></TD>
<% Next %>
</tr>

<% oRs.MoveNext
Loop
%>


</TABLE>


<%
oRs.close
oConn.close
%>

</BODY>
</HTML>