<!--#include file="conn.asp"-->
<%
	select case request.QueryString("action")
	case "edit"
		dim rs,sql	
		'set rs=server.CreateObject("adodb.recordset")
		sql="update tbl_online set o_name='"&request.Form("f_name")&"' ,"
		sql=sql&"o_sex='"&request.Form("f_sex")&"' ,"
		sql=sql&"o_tel="&request.Form("f_tel")&" ,"
		sql=sql&"o_email='"&request.Form("f_email")&"' ,"
		sql=sql&"o_job='"&request.Form("f_job")&"' ,"
		sql=sql&"o_families="&request.Form("f_families")&" ,"
		sql=sql&"o_addr='"&request.Form("f_addr")&"' ,"
		sql=sql&"o_type='"&request.Form("f_type")&"' ,"
		sql=sql&"o_area="&request.Form("f_area")&" ,"
		sql=sql&"o_style='"&request.Form("f_style")&"' ,"
		sql=sql&"o_pay="&request.Form("f_pay")&" ,"
		sql=sql&"o_starttime='"&request.Form("f_starttime")&"'"
		sql=sql&" where o_id="&request.QueryString("id")&""
		conn.execute sql
		response.Redirect"Manage_List.asp"
	case "del"
		dim del_sql
		del_sql="delete * from tbl_online where o_id="&request.QueryString("id")&" "
		conn.execute del_sql
		response.Redirect"Manage_List.asp"
	end select
%>