Object required: 'Conn'

Hej eksperter!

Hvorfor får jeg følgende fejl:
Microsoft VBScript runtime error '800a01a8'

Object required: 'Conn'

/pages/situation_reports.asp, line 46

---------------------
situation_reports.asp

<!--#include virtual="pages/includes/functions.asp" -->                 
<%
SQL = "SELECT news.id as newsid, addeddate, addeddate, topic, body, author, members.id as memberid, nick FROM news, members WHERE members.id = author ORDER BY news.id DESC limit 0,4"
set RS = conn.execute(SQL)
    if RS.EOF then

    response.write("<font color='#cccccc'>Ingen nyheder fundet i databasen!</font>")

    else

    do while not RS.EOF
   
response.write("<table width='500' border='0' cellpadding='0' cellspacing='3' class='contenst_text'>")
response.write("<tr>")                   
  response.write("<td height='41' align='center'><table height='40' border='0' cellpadding='2' cellspacing='5' class='newsheader'>")                   
  response.write("<tr>")                     
    response.write("<td height='30' align='left' valign='top'>" & RS("topic") & "<br>")                     
      response.write("<table width='100%' border='0' cellpadding='0' cellspacing='0' class='text'>")
      response.write("<td width='500'><font color='#999999'>Skrevet d. " & formatdatetime(RS("addeddate"),2) & " kl. " & formatdatetime(RS("addeddate"),4) & "</a></font></td>")
      response.write("</tr>")                           
      response.write("</table>")
      response.write("</td>")                     
      response.write("</tr>")                 
      response.write("</table>")
      response.write("</td>")
      response.write("</tr>")               
      response.write("</table>") 
      response.write("<table width='493' border='0' cellpadding='0' cellspacing='12' class='contenst_text'>") 
      response.write("<tr>")
      response.write("<td valign='top'>" & (RS("body")) & "<br>")
     
      response.write("</td>")
      response.write("</tr>")
      response.write("<tr>")
      response.write("<td height='12' valign='top'>")
      response.write("</td>")
      response.write("</tr>")
      response.write("</table>")
      response.write("<br>")
      response.write("</td>")
      response.write("</tr>")
      response.write("</table> ")             
                     
                           
             
    RS.movenext
    loop
    end if
   
%>


---------------------------
functions.asp

<%
    Function opendb()
    SQLserveradr="localhost"
    SQLdatabase="team-nopanic_dk"
    SQLlogin="team-nopanic_dk"
    SQLpassword="41AwDZy2"

    Set Conn = Server.CreateObject("ADODB.Connection")

    conStr = "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase
    conStr = conStr & ";uid="& SQLlogin &";pwd="& SQLpassword & ";OPTION=16386"

    Conn.Open conStr
    set opendb = conn
    End function

    Function closedb ()
        conn.close
        Set conn = nothing
    End Function
%>


---------------------

Tror at det er min include af functions som ikke sidder helt ordetligt, men ved ellers ikke hvor den skal være.

På forhånd tak