Why is it that the page cannot be displayed?

[gilgalbiblewheel]

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>

[J.D.]

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.