<% action = request("action") if len(action) > 0 then if action = "Add New" then report_country_name= request("report_country_name") qryAdd = "insert into report_country(rp_country_name) values('"& encode(report_country_name) &"')" set rsAdd =conn.execute(qryAdd) set rsAdd = nothing elseif action = "Delete" then rp_country_id = request("rp_country_id") qryDel = "delete from report_country where rp_country_id = "& rp_country_id &"" set rsDel = conn.execute(qryDel) set rsDel = nothing end if response.redirect "report_country.asp" end if %>
<% 'From menu = == Program sql = "select * from report_country" set rs = conn.execute(sql) response.write "Found : " & rs.recordcount & " item(s)" do while not rs.eof %> <% rs.movenext:loop set rs = nothing %>
Report : Country
 Country
Edit
Del
 <%=rs("rp_country_name")%>
Country name :