<%
Set rs=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM _GrpWeeklyBrief WHERE GrpEnable=1 ORDER BY GrpDateFrom"
rs.open strSQL,conn,1,1
while not rs.eof
PeriodGrp=rs("GrpID")
PeriodFrom=rs("GrpDateFrom")
PeriodTo=rs("GrpDateTo")
rs.movenext
wend
rs.close
set rs=nothing%>
<%
if straction="view" then
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM _currentissues WHERE issueID="&issueID
rs.open strSQL,conn,1,1
if not rs.eof then%>
<%=rs("issue")%>
Presidential Response : <%=replace(rs("issueresponse"),vbcrlf,"
")%>
<%end if
end if%>
<%if tmplink="archive" then%>
<%
if request.querystring("Eaction")="result" then
Emonth=request.form("FromMonth")
Eyear=request.form("FromYear")
Set rs=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT _grpWeeklyBrief.*, _currentissues.* FROM _currentissues INNER JOIN _grpWeeklyBrief ON _grpWeeklyBrief.grpID = _currentissues.grpIssueID WHERE Month(_GrpWeeklyBrief.GrpDateFrom) = " &Emonth &"and Year(_GrpWeeklyBrief.GrpDateFrom)="&Eyear
rs.open strSQL,conn,1,1
if not rs.eof then%>
<%=Monthname(Emonth)%> <%=Eyear%> Archive
<%else%>
No record found for the month of <%=Monthname(Emonth)%>
<%end if
rs.close
set rs=nothing
end if%>
<%end if%>
|
|
 |
ISSUES
<%=MonthName(Month(PeriodFrom))%> <%=Day(PeriodFrom)%>, <%=Year(PeriodFrom)%> - <%=MonthName(Month(PeriodTo))%> <%=Day(PeriodTo)%>, <%=Year(PeriodTo)%>
|
 |
<%
'PeriodGrp = 1
Set rs=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM _CurrentIssues WHERE grpIssueID="&PeriodGrp
'strSQL="SELECT _currentissues.*, _policy.* FROM _policy INNER JOIN _policystatement ON _policystatement.policytitleID=_policy.policyTitleID WHERE _policyStatement.GrpPolicyID="&PeriodGrp
rs.open strSQL,conn,1,1
if not rs.eof then
%>
<% end if
rs.close
set rs=nothing
%>
|
|
