Simplificer min asp code.

Når jeg laver sider i asp, så er jeg sikker på jeg har alt for meget asp code med. Jeg åbner og lukker databasen 3-4 gange på en side, og det må kunne gøres mere simpelt...

Eksempel

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strConn
strSQL = "select * from tabel1"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write ""
else
Do Until rs.EOF
%>

<%= rs("blahblah") %>

<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>



<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open strConn
strSQL = "select * from tabel2"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write ""
else
Do Until rs.EOF
%>

<%= rs("blahblah") %>

<%RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing%>

Hvordan korter jeg den ned så jeg ikke åbner databasen hver gang ?