Funktioner?

Hvad kan der være galt med nedenstående kode? Den siger, at objektet ikke findes - men jeg har tjekket, at selve databaseforbindelsen virker, hvis jeg ikke kalder den fra en subrutine?     


function database
    set conn = Server.CreateObject("ADODB.Connection")
    conn.Open"DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("../db/nyheder.mdb")&";"
end function

function lukconnection
    conn.close
    set conn=nothing
end function

function fejlmeddelelse
    If Err.Number = 0 Then
        response.write "<p><font color=green>Nyheden er opdateret.</font><p>"
    Else
        response.write "<p><font color=red>Der var en fejl, da du opdaterede nyheden.<p>"
        response.write "<p>Error #"&Err.Number&": " &Err.Description&"</font>"
    End If
end function



        Database ' lav connection
       
    SQL= "SELECT Dato, Overskrift, id, Forfatter FROM NYHEDER order BY Dato DESC"
    Set Nyheddb = conn.Execute(SQL) 'her er fejlmeddelelsen

    Do While Not Nyheddb.EOF

        Dato=Nyheddb("Dato")
        overskrift=Nyheddb("Overskrift")
        id=Nyheddb("id")
        forfatter=Nyheddb("Forfatter")

        Response.Write("<b>"&dato&": "&overskrift&"</b> - ID: "&id&" - Forfatter: "&forfatter&" - <a href='index.asp?mode=rediger&id="&id&"'>Rediger</a> - <a href='index.asp?mode=slet&id="&id&"'>Slet</a><br>")

    nyheddb.MoveNext
   
    Loop
   
    nyheddb.close
    set nyheddb = nothing
   
    Lukconnection