gilgalbiblewhee
04-09-2005, 04:01 AM
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>
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>