<%
XingMing=DelHtml(request.form("txt_xingming"))
txt_sex=request.form("rad_sex")
txt_title=DelHtml(request.form("txt_title"))
txt_research=DelHtml(request.form("txt_research"))
txt_researchtype=DelHtml(request.form("rad_searchtype"))
txt_guojia=DelHtml(request.form("txt_guojia"))
txt_prov=DelHtml(request.form("txt_prov"))
txt_city=DelHtml(request.form("txt_city"))
txt_jigou=DelHtml(request.form("txt_jigou") )
txt_youbian=DelHtml(request.form("txt_post"))
txt_mail=DelHtml(request.form("txt_mail"))
txt_tel=DelHtml(request.form("txt_tel"))
txt_fax=DelHtml(request.form("txt_fax"))
txt_dizhi=DelHtml(request.form("txt_address"))
txt_item=request.form("txt_item")
txt_session=request.form("sel_session")
txt_tickettype2=request.form("rad_ticket2")
txt_tickettype=request.form("rad_ticket")
txt_gg=request.form("rad_ggtype")
txt_joinother=DelHtml(request.form("JoinOther"))
txt_payment=request.form("rad_payment")
payment_other=DelHtml(request.form("payment_other"))
if request.form("txt_shifu")="" then
txt_shifu=0
else
txt_shifu=request.form("txt_shifu")
end if
admin_user=DelHtml(request.form("txt_admin"))
txt_cwbark=DelHtml(request.form("txt_cwbark"))
dim db
Set db=new Connections
set trs=server.CreateObject("ADODB.recordset")
strsql="select * from MEMBER_CN where M_MAIL='"& txt_mail &"'"
set trs=db.Query (strsql,1)
if not trs.eof or not trs.bof then
response.write ""
response.end
end if
add_sql="insert into MEMBER_CN(M_NAME,M_SEX,M_RESEARCH,M_FENLEI,M_AGENCIES,M_TITLE,M_COUNTRY,M_SHENG,M_SHI,M_ADDRESS,M_ZIP,M_TEL,M_FAX,M_MAIL,M_ITEM,M_GUANGGAO,M_TICKET,M_SESSION,M_OTHER,M_PAYTYPE,M_PAYOTHER,ADD_DATE) values ('"& XingMing &"','"& txt_sex &"','"& txt_research &"','"& txt_researchtype &"','"& txt_jigou &"','"& txt_title &"','"& txt_guojia &"','"& txt_prov &"','"& txt_city &"','"& txt_dizhi &"','"& txt_youbian &"','"& txt_tel &"','"& txt_fax &"','"& txt_mail &"','"& txt_item &"','"& txt_gg &"','"& txt_tickettype &"','"& txt_session &"','"& txt_joinother &"','"& txt_payment &"','"& payment_other &"', #"& now() &"# )"
db.Query add_sql,0
response.write ""
%>