<%
    strconn="PROVIDER=SQLOLEDB;Data Source=192.168.101.3;User Id=sa;Password=11111;Database=TestDb"
    Set cnn = Server.CreateObject("ADODB.Connection")
    cnn.Open strconn

    sqlstr="select * from Wallpaper order by id desc"
    Set conn = CreateObject("ADODB.Recordset")
    conn.Open sqlstr, cnn, 1, 3
    response.write conn("name")
%>

<%
    function conndb()
        strconn="PROVIDER=SQLOLEDB;Data Source=192.168.101.3;User Id=sa;Password=11111;Database=TestDb"
        Set cnn = Server.CreateObject("ADODB.Connection")
        cnn.Open strconn
        conndb = cnn
    end function

    cnn = conndb()
    sqlstr="select * from Wallpaper order by id desc"
    Set conn = CreateObject("ADODB.Recordset")
    conn.Open sqlstr, cnn, 1, 3
    response.write conn("name")
%>