<%
XingMing=request.form("txt_xingming")
txt_sex=request.form("rad_sex")
txt_title=request.form("txt_title")
txt_research=request.form("txt_research")
txt_researchtype=request.form("rad_searchtype")
txt_guojia=request.form("txt_guojia")
txt_prov=request.form("txt_prov")
txt_city=request.form("txt_city")
txt_jigou=request.form("txt_jigou")
txt_youbian=request.form("txt_post")
txt_mail=request.form("txt_mail")
txt_tel=request.form("txt_tel")
txt_fax=request.form("txt_fax")
txt_dizhi=request.form("txt_address")
txt_session=request.form("sel_session")
txt_item=request.form("txt_item")
if instr(txt_item,"演讲")>0 then
if txt_session="" then
response.write ""
response.end
end if
end if
txt_tickettype=request.form("rad_ticket")
txt_gg=request.form("rad_ggtype")
txt_joinother=request.form("JoinOther")
txt_payment=request.form("rad_payment")
payment_other=request.form("payment_other")
dim db
Set db=new Connections
select case request("Action")
case "add"
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) 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 &"')"
db.Query add_sql,0
response.write ""
end select
Set db=Nothing
%>