<% M_UAdd = fun_chkRight("Gallery","A")
if M_UAdd = 0 then %>
<% response.end
end if%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select a.galid, a.heading from photo_gallary a where a.display = 'Y'"
rs.Open strSQL, con, 3, 3
if rs.EOF Then
Emsg = "Please create gallery first"
else
galArr = rs.GetRows()
end if
rs.Close
set rs = nothing
con.Close
set con = nothing
%>