OK seems like I forgot to add Server.CreateObject("ADODB.Connection"). After I did that I get an unusual error.
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot open the file '(unknown)'. It is already opened exclusively by another user, or you need permission to view its data.
/WebProject/index.asp, line 149
Here is my code:
<%
dim DbPath, MyConn
DbPath = Request.ServerVariables("APPL_PHYSICAL_PATH")
Set MyConn = Server.CreateObject("ADODB.Connection")
MyConn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("/database/web.mdb") <---line 149
sqlName = "SELECT * FROM Table_Name"
set rsName= Server.CreateObject("ADODB.RecordSet")
rsName.Open sqlName, myConn
rsName.Close
set rsName = nothing
MyConn.Close
%>
Quote:
Originally posted by Shashant
<%
dim DbPath, ConnStr, myConn
DbPath = Request.ServerVariables("APPL_PHYSICAL_PATH")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & Server.MapPath("../database/web.mdb")
MyConn.Open ConnStr <--- line 149
sqlName = "SELECT * FROM Table_Name"
set rsName= Server.CreateObject("ADODB.RecordSet")
rsName.Open sqlName, myConn
rsName.Close
set rsName = nothing
MyConn.Close
%>
Can you guys please help me out. I am getting this error:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/Webproject/index.asp, line 149
I have been working on this for soo long, I have been having trouble conecting to the database, if there is other code that would be easier, please let me know. Thank you.
|