<% ct_id = request("country_id") wk_id = request("week_id") qryCt = "select rp_country_name from report_country where rp_country_id ="& ct_id &"" set rsCt = conn.execute(qryCt) country_name = rsCt("rp_country_name") set rsCt = nothing qryW = "select * from report_week where rp_week_id = "& wk_id &"" set rsW = conn.execute(qryW) weekly = FormatDay(rsW("rp_week_start"), "e") & " - " & FormatDay(rsW("rp_week_end"), "e") set rsW = nothing %>
 Login : <%=Session("memberlogin")%>  
 
Weekly Executive Report
<%=weekly%>



 Weekly Report
 
  <% qryRp = "select * from report_customer where rp_country_id = "& ct_id &"" set rsRp = conn.execute(qryRp) do while not rsRp.eof %> <% rsRp.movenext:loop set rsRp = nothing %>
<%=country_name%> Customer Related Issues
 Customer
Last Week Activities and Remark
 <%=rsRp("rp_cus_name")%> <% qryPrj = "select * from report_project where rp_cus_id = "& rsRp("rp_cus_id") &"" set rsPrj = conn.execute(qryPrj) do while not rsPrj.eof qryRpt = "select * from report where rp_prj_id = "& rsPrj("rp_prj_id") &" and rp_week_id = "& wk_id &"" set rsRpt = conn.execute(qryRpt) if not rsRpt.eof then rp_detail = rsRpt("rp_detail") rp_id = rsRpt("rp_id") end if set rsRpt = nothing %> <% rp_id = "" rp_detail = "" url = "" remark = "+" rsPrj.movenext:loop set rsPrj = nothing %>
<%=rsPrj("rp_prj_name")%> <% if len(rp_detail) > 0 then url = "report_weekly_edit.asp" else url = "report_weekly_msg.asp" end if if len(rp_id) > 0 then qryrk = "select * from report where rp_id = "& rp_id &" and rp_prj_id = "& rsPrj("rp_prj_id") &" and rp_week_id = "& wk_id &"" set rsrk = conn.execute(qryrk) if not rsrk.eof then if len( rsrk("rp_remark")) > 0 then remark = rsrk("rp_remark") else remark = "" end if end if set rsrk = nothing end if %> &ct_id=<%=ct_id%>&wk_id=<%=wk_id%>&rp_id=<%=rp_id%>','Message','toolbar=no,status=yes,resizable=no,width=560,height=480')">(+)
<%=rp_detail%>