Please help, getting error '80004005' on password protected site

J

Jason Noble

I am trying desperately to publish a password-protected section of my website
for educational materials/etc. My site is www.jasonnoble.com/ and the
"members" section is where I'm getting the errors. I have followed every
single direction on every single page and still keep getting this error. Is
there any easier way to make a password protected section? I am so
frustrated with this product!

I keep getting the following error message:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open
registry key 'Temporary (volatile) Jet DSN for process 0x4eb8 Thread 0x3870
DBC 0x1e4cd64 Jet'.

/logon/_private/logon.inc, line 34


I have read every single article on here, and applied all changes to TEMP
file/access permission, etc, and NOTHING is fixing this. Please help!!!!

My logon.inc code is as follows (used it DIRECTLY from microsoft):

<%
' Do not cache this page.
Response.CacheControl = "no-cache"

' Define the name of the users table.
Const USERS_TABLE = "tblUsers"
' Define the path to the logon page.
Const LOGON_PAGE = "/logon/logon.asp"
' Define the path to the logon database.
Const MDB_URL = "/logon/_private/logon.mdb"

' Check to see whether you have a current user name.
If Len(Session("UID")) = 0 Then
' Are you currently on the logon page?
If LCase(LOGON_PAGE) <> LCase(Request.ServerVariables("URL")) Then
' If not, set a session variable for the page that made the request...
Session("REFERRER") = Request.ServerVariables("URL")
' ...and redirect to the logon page.
Response.Redirect LOGON_PAGE
End If
End If

' This function checks for a username/password combination.
Function ComparePassword(UID,PWD)
' Define your variables.
Dim strSQL, objCN, objRS
' Set up your SQL string.
strSQL = "SELECT * FROM " & USERS_TABLE & _
" WHERE (UID='" & ParseText(UID) & _
"' AND PWD='" & ParseText(PWD) & "');"
' Create a database connection object.
Set objCN = Server.CreateObject("ADODB.Connection")
' Open the database connection object.
objCN.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & _
Server.MapPath(MDB_URL) & "; uid=admin; pwd="
' Run the database query.
Set objRS = objCN.Execute(strSQL)
' Set the status to true/false for the database lookup.
ComparePassword = Not(objRS.EOF)
' Close your database objects.
Set objRS = Nothing
Set objCN = Nothing
End Function

' This function restricts text to alpha-numeric data only.
Function ParseText(TXT)
Dim intPos, strText, intText
For intPos = 1 TO Len(TXT)
intText = Asc(Mid(TXT,intPos,1))
If (intText > 47 And intText < 58) Or _
(intText > 64 And intText < 91) Or _
(intText > 96 And intText < 123) Then
strText = strText & Mid(TXT,intPos,1)
End if
Next
ParseText = strText
End Function
%>
 
T

Thomas A. Rowe

Contact your web host and ask them to set the subweb / site to be application root.

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
==============================================
If you feel your current issue is a results of installing
a Service Pack or security update, please contact
Microsoft Product Support Services:
http://support.microsoft.com
If the problem can be shown to have been caused by a
security update, then there is usually no charge for the call.
==============================================

Jason Noble said:
I am trying desperately to publish a password-protected section of my website
for educational materials/etc. My site is www.jasonnoble.com/ and the
"members" section is where I'm getting the errors. I have followed every
single direction on every single page and still keep getting this error. Is
there any easier way to make a password protected section? I am so
frustrated with this product!

I keep getting the following error message:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open
registry key 'Temporary (volatile) Jet DSN for process 0x4eb8 Thread 0x3870
DBC 0x1e4cd64 Jet'.

/logon/_private/logon.inc, line 34


I have read every single article on here, and applied all changes to TEMP
file/access permission, etc, and NOTHING is fixing this. Please help!!!!

My logon.inc code is as follows (used it DIRECTLY from microsoft):

<%
' Do not cache this page.
Response.CacheControl = "no-cache"

' Define the name of the users table.
Const USERS_TABLE = "tblUsers"
' Define the path to the logon page.
Const LOGON_PAGE = "/logon/logon.asp"
' Define the path to the logon database.
Const MDB_URL = "/logon/_private/logon.mdb"

' Check to see whether you have a current user name.
If Len(Session("UID")) = 0 Then
' Are you currently on the logon page?
If LCase(LOGON_PAGE) <> LCase(Request.ServerVariables("URL")) Then
' If not, set a session variable for the page that made the request...
Session("REFERRER") = Request.ServerVariables("URL")
' ...and redirect to the logon page.
Response.Redirect LOGON_PAGE
End If
End If

