Fjerne overflødig database åbning

Hejsa!

Jeg har en aspside hvor jeg i toppen inkluderer en database åbning!

Jeg har så et script inde på siden som også henter en database! denne vil jeg meget gerne have væk da den jo allerede er åbnet, plus det også er svært at evt. flytte databasen til et andet bib.

min koder er forneden:

--- include fil -----------------------

<%
MM_website_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/") & "/database/database.mdb"
%>

-- script midt på siden -----------

' vil gerne have fjernet fra her-------
        <%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("../../database/database.mdb")
    %>

' til her ------- :D

        <%
set rs = conn.Execute("select * from Categories")
do while not rs.eof
  response.write "<a href=""index2.asp?openID=" & rs("Kid") & """>" & rs("Kheadline") & "</a><br>"
  if request.querystring("openID") = rs("Kid")& "" then
    set rs1 = conn.Execute("select * from texts where Kkey="& rs("Kid"))
    do while not rs1.eof
      response.write "&nbsp;<img src='../design/ikons/" & rs1("Tshow") & ".gif' width='10' height='9' align='absmiddle' border='0'>&nbsp;" & "<a href=""edit.asp?textID=" & rs1("TID")  & "&openID=" & rs("Kid") & """>" & rs1("headline")& "<font color='#C0C0C0'>&nbsp;- showing on main page&nbsp;<b>" & rs1("Tshow") & "</b></font><br>"
      rs1.MoveNext
    loop
  end if
  rs.MoveNext
loop
%>