<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="adovbs.inc"-->
<!--#include file="pagetop.txt"-->
<!--#include file="isadmin.inc"-->
<%
if isAdmin then

'************************************************************************************
'* Declaration section
'************************************************************************************
' Mode contstants
Const MODE_DEFAULT  = 1
Const MODE_RESULTS  = 2

Const DB_NAME           = "kjv.mdb" ' Name of our database file
Const SCRIPT_NAME       = "kjv.asp"  ' Name of this script
Const SCRIPT_NAMES      = "kjvresp.asp"
const SCRIPT_SAVED      = "saved.asp"
Const SCRIPT_FEEDBACK   = "mailto.asp"
Const SCRIPT_TEXT       = "bibletext.asp"

Const RECORDS_PER_PAGE  = 20            ' Number of records per page

Dim nMode   ' Current Mode

'************************************************************************************
'* End of Declaration section
'************************************************************************************

' This function will generate our connection string
' it assumes that Access database is in the same folder as this script

Private Function GetConnectionString()
    GetConnectionString =   "Driver={Microsoft Access Driver (*.mdb)};" & _
                "DBQ=" & Server.MapPath(DB_NAME) & ";" & _
                "UID=;PWD=;"
End Function

%>
<CENTER>
<H2> Edit Links</h2>

<A HREF="my_edit_links_rec.asp">Create a New Record</A>
<FORM ACTION="my_edit_links.asp" METHOD="post">
<TABLE BORDER="1">
<%

    'set outpostDB = Server.CreateObject("ADODB.Connection")
    'outpostDB.Open "outpost"

    'set tableSet = Server.CreateObject("ADODB.RecordSet")
    'tableSet.Open "select * from links order by link_id", outpostDB, adOpenForwardOnly, adLockOptimistic, adCmdText


    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>
                <INPUT TYPE="checkbox" NAME="p_delete" 
                              VALUE="<%=tableSet("id")%>">
            </TD>
<%            p_numberOfColumns = tableSet.Fields.Count
%>             <TD>
                  <A HREF="my_edit_links_rec.asp?p_id=<%
                    Response.Write tableSet("id")%>">
                     <%= tableSet.Fields(0).Value %>
                </A>
              </TD>

<%            for col = 1 to (p_numberofColumns-1)
%>                   <TD>
                      <%= tableSet.fields(col).Value %>
                         </TD>
<%            next  %>
             </TR>
<%        tableSet.MoveNext
    wend
    tableSet.Close
    set tableSet = Nothing
%>

</TABLE>
<INPUT TYPE="submit" VALUE="Delete Checked Rows">
</form>

<A HREF="my_edit_links_rec.asp">Create a New Record</A>

</CENTER>
<%
    rs.Close
    set rs = Nothing
else

    Response.Write "You do not have access to this page."

end if
%>
</BODY>
</HTML>