2 svar · 170 visningar · startad av Harback
Hejsan.
Jag har ett litet problem som nog är ganska enkelt att lösa. Jag ska göra en koppling till en databas som måste göras med ../ (alltså inte virtuellt).
Jag använder denna kod för att koppla till databasen och det är en include-fil
<% Function connectDB
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
set connectDB=Connect
End Function %>
Jag vill att man ska kunna skriva connect(2) och att det då blir två ../ innan databasenlänken. Alltså
Set Connect = connectdb(2)
blir i functionen
<% Function connectDB
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("TVÅ STYCKEN ../ INNAN db.mdb")
set connectDB=Connect
End Function %>
självklart ska man kunna skriva in connect(1) och connect(3) osv.
Någon som kan hjälpa mig?
------------------
MVH
Harback
<% Function connectDB(ByVal levels)
str = ""
for i 1 to levels
str = str & "../"
next
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( str & "db.mdb")
set connectDB=Connect
End Function %>
------------------
essentitia preter non sans multiplicandum