Why is it that the page cannot be displayed?

I get:

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="adovbs.inc"-->
<!--#include file="isadmin.inc"-->
<%
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>

Code (markup):

 

Turn off IE's friendly HTTP error messages (Internet Options > Advanced > Show friendly HTTP error messages). You may be able to see the actual error then. If you still don't see the error, you need to change your IIS settings to send errors to the client (web site properties > Home Directory > Configuration > Debugging > Send detailed ASP error messages to the client). Make sure you turn this off when done debigging - hackers are looking for debug messages.

J.D.