<%@ LANGUAGE="VBSCRIPT" %>


<%
if isAdmin then

    set outpostDB = Server.CreateObject("ADODB.Connection")
Private Function GetConnectionString()
    GetConnectionString =   "Driver={Microsoft Access Driver (*.mdb)};" & _
                "DBQ=" & Server.MapPath("hebrewbible") & ";" & _
                "UID=;PWD=;"
End Function
    outpostDB = GetConnectionString()

    set linkSet = Server.CreateObject("ADODB.RecordSet")
    linkSet.Open "select * from links order by new_id desc", outpostDB, adOpenStatic, adLockOptimistic, adCmdText
    linkSet.MoveFirst
    if linkSet.EOF then
        p_new_id = 1
    else
        p_new_id = linkSet("new_id") + 1
    end if

    p_new_id_in = Request.querystring("p_new_id")
    if p_new_id_in <> "" then
        linkSet.Find "new_id = " & p_new_id_in
    end if
    if p_new_id_in = "" or linkSet.EOF then
        p_new_recordType = ""
        p_new_book_spoke = ""
        p_new_chapter_spoke = ""
        p_new_verse_spoke = ""
        p_new_book = ""
        p_new_chapter = ""
        p_new_verse = ""
        p_new_text_data = ""
        p_new_gemetria = ""

    else
        p_new_id = p_new_id_in
        p_new_recordType = linkSet("new_recordType")
        p_new_book_spoke = linkSet("new_book_spoke")
        p_new_chapter_spoke = linkSet("new_chapter_spoke")
        p_new_verse_spoke = linkSet("new_verse_spoke")
        p_new_book = linkSet("new_book")
        p_new_chapter = linkSet("new_chapter")
        p_new_verse = linkSet("new_verse")
        p_new_text_data = linkSet("new_text_data")
        p_new_gemetria = linkSet("new_gemetria")
        p_existing = p_new_id_in
    end if

    linkSet.Close
    set linkSet = Nothing
%>
    <CENTER>
    <FORM ACTION="edit_links_rec_action.asp" METHOD="post">
    <INPUT TYPE="hidden" NAME="p_existing" "
        VALUE="<%=p_existing%>">
    <h2>Edit Link</h2>
    <TABLE>
    <TR>
        <TD>Link ID</TD>
        <TD>
            <INPUT TYPE="hidden" NAME="p_new_id" VALUE="<%= p_new_id %>">
            <%= p_new_id %>
        </TD>
    </TR>
<%'    <TR>
'        <TD>Link Name</TD>
'        <TD><INPUT TYPE="text" NAME="p_name" SIZE="25" 
'               VALUE="<%=p_new_name%>">
'    </TR>
'    <TR>
'        <TD>Link Description</TD>
'        <TD><INPUT TYPE="text" NAME="p_desc" SIZE="50" 
'               VALUE="<%=p_new_desc%>" maxlength=MAXLENGTH="255">
'    </TR>
'    <TR>
'        <TD>Link URL:  http://</TD>
'        <TD><INPUT TYPE="text" NAME="p_url" SIZE="50" 
'                VALUE="<%=p_new_url%>" maxlength=MAXLENGTH="100">
'    </TR>
%>
    </TABLE>

    <INPUT TYPE="submit">

    </form>
    </CENTER>
<%
    outpostDB.Close
    set outpostDB = Nothing
else

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

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