DSN less connections (1 Viewer)

[firthk]

I'm trying to access my db via a DSN less connectoins but keep getting this message:
Microsoft VBScript compilation error '800a03ea'

Syntax error

D:\K\F\KFIRTH\WWW\HORSESITE\FILES\../../../Connections/newttf.asp, line 7

MM_newttf_STRING = Set Conn = Server.CreateObject("ADODB.Connection") conString = "DBQ=D:\k\f\kfirth\private\newttf.mdb" Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & conString
-------------------^
has anyone any idea? my web host is not being very helpful !
thanks

 

[mtyler]

my dnsless solution

create a includes folder

create a dnsless.asp page in includes folder

paste the following in dnsless page
<!-- ############ Begin dnsless code ###### -->
<%
Dim webfoldername, dbfolder, dbname
Dim full_path_value, findwebfolder, basepath, location_of_db

webfoldername = "mywebfolder"
dbfolder ="\folderholdingdb\"
dbname ="databasename.mdb"

full_path_value = request.servervariables(30)

findwebfolder =instr(full_path_value,webfoldername)
basepath= mid(full_path_value,1,findwebfolder-1)

function dbopen(MyConn, databasename)
location_of_db = basepath & webfoldername & dbfolder & databasename
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & location_of_db
end function

function rsclose(MyConn)
MyConn.Close
set MyConn=nothing
end function

function dbclose(MyConn)
MyConn.Close
set MyConn=nothing
end function
%>
<!-- ######### End dnsless code ######### -->

create create printpage.asp

paste the following in printpage page
<!-- ######### begin printpage code ######### -->
<!-- #INCLUDE VIRTUAL="/includes/adovbs.inc" -->
<!-- #INCLUDE VIRTUAL="/includes/dsnless.asp" -->
<%
dbopen myNameDb, dbname
set myNameRs = myNameDb.Execute(MyNameSQL)
thisname = myNameRs("dbfieldname")
rsclose myNameRs
dbclose myNameDb

response.write thisname
%>
<!-- ######### end printpage code ######### -->

 

[firthk]

Excellent - thanks very much - all working