<%@Language="VBScript"%> <% // 로그인 되어있지 않으면 로그인페이지로 강제로 보냄 // if Session.Contents("div") = "" then Response.write "" end if %> <% mode = request("mode") name = request("name") name_eng = request("name_eng") mem_id = request("mem_id") email_id = request("email_id") email = request("email") email2 = request("email2") name = request("name") pwd = request("pwd") jumin_id= request("jumin_1") & request("jumin_2") tel_1 = request("tel_1") postcode= request("postcode") dis_address = request("dis_address") address = request("address") 'address = dis_address&" "&address '기본주소와 상세주소 분류위해 디비에 따로 입력. 관리자모드와 연동위해... mem_interest = request("mem_interest") mem_area = request("mem_area") mem_area2 = request("mem_area2") mem_course = request("mem_course") mem_mailing = request("mem_mailing") if mem_mailing<>"Y" then mem_mailing="N" end if if mem_interest <> "" then arr_mem_interest = split(mem_interest,",") if ubound(arr_mem_interest) < 1 then mem_interest2 = "" else mem_interest2 = trim(arr_mem_interest(1)) end if mem_interest = arr_mem_interest(0) end if if mode = "go" then // 기존에 가입된 주민번호인지 검사 str_sql = " select * from member where jumin_id ='" & jumin_id & "'" set rs = Server.CreateObject("ADODB.Recordset") rs.Open str_sql,Conn,1 if rs.recordcount = 0 then str_sql = "" str_sql = str_sql & " insert into member " str_sql = str_sql & " ( " str_sql = str_sql & " mem_id " str_sql = str_sql & " ,name " str_sql = str_sql & " ,name_eng " str_sql = str_sql & " ,pwd " str_sql = str_sql & " ,email " str_sql = str_sql & " ,jumin_id " str_sql = str_sql & " ,tel_1 " str_sql = str_sql & " ,postcode " str_sql = str_sql & " ,dis_address " str_sql = str_sql & " ,address " str_sql = str_sql & " ,idate " str_sql = str_sql & " ,itime " str_sql = str_sql & " ,mem_interest " str_sql = str_sql & " ,mem_interest2 " str_sql = str_sql & " ,mem_area " str_sql = str_sql & " ,mem_area2 " str_sql = str_sql & " ,mem_course " str_sql = str_sql & " ,mem_mailing " str_sql = str_sql & " ) " str_sql = str_sql & " values " str_sql = str_sql & " ( " str_sql = str_sql & "'" & mem_id & "'" str_sql = str_sql & " ,'" & name & "'" str_sql = str_sql & " ,'" & name_eng & "'" str_sql = str_sql & " ,'" & pwd & "'" if email <> "@etc" then str_sql = str_sql & " ,'" & email_id + email & "'" else str_sql = str_sql & " ,'" & email_id + "@" + email2 & "'" end if str_sql = str_sql & " ,'" & jumin_id & "'" str_sql = str_sql & " ,'" & tel_1 & "'" str_sql = str_sql & " ,'" & postcode & "'" str_sql = str_sql & " ,'" & dis_address & "'" str_sql = str_sql & " ,'" & address & "'" str_sql = str_sql & " ,substring( Convert(Varchar(20), getdate(), 120 ) ,1,10) " str_sql = str_sql & " ,substring( Convert(Varchar(20), getdate(), 120 ) ,12,8) " str_sql = str_sql & " ,'" & mem_interest & "'" str_sql = str_sql & " ,'" & mem_interest2 & "'" str_sql = str_sql & " ,'" & mem_area & "'" str_sql = str_sql & " ,'" & mem_area2 & "'" str_sql = str_sql & " ,'" & mem_course & "'" str_sql = str_sql & " ,'" & mem_mailing & "'" str_sql = str_sql & " ) " ' response.write str_sql Set rs_update = Conn.Execute(str_sql) // 세션값 등록 Session.contents("user_id") = mem_id Session.contents("user_name") = name // list 로 이동 처리 Response.Redirect "./member_join_2.htm?mem_id=" & mem_id ' if email<> "@etc" then ' Response.Redirect "./member_join_2.htm?mem_id=" & mem_id ' else ' Response.Redirect "./member_join_2.htm?mem_id=" & mem_id ' end if end if end if %> Creative New Zealand Centre <% if mode = "go" then if rs.recordcount <> 0 then Response.Write "" end if end if %>
 
* 아이디 [중복확인] ( * : 필수입력 )
* 이름
* 영문이름
* 주민등록 번호 -
* 비밀번호
* 비밀번호 확인
* 이메일 @
* 전화번호
* 우편번호  [우편번호검색]
* 주소
* 나머지 주소
관심분야 영어문법  영어작문  영어회화  영어독해  영어시험
2개 항목까지 체크 가능합니다.
가입경로 검색엔진  전시회/세미나  신문기사/홍보자료  이메일  기타
메일링 가입 뉴질랜드 교육문화원에서 제공하는 News와 행사 관련 안내를 받으시겠습니까?
(뉴질랜드 교육문화원에서 보내드리는 webzine을 받으시려면 hanmail(다음)이 아닌 e-Mail계정을 입력해주세요!)
네. 동의합니다.