' This function checks for a username/password combination.
Function ComparePassword(UID,PWD)
' Define your variables.
Dim strSQL, objCN, objRS
' Set up your SQL string.
strSQL = "SELECT * FROM " & USERS_TABLE & _
" WHERE (UID='" & ParseText(UID) & _
"' AND PWD='" & ParseText(PWD) & "');"
' Create a database connection object.
Set objCN = Server.CreateObject("ADODB.Connection")
' Open the database connection object.
objCN.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & _
Server.MapPath(MDB_URL) & "; uid=admin; pwd="
' Run the database query.
Set objRS = objCN.Execute(strSQL)
' Set the status to true/false for the database lookup.
ComparePassword = Not(objRS.EOF)
' Close your database objects.
Set objRS = Nothing
Set objCN = Nothing
End Function

' This function restricts text to alpha-numeric data only.
Function ParseText(TXT)
Dim intPos, strText, intText
For intPos = 1 TO Len(TXT)
intText = Asc(Mid(TXT,intPos,1))
If (intText > 47 And intText < 58) Or _
(intText > 64 And intText < 91) Or _
(intText > 96 And intText < 123) Then
strText = strText & Mid(TXT,intPos,1)
End if
Next
ParseText = strText
End Function
%>
 
S

Stefan B Rusynko

That error is a permissions error (related to your Access DB)
If using the KB article at http://support.microsoft.com/default.aspx?scid=kb;en-us;825498
Did you import the Access DB into your FP server based web site per it




|I am trying desperately to publish a password-protected section of my website
| for educational materials/etc. My site is www.jasonnoble.com/ and the
| "members" section is where I'm getting the errors. I have followed every
| single direction on every single page and still keep getting this error. Is
| there any easier way to make a password protected section? I am so
| frustrated with this product!
|
| I keep getting the following error message:
|
| Microsoft OLE DB Provider for ODBC Drivers error '80004005'
|
| [Microsoft][ODBC Microsoft Access Driver]General error Unable to open
| registry key 'Temporary (volatile) Jet DSN for process 0x4eb8 Thread 0x3870
| DBC 0x1e4cd64 Jet'.
|
| /logon/_private/logon.inc, line 34
|
|
| I have read every single article on here, and applied all changes to TEMP
| file/access permission, etc, and NOTHING is fixing this. Please help!!!!
|
| My logon.inc code is as follows (used it DIRECTLY from microsoft):
|
| <%
| ' Do not cache this page.
| Response.CacheControl = "no-cache"
|
| ' Define the name of the users table.
| Const USERS_TABLE = "tblUsers"
| ' Define the path to the logon page.
| Const LOGON_PAGE = "/logon/logon.asp"
| ' Define the path to the logon database.
| Const MDB_URL = "/logon/_private/logon.mdb"
|
| ' Check to see whether you have a current user name.
| If Len(Session("UID")) = 0 Then
| ' Are you currently on the logon page?
| If LCase(LOGON_PAGE) <> LCase(Request.ServerVariables("URL")) Then
| ' If not, set a session variable for the page that made the request...
| Session("REFERRER") = Request.ServerVariables("URL")
| ' ...and redirect to the logon page.
| Response.Redirect LOGON_PAGE
| End If
| End If
|
| ' This function checks for a username/password combination.
| Function ComparePassword(UID,PWD)
| ' Define your variables.
| Dim strSQL, objCN, objRS
| ' Set up your SQL string.
| strSQL = "SELECT * FROM " & USERS_TABLE & _
| " WHERE (UID='" & ParseText(UID) & _
| "' AND PWD='" & ParseText(PWD) & "');"
| ' Create a database connection object.
| Set objCN = Server.CreateObject("ADODB.Connection")
| ' Open the database connection object.
| objCN.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & _
| Server.MapPath(MDB_URL) & "; uid=admin; pwd="
| ' Run the database query.
| Set objRS = objCN.Execute(strSQL)
| ' Set the status to true/false for the database lookup.
| ComparePassword = Not(objRS.EOF)
| ' Close your database objects.
| Set objRS = Nothing
| Set objCN = Nothing
| End Function
|
| ' This function restricts text to alpha-numeric data only.
| Function ParseText(TXT)
| Dim intPos, strText, intText
| For intPos = 1 TO Len(TXT)
| intText = Asc(Mid(TXT,intPos,1))
| If (intText > 47 And intText < 58) Or _
| (intText > 64 And intText < 91) Or _
| (intText > 96 And intText < 123) Then
| strText = strText & Mid(TXT,intPos,1)
| End if
| Next
| ParseText = strText
| End Function
| %>
|
|
 
J

Jason Noble

Hello. I don't understand this answer. I have copied this and asked my web
host to do this, however. Thank you.

Thomas A. Rowe said:
Contact your web host and ask them to set the subweb / site to be application root.

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
==============================================
If you feel your current issue is a results of installing
a Service Pack or security update, please contact
Microsoft Product Support Services:
http://support.microsoft.com
If the problem can be shown to have been caused by a
security update, then there is usually no charge for the call.
==============================================

