Global DB connection

Hvad har du helt konkret gjort? Kan du vise noget af det kode som ikke fungerer?

...og gerne den kode du har i din include med OpenDB og CloseDB.

'Forbindelse til databasen
Function OpenDB()
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={MySQL}Server=localhost;Database=xxx;UID=xxx;Pwd=xxx;"
End function

'Lukker databasen
Function CloseDB()
    Conn.Close
    Set Conn = Nothing
End function

dette ligger i filen db.asp

dette indcluder jeg så med <!-- #include file="db.asp" -->

og kalder med Call OpenDB osv

måske noget med global.asa, og i så fald hvordan?

Hvor er Conn erklæret?

Jeg vil umiddelbart anbefale at du udformer dine funktioner således:

'Forbindelse til databasen
Function OpenDB()
  Dim Conn
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={MySQL}Server=localhost;Database=xxx;UID=xxx;Pwd=xxx;"
  Set OpenDB = Conn
End function

'Lukker databasen
Function CloseDB(Conn)
    Conn.Close
    Set Conn = Nothing
End function

og kalder funktionerne således:

<!-- #include file="db.asp" -->

<%
dim objConn
set objConn = OpenDB()

' Do your thing...!

CloseDB objConn
%>

Well, faktisk giver det ikke meget mening at sætte Conn = nothing inde i funktionen CloseDB, så den kan du godt fjerne. Det vigtigste er at forbindelsen bliver lukket - variablen skal nok forsvinde igen... (tror jeg nok - det er lidt svært at vide med VBScript).

jeg får følgende med fejl med dit kodeeksempel

Error Type:
Sun ONE ASP VBScript runtime (0x800A01A8)
Object required: 'Conn'
cv.asp, line 25


linie 25 i cv.asp er

Set profil = Conn.Execute("SELECT beskrivelse FROM ashansen_cv WHERE type='profil'")

Bemærk at jeg kalde connection-variablen objConn og ikke Conn (hvis altså du brugte min kode råt :))...

kalde = kaldte

Det er jo perfekt

Tusinde tak for hjælpen
Du skal have point

Ja tak, og velbekomme :)

Tak for point :)