---

Hej

Er der noget af jer der har et eksempel på en forbindelse til databasen hos
http://www.wannafind.dk

Hilsen

Jan

---

"Jan Bang Madsen" <jbm@jbmsoft.dk> wrote in message
news:aukem4$2kcm$1@news.cybercity.dk...
> Hej
>
> Er der noget af jer der har et eksempel på en forbindelse til databasen
hos
> http://www.wannafind.dk
>
> Hilsen
>
> Jan
>
>
Hej Jan

Følgende virker med min Access db:

Dim Conn
function OpenConn (DBName)

Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.ServerVariables("PATH_TRANSLATED"),
instrrev(request.ServerVariables("PATH_TRANSLATED"), "\"))
Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath &
";Driver={Microsoft Access Driver (*.mdb)}"

End function

OpenConn("opskrifter.mdb")

--
Med venlig hilsen

Klaus Egebjerg
Brygladen I/S
www.brygladen.dk
ke@brygladen.dk

---

"Klaus Egebjerg" <klausegebjerg@get2net.dk> skrev i en meddelelse
news:CTjP9.15674$Hl6.1818047@news010.worldonline.dk...
>
> "Jan Bang Madsen" <jbm@jbmsoft.dk> wrote in message
> news:aukem4$2kcm$1@news.cybercity.dk...
> Set Conn = Server.CreateObject("ADODB.Connection")
> ODBCpath = left(request.ServerVariables("PATH_TRANSLATED"),
> instrrev(request.ServerVariables("PATH_TRANSLATED"), "\"))
> Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath &
> ";Driver={Microsoft Access Driver (*.mdb)}"
>
> End function
>
> OpenConn("opskrifter.mdb")
>
> --
> Med venlig hilsen
>
> Klaus Egebjerg
> Brygladen I/S
> www.brygladen.dk
> ke@brygladen.dk
>
>
Tak for svaret. Det var det jeg skulle bruge.

Hilsen

Jan