<% action = request("action") if len(action) > 0 then if action = "Add" then rp_prj_name = request("rp_prj_name") rp_cus_id= request("rp_cus_id") qryAdd = "insert into report_project(rp_prj_name, rp_cus_id) values('"& encode(rp_prj_name) &"', "& rp_cus_id &")" set rsAdd =conn.execute(qryAdd) set rsAdd = nothing elseif action = "Delete" then rp_prj_id = request("rp_prj_id") qryDel = "delete from report_project where rp_prj_id = "& rp_prj_id &"" set rsDel = conn.execute(qryDel) set rsDel = nothing end if response.redirect "report_project.asp" end if %>
<% 'From menu = == Program sql = "select * from report_project order by rp_prj_id" set rs = conn.execute(sql) response.write "Found : " & rs.recordcount & " item(s)" do while not rs.eof %> <% rs.movenext:loop set rs = nothing %>
Report : Project
 Project
 Customer
Edit
Del
 <%=rs("rp_prj_name")%>   <% qryCT = "select *,* from report_customer cus, report_country cnt where cus.rp_cus_id = "& rs("rp_cus_id") &" and cus.rp_country_id = cnt.rp_country_id" set rsCT = conn.execute(qryCT) if not rsCT.eof then response.write rsCT("rp_cus_name") & "/" & rsCT("rp_country_name") end if set rsCT = nothing %>
 
   
Project :
Customer :