<%
M_UAdd = fun_chkRight("Page","E")
if M_UAdd = 0 then %>
<% response.end
end if%>
<%
Function checkedVal(oriVal,dataVal)
if Trim(oriVal) <> "" and Trim(dataVal) <> "" Then
if cstr(oriVal) = cstr(dataVal) Then
checkedVal = "checked"
else
checkedVal = ""
end if
else
checkedVal = ""
end if
End Function
DB_active = "Y"
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select a.varid, b.pageTitle, a.varvalue, a.display from webpage_variables a, webpages b where a.pageid = b.pageid and a.varname = '4dcc'"
rs.Open strSQL, con, 3, 3
if not rs.EOF Then
varArr = rs.GetRows()
DB_active = Trim(varArr(3,0))
ttlpg = ubound(varArr, 2)
end if
rs.Close
%>