Lukker databasen

Hej

Hvordan kan det være at min databasen lukker efter hver linje?

jeg bruger dette script:

<!-- #include virtual="/db.asp" -->

<%

set rs=conn.execute("select * from personer where brugerid='pp41' and status=1 ORDER BY RAND() limit 3")
function forsidepiger
    if rs.eof=false then
        do until rs.eof= true
        set r1=conn.execute("select link from billeder")
        response.write "<table width=""100%"" cellspacing=""0""><tr><td  cellpadding=""2"" style=""background-color: ED1C24; border: 1px solid white; border-top: 2px solid white;""><font face=""verdana"" size=""2"" color=""white""><b>"& rs("navn") &"</b></font></td></tr><tr><td style=""margin-left: 3px; border: 1px solid white; border-bottom: 2px solid white;""><img src=""/billeder/"& r1("link") &"""></td></tr></table><p>"
        rs.movenext
        loop
    else
    end if
end function

%>

hvor jeg i db.asp åbner databasen...