dsnless odbc access db 1

[scottRen]

can't seem to get this connection stinr working....any ideas?

MyConnection.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ 
           "Dbq=c:\path\dbName.mdb;"

.Write "<Select name=Myselectbox><option value="""">Please Select</option>"
	Set Myrs = MyConnection.Execute("SELECT name FROM TblName")
 	 		Do Until Myrs.eof
.Write "<option value"""&Myrs("name")&""">"&Myrs("name")&"</option>"
 	 	Myrs.movenext
			loop
.Write "</select>"
		Set Myrs = nothing
		MyConnection.close
		Set MyConnection = Nothing

 

[Sheco]

Look here:

http://www.connectionstrings.com

 

[steven290]

how about

strDBPath = Server.MapPath("dbName.mdb")

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

Set rs = conn.Execute("SELECT name FROM TblName")

response.Write "<Select name=Myselectbox><option value="""">Please Select</option>"

Do Until Myrs.eof
response.Write "<option value="""& rs("name")&""">"& rs("name")&"</option>"

rs.movenext
loop
response.Write "</select>"

rs.close
Set rs = nothing
conn.close
Set conn = Nothing

 

[steven290]

if server.mappath doesn't work well for you try

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open [red]"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\path\dbName.mdb;"[/red]

Set rs = conn.Execute("SELECT name FROM TblName")

response.Write "<Select name=Myselectbox><option value="""">Please Select</option>"

Do Until Myrs.eof
response.Write "<option value="""& rs("name")&""">"& rs("name")&"</option>"

rs.movenext
loop
response.Write "</select>"

rs.close
Set rs = nothing
conn.close
Set conn = Nothing