<% 'Submit this form if len(request.form("action")) > 0 then rp_cus_id = request.form("rp_cus_id") rp_cus_name = request.form("rp_cus_name") rp_country_id = request.form("rp_country_id") qry = "update report_customer set rp_cus_name = '"& encode(rp_cus_name) &"', rp_country_id = "& rp_country_id &" where rp_cus_id = "& rp_cus_id &"" set rs = conn.execute(qry) set rs = nothing response.write "" end if %>
>>Customer: Edit
<% rp_cus_id = request("rp_cus_id") qry = "select * from report_customer where rp_cus_id = "& rp_cus_id &"" set rs = conn.execute(qry) %>
Customer :
" size="25">
Country :
<% qryL2 = "select * from report_country" set rsL2 = conn.execute(qryL2) sel = "" do while not rsL2.eof if cInt(rsL2("rp_country_id")) = cInt(rs("rp_country_id")) then sel = "selected" end if%>
" <%=sel%>><%=rsL2("rp_country_name")%>
<% sel = "" rsL2.movenext:loop set rsL2 = nothing %>