| | |
| |
Active Server Pages what is asp programming how to sample asp example code scripts software asp forum mail sessions applications global.asa CJWSoft ASPProtect ASPBanner ASPClassifieds
(Advanced)
(Components)
(Database)
(General)
(Vbscript)
|
|
|
|
Subject: |
Error 80004005 on my ASP Page |
|
From: |
Pamela Brunette |
|
Date: |
4/19/2001 9:42:30 AM |
|
IP: |
206.191.41.50 |
Hi, I keep getting an error every other day on my ASP page which is posted on our Intranet site. The code looks OK to me but I can't fix this error:
Microsoft OLE DB Provider for ODBC Drivers error 80004005.
Cannot open database ( unknown ). It may not be a database that your application recognizes or the file may be corrupt.
Here is my code.........please try and help me.
<%
Dim Connection
Dim RS
Dim SQLStmt
Dim Branch, User_ID, FULL_NAME
dim MYNANE
Dim NAMELIST
Dim CALLSTR
Set Connection = Server.CreateObject ("ADODB.Connection")
Connection.Open "DSN=HRIS Access;"
SQLStmt = "SELECT Branch, User_ID, FULL_NAME"
SQLStmt = SQLStmt & " FROM TSB_Employee "
SQLStmt = SQLStmt & " WHERE Branch = 'ISAD'"
Set RS = Connection.Execute(SQLStmt)
%>
<% MYNAME = Request.ServerVariables("LOGON_USER")
Do While Not RS.EOF
NAMELIST = RS.Fields("User_ID")
NAMELIST = UCase(NAMELIST)
MYNAME = Ucase(MYNAME) %>
<%
If InStr(MYNAME, NAMELIST) <> 0 then
'call MenueEmpInf.AddItem(0,"Post Scriptum - Discussion Forums",6,6)
MENUSTR = "Post Scriptum - Discussion Forums"
CALLSTR = "call MenueEmpInf.AddItem(0,"""+MENUSTR+""",6,6)"
End if
RS.MoveNext
Loop
RS.close
%>
<% response.write(CALLSTR) %>
Any suggestions would be appreciated.
Thanks |
Follow Up - Re: Error 80004005 on my ASP Page - sachim 4/20/2001 12:04:43 PM
Follow Up - Re: Error 80004005 on my ASP Page - Dan R. 4/20/2001 3:34:31 PM
|
|
|
|
|
|
