Why is it that the page cannot be displayed?

[gilgalbiblewhee]

I get:

The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.

--------------------------------------------------------------------------------

Please try the following:

Open the k.domaindlx.com home page, and then look for links to the information you want.
Click the Refresh button, or try again later.

Click Search to look for information on the Internet.
You can also see a list of related sites.




HTTP 500 - Internal server error
Internet Explorer

<%@ 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>

[phpnovice]

You're probably using IE to test your page. If you turn off IE's so-called "friendly error messages" then you will get more accurate information as to where the problem lies.

[HaganeNoKokoro]

shouldn't it be

outpostDB.Open(GetConnectionString())

since you already made outpostDB a ADODB.Connection object?
another possibility:

Server.MapPath("hebrewbible.mdb")