open ı close ıle kapatmak

elımde bır script var, ancak sıtede bellı bır sure sonra ldb ler oluşuyor bunun sebebı sanırım kodlarından kaynaklanıyor,

<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("xxxxxxx/database.mdb")
%>

db bu şekılde hep açılmış bunun close olayını nasıl yaparız acaba ? yanı kapamasını ? kodlar nasıl olmalı

<%
Sur.close
%>

<%
sur.close
set sur = nothing %>
set sur = nothing kullanmadıkça kapatma işlemlerinizin anlamı kalmaz. (recordset i de kapatmayı unutmayın)

tek satırda bu şekilde de kullanabilirsiniz:
<% sur.close:set sur = nothing %>

Saygılar, kolay gelsin.