<%
If IsObject(Session("sadut_conn")) Then
    Set conn = Session("sadut_conn")
Else
    Set conn = Server.CreateObject("ADODB.Connection")
   conn.open "sadut", "satu", "story"
    Set Session("sadut_conn") = conn
End If
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn , 3, 3
%>