Lave en funktion som åbner en databaseforbindelse?

ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=d:webs\minside.dk\access\db.mdb;" & "DefaultDir=d:webs\minside.dk\access\;" & "FIL=MS Access;"
    DB.Open ConnectionString

Det er ikke i forbindelsen den er gal.. Det virker fint hvis jeg laver det uden for en funktion.

if SQL = "" then
    SQL = "SELECT * FROM login WHERE Brugernavn ='" & Session("brugernavn") & "'"
    Set RS = Server.CreateObject("ADODB.Recordset")
    RS.Open SQL, DB, 3, 3
end if

Lav det i en Sub.

Sikken en gang sludder - du får den lige igen:

SQL = "SELECT * FROM login WHERE Brugernavn ='" & Session("brugernavn") & "'"
if SQL = "" then
    Set RS = Server.CreateObject("ADODB.Recordset")
    RS.Open SQL, DB, 3, 3
end if

Jeg har prøvet at lave det i en Sub, men med samme resultat :( oasen's kunne jeg heller ikke få til at virke :(

swiffer>> du bruger vel ikke RS andre steder på din side, udenfor din sub ?

Hvad mener du? Altså det var meningen at jeg ville lave det sådan at man bare kunne skrive:

Connect()
rs("etellerende") = "etelelrandet"
'luk forbindelse

Kan man da ikke det??

swiffer --> Jeg tror også, det var noget vrøvl, jeg sagde igen. Du kalder vel funktionen med dit SQL-statement.

swiffer>> det kan du ikke... så skal du have dim'et din rs UDEN for din sub, ellers vil den kun eksistere som en privat variabel.

Prøv det her:
*********** Include.asp ***********
Private sub Connection
Dim bc,db,rs
    Set bc = Server.CreateObject("MSWC.BrowserType")
    Set DB = Server.CreateObject("ADODB.Connection")
    DB.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=d:webs\minside.dk\access\db.mdb;" & "DefaultDir=d:webs\minside.dk\access\;" & "FIL=MS Access;"
    DB.Open
end sub
**********************************

*********** siden du kalder koden fra ***********
<!-- #include file="include/include.asp" -->

<%
Connection
%>

SQL = "SELECT * FROM login WHERE Brugernavn ='" & Session("brugernavn") & "'"
set rs = db.execute(SQL)
*************************************************

På denne måde kalder du bare "connection" i toppen af de sider hvor du skal bruge databasen. Det er i hvert fald nogenlunde sådan jeg gør det.
Du kan også have mange forskellige functions og subs liggende, som du kan kalde når der er brug for det...

...jeg er desuden gået ud fra at det ikke er den samme SQL-sætning du vil køre hver gang...

Når du vil lukke forbindelsen igen skriver du bare <% Con-Close %>.
Så har du nemlig følgende i include.asp:

Private Sub Con.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
end sub

Jamen det er jo perfekt :)

Det var da godt at jeg kunne hjælpe :)