Jason Noble said:
I am trying desperately to publish a password-protected section of my website
for educational materials/etc. My site is www.jasonnoble.com/ and the
"members" section is where I'm getting the errors. I have followed every
single direction on every single page and still keep getting this error. Is
there any easier way to make a password protected section? I am so
frustrated with this product!

I keep getting the following error message:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open
registry key 'Temporary (volatile) Jet DSN for process 0x4eb8 Thread 0x3870
DBC 0x1e4cd64 Jet'.

/logon/_private/logon.inc, line 34


I have read every single article on here, and applied all changes to TEMP
file/access permission, etc, and NOTHING is fixing this. Please help!!!!

My logon.inc code is as follows (used it DIRECTLY from microsoft):

<%
' Do not cache this page.
Response.CacheControl = "no-cache"

' Define the name of the users table.
Const USERS_TABLE = "tblUsers"
' Define the path to the logon page.
Const LOGON_PAGE = "/logon/logon.asp"
' Define the path to the logon database.
Const MDB_URL = "/logon/_private/logon.mdb"

' Check to see whether you have a current user name.
If Len(Session("UID")) = 0 Then
' Are you currently on the logon page?
If LCase(LOGON_PAGE) <> LCase(Request.ServerVariables("URL")) Then
' If not, set a session variable for the page that made the request...
Session("REFERRER") = Request.ServerVariables("URL")
' ...and redirect to the logon page.
Response.Redirect LOGON_PAGE
End If
End If

' This function checks for a username/password combination.
Function ComparePassword(UID,PWD)
' Define your variables.
Dim strSQL, objCN, objRS
' Set up your SQL string.
strSQL = "SELECT * FROM " & USERS_TABLE & _
" WHERE (UID='" & ParseText(UID) & _
"' AND PWD='" & ParseText(PWD) & "');"
' Create a database connection object.
Set objCN = Server.CreateObject("ADODB.Connection")
' Open the database connection object.
objCN.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & _
Server.MapPath(MDB_URL) & "; uid=admin; pwd="
' Run the database query.
Set objRS = objCN.Execute(strSQL)
' Set the status to true/false for the database lookup.
ComparePassword = Not(objRS.EOF)
' Close your database objects.
Set objRS = Nothing
Set objCN = Nothing
End Function

' This function restricts text to alpha-numeric data only.
Function ParseText(TXT)
Dim intPos, strText, intText
For intPos = 1 TO Len(TXT)
intText = Asc(Mid(TXT,intPos,1))
If (intText > 47 And intText < 58) Or _
(intText > 64 And intText < 91) Or _
(intText > 96 And intText < 123) Then
strText = strText & Mid(TXT,intPos,1)
End if
Next
ParseText = strText
End Function
%>
 
T

Thomas A. Rowe

You web host will understand if they know how to support ASP.

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
==============================================
If you feel your current issue is a results of installing
a Service Pack or security update, please contact
Microsoft Product Support Services:
http://support.microsoft.com
If the problem can be shown to have been caused by a
security update, then there is usually no charge for the call.
==============================================

Jason Noble said:
Hello. I don't understand this answer. I have copied this and asked my web
host to do this, however. Thank you.

Thomas A. Rowe said:
Contact your web host and ask them to set the subweb / site to be application root.

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
==============================================
If you feel your current issue is a results of installing
a Service Pack or security update, please contact
Microsoft Product Support Services:
http://support.microsoft.com
If the problem can be shown to have been caused by a
security update, then there is usually no charge for the call.
==============================================

Jason Noble said:
I am trying desperately to publish a password-protected section of my website
for educational materials/etc. My site is www.jasonnoble.com/ and the
"members" section is where I'm getting the errors. I have followed every
single direction on every single page and still keep getting this error. Is
there any easier way to make a password protected section? I am so
frustrated with this product!

I keep getting the following error message:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open
registry key 'Temporary (volatile) Jet DSN for process 0x4eb8 Thread 0x3870
DBC 0x1e4cd64 Jet'.

/logon/_private/logon.inc, line 34


I have read every single article on here, and applied all changes to TEMP
file/access permission, etc, and NOTHING is fixing this. Please help!!!!

My logon.inc code is as follows (used it DIRECTLY from microsoft):

<%
' Do not cache this page.
Response.CacheControl = "no-cache"

' Define the name of the users table.
Const USERS_TABLE = "tblUsers"
' Define the path to the logon page.
Const LOGON_PAGE = "/logon/logon.asp"
' Define the path to the logon database.
Const MDB_URL = "/logon/_private/logon.mdb"

