%@Language="VBScript"%>
<% // ÇöÀç ÆäÀÌÁö ¸í È®ÀÍ
cur_page= e_domain & Request.ServerVariables("URL") & "?" & Request.ServerVariables("QUERY_STRING")
%>
<%
// ·Î±×ÀÎ µÇ¾îÀÖÁö ¾ÊÀ¸¸é ·Î±×ÀÎÆäÀÌÁö·Î °Á¦·Î º¸³¿
if Session.Contents("user_id") = "" then Response.Redirect e_domain & "/korean/member/member_login.htm?nextpath="& cur_page end if
%>
<%
mode = request("mode")
name = request("name")
mem_id = request("mem_id")
name = request("name")
pwd = request("pwd")
jumin_id= request("jumin_1") & request("jumin_2")
tel_1 = request("tel_1")
postcode= request("postcode")
address = request("address")
mem_mailing = request("mem_mailing")
if mem_mailing<>"Y" then
mem_mailing="N"
end if
if mode = "go" then
str_sql = str_sql & " update member set "
str_sql = str_sql & " name = '" & name & "'"
str_sql = str_sql & " ,pwd = '" & pwd & "'"
str_sql = str_sql & " ,tel_1 = '" & tel_1 & "'"
str_sql = str_sql & " ,postcode = '" & postcode & "'"
str_sql = str_sql & " ,address = '" & address & "'"
str_sql = str_sql & " ,mem_mailing = '" & mem_mailing & "'"
str_sql = str_sql & " where mem_id = '" & Session.contents("user_id") & "'"
// response.write str_sql
Set rs_update = Conn.Execute(str_sql)
Session.contents("user_name") = name
str_sql = " select * from member where mem_id = '" & Session.contents("user_id") & "'"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open str_sql,Conn,1
else
str_sql = " select * from member where mem_id = '" & Session.contents("user_id") & "'"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open str_sql,Conn,1
end if
%>
Creative Newzealand Centre
<%
if mode = "go" then
Response.Write ""
// Response.Redirect "./member_edit.htm"
end if
%>