Здравствуйте.

есть asp код:

dim cn_str
cn_str= "тут строка подкл. к базе"
public function db_open(sql_var)
dim main_rs
set main_rs=server.CreateObject("adodb.recordset")
with main_rs
.cursorlocation=3
.cursortype=3
.locktype=3
.open sql_var, cn_str
'if sort_var<>"" then main_rs.sort=sort_var - это пока ненужно
set .activeconnection=nothing
end with
set db_open=main_rs
'main_rs.close вот тут интересно. если main_rs закрыть то данные использовать нельзя,
set main_rs=nothing 'при этом очищая main_rs данные передаются(ну вопрос не в этом).
end function
dim my_rs
set my_rs=db_open("тут sql команда")
'.....................................................................................................
'.....................................................................................................
'.....................................................................................................
set my_rs=nothing
set cn_str=nothing



Это все работает.

Внимание вопрос. Является ли такой код оправданным к ресурсам сервера и бд.
И какие советы по этому поводу есть.
Заранее спасибо.