% Function FncSelected(val1, val2) result = "" IF val1 = val2 Then result = "selected" End If FncSelected = result End Function Function FncDigit(length, val) FncDigit = Right("0000000000" & val, length) End Function Function FncIIf(bClause, sTrue, sFalse) If CBool(bClause) Then FncIIf = sTrue Else FncIIf = sFalse End If End Function Function FncIsNull(pValue, pDefault) If IsNull(pValue) Or IsEmpty(pValue) Then FncIsNull = pDefault Else FncIsNull = pValue End If End Function %> <% If FncIsBlank(SITE_MEM_IDX) Then SCRIPT_NAME = Request.ServerVariables("SCRIPT_NAME") QUERY_STRING = Request.ServerVariables("QUERY_STRING") REURL = SCRIPT_NAME & "?" & QUERY_STRING Call subGoToMsg("로그인이 필요한 페이지 입니다.","/regist/member/login.asp?reurl="&server.Urlencode(REURL)) Else E_IDX = InjRequest("E_IDX") If Not FncIsBlank(E_IDX) Then Sql = "SELECT * FROM T_HAM_EVENT_USER WHERE IDX="& E_IDX Set Rs = conn.Execute(Sql) IDX = FncIsNull(Rs("IDX"),"") EVENT_IDX = FncIsNull(Rs("EVENT_IDX"),"") M_IDX = FncIsNull(Rs("M_IDX"),"") DEVICE_TYPE = FncIsNull(Rs("DEVICE_TYPE"),"") USER_ANSWER = FncIsNull(Rs("USER_ANSWER"),"") REG_DATE = FncIsNull(Rs("REG_DATE"),"") REG_IP = FncIsNull(Rs("REG_IP"),"") EVENT_TYPE = FncIsNull(Rs("EVENT_TYPE"),"") EVENT_CODE = FncIsNull(Rs("EVENT_CODE"),"") EVENT_NAME = FncIsNull(Rs("EVENT_NAME"),"") M_NAME = FncIsNull(Rs("M_NAME"),"") M_CEL = FncIsNull(Rs("M_CEL"),"") M_ADDR = FncIsNull(Rs("M_ADDR"),"") M_ID = FncIsNull(Rs("M_ID"),"") COL_01 = FncIsNull(Rs("COL_01"),"") COL_02 = FncIsNull(Rs("COL_02"),"") COL_03 = FncIsNull(Rs("COL_03"),"") COL_04 = FncIsNull(Rs("COL_04"),"") COL_05 = FncIsNull(Rs("COL_05"),"") COL_06 = FncIsNull(Rs("COL_06"),"") COL_07 = FncIsNull(Rs("COL_07"),"") COL_08 = FncIsNull(Rs("COL_08"),"") COL_09 = FncIsNull(Rs("COL_09"),"") COL_10 = FncIsNull(Rs("COL_10"),"") COL_11 = FncIsNull(Rs("COL_11"),"") COL_12 = FncIsNull(Rs("COL_12"),"") COL_13 = FncIsNull(Rs("COL_13"),"") COL_14 = FncIsNull(Rs("COL_14"),"") COL_15 = FncIsNull(Rs("COL_15"),"") COL_16 = FncIsNull(Rs("COL_16"),"") ary_birth = split(COL_02, "-") birth_y = ary_birth(0) birth_m = ary_birth(1) birth_d = ary_birth(2) ary_cel = split(M_CEL, "-") CEL01 = ary_cel(0) CEL02 = ary_cel(1) CEL03 = ary_cel(2) End If End If 'IDX, EVENT_IDX, M_IDX, DEVICE_TYPE, USER_ANSWER, REG_DATE, REG_IP, EVENT_TYPE, EVENT_CODE, EVENT_NAME, M_NAME, M_CEL, M_ADDR, M_ID, COL_01, COL_02, COL_03, COL_04, COL_05, COL_06, COL_07, COL_08, COL_09, COL_10, COL_11, COL_12, COL_13, COL_14, COL_15 conn.close() Set conn = Nothing %>
