<%
if straction="view" then
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM _policystatement WHERE policyID="&policyID
rs.open strSQL,conn,1,1
if not rs.eof then%>
<%=EgrpID%>
<%=replace(rs("policycontent"),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.*, _policystatement.* FROM _policystatement INNER JOIN _grpWeeklyBrief ON _grpWeeklyBrief.grpID = _policyStatement.grpPolicyID 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
<%while not rs.eof%>
<%
TmpPolicyID=rs("policyTitleID")
Set rs1=Server.CreateObject("ADODB.Recordset")
strsql1="SELECT * FROM _policy WHERE policytitleID="&TmpPolicyID
rs1.open strsql1,conn,1,1
if not rs1.eof then
EPolicyTitle=rs1("policyTitle")
end if
rs1.close
set rs1=nothing
%>
| <%=rs("GrpDateFrom")%> | &grpid=<%=EpolicyTitle%>"><%=EpolicyTitle%> |
<% rs.movenext
wend%>
<%else%>
Sorry no record found for your request.
<%end if
rs.close
set rs=nothing
end if%>
<%end if%>
|
<%
'LIST POLICY STATEMENT
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
%>
 |
POLICY STATEMENTS
<%=MonthName(Month(PeriodFrom))%> <%=Day(PeriodFrom)%>, <%=Year(PeriodFrom)%> - <%=MonthName(Month(PeriodTo))%> <%=Day(PeriodTo)%>, <%=Year(PeriodTo)%>
|
 |
<%
'PeriodGrp = 1
Set rs=Server.CreateObject("ADODB.Recordset")
strSQL="SELECT _policyStatement.*, _policy.* FROM _policy INNER JOIN _policystatement ON _policystatement.policytitleID=_policy.policyTitleID WHERE _policyStatement.GrpPolicyID="&PeriodGrp
'response.write strSQL
'response.end
rs.open strSQL,conn,1,1
if not rs.eof then
%>
<% end if
rs.close
set rs=nothing
%>
|
|
