Unspecified Error???

werD420 · April 8th, 2005, 11:23 AM

I keep receiving unspecified error on the bolded line below... If I paste the query in Access it runs properlry, also if I response.write the query it writes properly. Permissions are properly set there are actually two other scripts in this directory running in independant access databases that are functioning properly but this one keeps flagging an error... Does any one see what Im doing wrong?

Code:

<%@ LANGUAGE="VBScript" %>
<% 

dim objConn,objRec,name1
set objConn=Server.CreateObject("ADODB.Connection")
objConn.Provider="Microsoft.Jet.OLEDB.4.0"
objConn.Open "\\lou1-web01\robohelp\shpsmate\shpsmate v3\asp\Hot Topics\db.mdb"
 Set objRec = Server.CreateObject ("ADODB.Recordset")
objRec.Open "SELECT [ID],[tblName],[PP], FROM Names WHERE [PP]='" & request.form("PPID") & "'",ObjConn

 name1=Rs("Name")
 Response.write name1 & "<br/>"
%>

dalewright22 · April 10th, 2005, 08:25 AM

Yeah you have the connection string wrong. It Should be like this:

Dim conn, RS, strSQL
Set conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
ConnStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database")
Conn.Open Connstr
strSQL = "SELECT * FROM tbl;"
rs.open strsql, conn

Or in your case (Cause your open a connection on a remote comp)

Dim Conn, RS
Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.Open "\\server\share\file.mdb"
Set RS = Conn.Execute("SELECT * FROM TABLE")

Cheers

DJWright

joefawcett · April 10th, 2005, 01:00 PM

I would base your connection string on the OLEDB one at http://www.connectionstrings.com/

--

Joe (Microsoft MVP - XML)