Code Excerpts from Simple Database-Driven Web Site
Showing ASP Code for Interacting with a Database Embedded in HTML
(Alan Liu's "Gallery" site)

//Connects the Web page to an Access database named "liu-images.mdb,"
//Creates data object through a SQL query "Select" statement

<%
var Recordset1 = Server.CreateObject("ADODB.Recordset");
Recordset1.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\databases/liu-images.mdb";
Recordset1.Source = "SELECT * FROM Artists ORDER BY LastName, FirstName, Dates, Nation";
Recordset1.CursorType = 0;
Recordset1.CursorLocation = 2;
Recordset1.LockType = 3;
Recordset1.Open();
var Recordset1_numRows = 0;
%>

//HTML table whose data is pulled through the data connection from records in the database
//The table is set within a Repeat procedure that repeats the process for every record in the database

  <% while ((Repeat1__numRows-- != 0) && (!Recordset1.EOF)) { %>
      <TABLE width="95%" border="0">
          <TR valign="top"> 
             <TD width="40%">
                <A HREF="directory-page.asp?<%= MM_keepNone + ((MM_keepNone!="")?"&":"") 
                + "Artists.ArtistsID=" + Recordset1.Fields.Item("ArtistsID").Value %>">
                <B><% if (Recordset1.Fields.Item("LastName").Value !== "") %>
                <%=(Recordset1.Fields.Item("LastName").Value)%>
                <%if (Recordset1.Fields.Item("FirstName").Value !== "") %>, 
                <%=(Recordset1.Fields.Item("FirstName").Value)%>
                <% if (Recordset1.Fields.Item("MiddleName").Value!== "") %>&nbsp;
                <%=(Recordset1.Fields.Item("MiddleName").Value)%></B></A>
             </TD>
             <TD width="20%"><%=(Recordset1.Fields.Item("Dates").Value)%></TD>
             <TD width="20%"><%=(Recordset1.Fields.Item("Nation").Value)%></TD>
             <TD width="25%"><A href="<%=(Recordset1.Fields.Item("InternetSite").Value)%>">Suggested Site</A></TD>
             <TD width="5%"><%=(Recordset1.Fields.Item("ArtistsID").Value)%></TD>
         </TR>
     </TABLE>
  <% Repeat1__index++; Recordset1.MoveNext(); }%>