Luk connection ??

OK... Hilfe please... As the rookie I am aner jeg ikke hvordan jeg lukker connection\'en igen..

Det skal iøvrigt være sådan at jeg løbende kan ændre i databasen uden at access\'s lockfile blokerer..

How so?

<HTML>
<HEAD>
<META HTTP-EQUIV=\"Content-Type\" CONTENT=\"text/html;charset=windows-1252\">
<TITLE>diskotel</TITLE>
</HEAD>
<BODY>
<%
If IsObject(Session(\"diskotel_conn\")) Then
    Set conn = Session(\"diskotel_conn\")
Else
    Set conn = Server.CreateObject(\"ADODB.Connection\")
    conn.open \"diskotel\",\"\",\"\"
    Set Session(\"diskotel_conn\") = conn
End If
%>
<%
If IsObject(Session(\"diskotel_rs\")) Then
    Set rs = Session(\"diskotel_rs\")
Else
    sql = \"SELECT * FROM [diskotel]\"
    Set rs = Server.CreateObject(\"ADODB.Recordset\")
    rs.Open sql, conn, 3, 3
    If rs.eof Then
        rs.AddNew
    End If
    Set Session(\"diskotel_rs\") = rs
End If
%>
<TABLE BORDER=1 BGCOLOR=#ffffff CELLSPACING=0><FONT FACE=\"Verdana\" COLOR=#000000><CAPTION><B>diskotel</B></CAPTION></FONT>

<THEAD>
<TR>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE=\"Verdana\" COLOR=#000000>disko-ID</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE=\"Verdana\" COLOR=#000000>amt</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE=\"Verdana\" COLOR=#000000>postnr</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE=\"Verdana\" COLOR=#000000>by</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE=\"Verdana\" COLOR=#000000>diskotek</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE=\"Verdana\" COLOR=#000000>notat</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE=\"Verdana\" COLOR=#000000>maanedsvinder</FONT></TH>
<TH BGCOLOR=#c0c0c0 BORDERCOLOR=#000000 ><FONT SIZE=2 FACE=\"Verdana\" COLOR=#000000>Tid</FONT></TH>
</TR>
</THEAD>
<TBODY>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
<TR VALIGN=TOP>
<TD BORDERCOLOR=#000000  ALIGN=RIGHT><FONT SIZE=1 FACE=\"Verdana\"

COLOR=#000000><%=Server.HTMLEncode(rs.Fields(\"disko-ID\").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#000000 ><FONT SIZE=1 FACE=\"Verdana\"

COLOR=#000000><%=Server.HTMLEncode(rs.Fields(\"amt\").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#000000  ALIGN=RIGHT><FONT SIZE=1 FACE=\"Verdana\"

COLOR=#000000><%=Server.HTMLEncode(rs.Fields(\"postnr\").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#000000 ><FONT SIZE=1 FACE=\"Verdana\"

COLOR=#000000><%=Server.HTMLEncode(rs.Fields(\"by\").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#000000 ><FONT SIZE=1 FACE=\"Verdana\"

COLOR=#000000><%=Server.HTMLEncode(rs.Fields(\"diskotek\").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#000000 ><FONT SIZE=1 FACE=\"Verdana\"

COLOR=#000000><%=Server.HTMLEncode(rs.Fields(\"notat\").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#000000  ALIGN=RIGHT><FONT SIZE=2 FACE=\"Verdana\"

COLOR=#000000><%=Server.HTMLEncode(rs.Fields(\"maanedsvinder\").Value)%><BR></FONT></TD>
<TD BORDERCOLOR=#000000  ALIGN=RIGHT><FONT SIZE=2 FACE=\"Verdana\"

COLOR=#000000><%=Server.HTMLEncode(rs.Fields(\"ur\").Value)%><BR></FONT></TD>
</TR>
<%
rs.MoveNext
loop%>
</TBODY>
<TFOOT></TFOOT>
</TABLE>
</BODY>
</HTML>