' Check to see whether you have a current user name.
If Len(Session("UID")) = 0 Then
' Are you currently on the logon page?
If LCase(LOGON_PAGE) <> LCase(Request.ServerVariables("URL")) Then
' If not, set a session variable for the page that made the request...
Session("REFERRER") = Request.ServerVariables("URL")
' ...and redirect to the logon page.
Response.Redirect LOGON_PAGE
End If
End If

' This function checks for a username/password combination.
Function ComparePassword(UID,PWD)
' Define your variables.
Dim strSQL, objCN, objRS
' Set up your SQL string.
strSQL = "SELECT * FROM " & USERS_TABLE & _
" WHERE (UID='" & ParseText(UID) & _
"' AND PWD='" & ParseText(PWD) & "');"
' Create a database connection object.
Set objCN = Server.CreateObject("ADODB.Connection")
' Open the database connection object.
objCN.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & _
Server.MapPath(MDB_URL) & "; uid=admin; pwd="
' Run the database query.
Set objRS = objCN.Execute(strSQL)
' Set the status to true/false for the database lookup.
ComparePassword = Not(objRS.EOF)
' Close your database objects.
Set objRS = Nothing
Set objCN = Nothing
End Function

' This function restricts text to alpha-numeric data only.
Function ParseText(TXT)
Dim intPos, strText, intText
For intPos = 1 TO Len(TXT)
intText = Asc(Mid(TXT,intPos,1))
If (intText > 47 And intText < 58) Or _
(intText > 64 And intText < 91) Or _
(intText > 96 And intText < 123) Then
strText = strText & Mid(TXT,intPos,1)
End if
Next
ParseText = strText
End Function
%>
 
P

p c

Permissions problem. google:

error '80004005'

...PC

Jason said:
Hello. I don't understand this answer. I have copied this and asked my web
host to do this, however. Thank you.

:

Contact your web host and ask them to set the subweb / site to be application root.

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
==============================================
If you feel your current issue is a results of installing
a Service Pack or security update, please contact
Microsoft Product Support Services:
http://support.microsoft.com
If the problem can be shown to have been caused by a
security update, then there is usually no charge for the call.
==============================================

I am trying desperately to publish a password-protected section of my website
for educational materials/etc. My site is www.jasonnoble.com/ and the
"members" section is where I'm getting the errors. I have followed every
single direction on every single page and still keep getting this error. Is
there any easier way to make a password protected section? I am so
frustrated with this product!

I keep getting the following error message:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open
registry key 'Temporary (volatile) Jet DSN for process 0x4eb8 Thread 0x3870
DBC 0x1e4cd64 Jet'.

/logon/_private/logon.inc, line 34


I have read every single article on here, and applied all changes to TEMP
file/access permission, etc, and NOTHING is fixing this. Please help!!!!

My logon.inc code is as follows (used it DIRECTLY from microsoft):

<%
' Do not cache this page.
Response.CacheControl = "no-cache"

' Define the name of the users table.
Const USERS_TABLE = "tblUsers"
' Define the path to the logon page.
Const LOGON_PAGE = "/logon/logon.asp"
' Define the path to the logon database.
Const MDB_URL = "/logon/_private/logon.mdb"

' Check to see whether you have a current user name.
If Len(Session("UID")) = 0 Then
' Are you currently on the logon page?
If LCase(LOGON_PAGE) <> LCase(Request.ServerVariables("URL")) Then
' If not, set a session variable for the page that made the request...
Session("REFERRER") = Request.ServerVariables("URL")
' ...and redirect to the logon page.
Response.Redirect LOGON_PAGE
End If
End If

' This function checks for a username/password combination.
Function ComparePassword(UID,PWD)
' Define your variables.
Dim strSQL, objCN, objRS
' Set up your SQL string.
strSQL = "SELECT * FROM " & USERS_TABLE & _
" WHERE (UID='" & ParseText(UID) & _
"' AND PWD='" & ParseText(PWD) & "');"
' Create a database connection object.
Set objCN = Server.CreateObject("ADODB.Connection")
' Open the database connection object.
objCN.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & _
Server.MapPath(MDB_URL) & "; uid=admin; pwd="
' Run the database query.
Set objRS = objCN.Execute(strSQL)
' Set the status to true/false for the database lookup.
ComparePassword = Not(objRS.EOF)
' Close your database objects.
Set objRS = Nothing
Set objCN = Nothing
End Function

' This function restricts text to alpha-numeric data only.
Function ParseText(TXT)
Dim intPos, strText, intText
For intPos = 1 TO Len(TXT)
intText = Asc(Mid(TXT,intPos,1))
If (intText > 47 And intText < 58) Or _
(intText > 64 And intText < 91) Or _
(intText > 96 And intText < 123) Then
strText = strText & Mid(TXT,intPos,1)
End if
Next
ParseText = strText
End Function
%>
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top