<FORM ACTION="my_edit_links_action.asp" METHOD="post">
<TABLE BORDER="1">

                  <table border="1" cellspacing="0" cellpadding="0" width="732" style="width:549.0pt;
 border-collapse:collapse;border:none;mso-border-alt:solid windowtext .5pt;
 mso-padding-alt:0in 0in 0in 0in">
 <tr>
 <th bgcolor="#800000"><font face="Verdana" color="#FFFFFF">Select</font><br>
 <select size="1" name="choices" id="choices">
        <option SELECTED VALUE="">None</option> 
        <option VALUE="Delete Checked Rows" ACTION="my_edit_links_action.asp">Delete</option>
        <option VALUE="002" ACTION="emailto.asp">Email to:</option>
        <option VALUE="003">Print</option>
        <option VALUE="004">Save in:</option>
 </select><input type="submit" value="OK" name=submit><br>
<input type='checkbox' onclick='checkAll(this.form,this)' value="check all" name="p_delete">
 <font face="Verdana" color="#FFFFFF">Select All</font></th>
 <th bgcolor="#800000"><font face="Verdana" color="#FFFFFF">Book Title</font></th>
 <th bgcolor="#800000"><font face="Verdana" color="#FFFFFF">Book #/<br>Book Spoke</font></th>
 <th bgcolor="#800000"><font face="Verdana" color="#FFFFFF">Chapter #/<br>Chapter Spoke</font></th>
 <th bgcolor="#800000"><font face="Verdana" color="#FFFFFF">Verse #/<br>Verse Spoke</font></th>
 <th bgcolor="#800000"><font face="Verdana" color="#FFFFFF">Text</font></th>
  </tr>
<%

    set rs = Server.CreateObject("ADODB.Connection")
    rs.Open "kjv"

    set tableSet = Server.CreateObject("ADODB.RecordSet")
    tableSet.Open "select * from results order by id", rs, adOpenForwardOnly, adLockOptimistic, adCmdText
%>

<%    while not tableSet.EOF
%>  <tr>
<td>
<p><span><INPUT TYPE="checkbox" NAME="p_delete"
VALUE="<%=tableSet("id")%>">
<A HREF="my_edit_links_rec.asp?p_id=<%
                    Response.Write tableSet("id")%>"><%= tableSet.Fields(0).Value %></A>
      </span></p>
    </td>
    <td>
      <p><span><%=tableSet("book_title")%>
      </span>
      <td>
      <p><span><%=tableSet("book")%>
      </span></p>
    </td>
    <td>
      <p><span><%=tableSet("chapter")%>
      </span></p>
    </td>
       <td>
      <p><span><%=tableSet("verse")%>
      </span></p>
    </td>
    <td>
      <p><span><b><%=tableSet("book_title")%>&nbsp;&nbsp;<%=tableSet("chap")%>:<%=tableSet("vers")%></b><br><%=tableSet("text_data")%>
      </span></p>
    </td>
      </tr>
      <tr>
    <td></td><td></td><td>
      <p><span><%=tableSet("book_spoke")%>
      </span></p>
    </td>
    <td>
      <p><span><%=tableSet("chapter_spoke")%>
      </span></p>
    </td>
       <td>
      <p><span><%=tableSet("verse_spoke")%>
      </span></p>
<%            for col = 1 to (p_numberofColumns-1)
%>
                      <%= tableSet.fields(col).Value %>
      </span></p>
      </TD>
<%            next  %>
             </TR>
<%        tableSet.MoveNext
    wend
    tableSet.Close
    set tableSet = Nothing
%>

</TABLE>

</form>