<% 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_come=request.form("txt_come") txt_leave=request.form("txt_leave") 'txt_room=request.form("txt_room") 'txt_day=request.form("txt_day") 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 select case request("Action") 'case "mail_up" 'set mail=CreateObject("jmail.Message") 'mail.Charset ="gb2312" 'mail.From ="yys@bitlifesciences.com" 'mail.AddRecipient request.form("hid_mail") 'mail.MailDomain="mail.bitlifesciences.com" 'mail.MailServerUserName = "yys@bitlifesciences.com" 'mail.MailServerPassWord = "123456" 'mail.subject="BIT's 2nd Annual World Congress of Biosoft-2010 Registration Confirmation" 'mail.HTMLBody= "This is an automatic reply to your registration. Please don't reply for this.

Thank you for your attention on BIT's 2nd Annual World Congress of Biosoft-2010, which will be held during Nov.19-21, 2009 Beijing, China. We have received your registration information. The staff from Organizing Committee will contact you later regarding your registration and payment later. Thank you in advance!

If you still don't get reply within three working days or you have any questions, please feel free to contact us via E-mail: zaylin@bit-cemd.com or anna@bit-cemd.com Tel: 0086-411-84799609-813 Fax: 0086-411-84799629." 'On Error Resume Next 'mail.Send("mail.bitlifesciences.com") 'mail.close() 'set mail=nothing '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,CHECK_FOOD,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_food &"','"& 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 "" %> <% case "upd" add_sql="update Member_Info set M_NAME='"& XingMing &"',M_SEX='"& txt_sex &"',M_TITLE='"& txt_title &"',M_AGENCIES='"& txt_jigou &"',M_COUNTRY='"& txt_guojia &"',M_PASSPORT='"& txt_huzhao &"',M_MAIL='"& txt_mail &"',M_ZIP='"& txt_youbian &"',M_ADDRESS='"& txt_dizhi &"',M_TEL='"& txt_tel &"',M_FAX='"& txt_fax &"',M_ACCOMPANYING='"& txt_peitong &"',M_RESEARCH='"& txt_research &"',CHECK_FOOD='"& txt_food &"',COME_TIME='"& txt_come &"',LEAVE_TIME='"& txt_leave &"',MEET_ITEM='"& txt_item &"',OTHER='"& txt_other &"',TICKETS_TYPE='"& txt_ticket &"',TICKETS_OTHER='"& ticket_other &"',M_SESSION='"& txt_session &"',M_NEEDS='"& txt_need &"',TOTAL_PAY='"& txt_payment &"',UPD_DATE=#"& now() &"# where MEMBER_ID=" & member_id db.Query add_sql,0 response.write "" end select Set db=Nothing %>