%
member_id=request.form("hid_id")
'usercode=request.form("txt_username")
'password=request.form("txt_userpass")
XingMing=request.form("txt_xingming")
txt_sex=request.form("rad_sex")
txt_title=request.form("txt_title")
txt_guojia=request.form("txt_guojia")
txt_huzhao=request.form("txt_huzhao")
txt_jigou=request.form("txt_jigou")
txt_youbian=request.form("txt_post")
txt_zhuce=date()
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_peitong=request.form("txt_peitong")
txt_research=request.form("txt_research")
txt_comment=request.form("txt_comment")
txt_come=request.form("txt_come")
txt_leave=request.form("txt_leave")
rad_room=request.form("rad_room")
txt_bed=request.form("txt_extra")
txt_food=request.form("chk_food")
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_other=request.form("txt_other")
txt_ticket=request.form("rad_ticket")
ticket_other=request.form("ticket_other")
'txt_session=request.form("sel_session")
txt_need=request.form("txt_bark")
txt_payment=request.form("txt_payment")
payment_type=request.form("Payment")
card_number=request.form("txt_cardnumber")
expiration_date=request.form("sel_year")& "-" & request.form("sel_month")
card_holder=request.form("card_holder")
security_cod=request.form("security_cod")
'admin_user=session("USER_NAME")
dim db
Set db=new Connections
set trs=server.CreateObject("ADODB.recordset")
strsql="select * from Member_Info 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_Info (M_NAME,M_SEX,M_TITLE,M_AGENCIES,M_COUNTRY,M_PASSPORT,M_MAIL,M_ZIP,M_ADDRESS,M_TEL,M_FAX,M_ACCOMPANYING,M_RESEARCH,M_COMMENT,CHECK_FOOD,CHECK_ROOM,EXTRA_BED,COME_TIME,LEAVE_TIME,MEET_ITEM,OTHER,TICKETS_TYPE,TICKETS_OTHER,M_SESSION,M_NEEDS,TOTAL_PAY,CARD_TYPE,CARD_NUMBER,EXPRI_DATE,CARD_HOLDER,SECURITY_CODE) values ('"& XingMing &"','"& txt_sex &"','"& txt_title &"','"& txt_jigou &"','"& txt_guojia &"','"& txt_huzhao &"','"& txt_mail &"','"& txt_youbian &"','"& txt_dizhi &"','"& txt_tel &"','"& txt_fax &"','"& txt_peitong &"','"& txt_research &"','"& txt_comment &"','"& txt_food &"','"& rad_room &"','"& txt_bed &"','"& txt_come &"','"& txt_leave &"','"& txt_item &"','"& txt_other &"','"& txt_ticket &"','"& ticket_other &"','"& txt_session &"','"& txt_need &"','"& txt_payment &"','"& payment_type &"','"& card_number &"','"& expiration_date &"','"& card_holder &"','"& security_cod &"')"
db.Query add_sql,0
response.write ""
Set db=Nothing
%>