%
dim ObjInstalled,Action,FoundErr,ErrMsg
Action=trim(request("Action"))
if Action="" then
Action="ShowInfo"
end if
%>
<%set rs=server.createobject("adodb.recordset")
rs.open "select * from liangjing_newpic",conn,1,3
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>