<%
'===========================================================
' 페이지 : /member/logon_loss_ok.asp
' TABLE : TBL_MEMBER
' 설 명 : 사용자>로그인 아이디,비밀번호 찾기
' 작성자 :
' 작성일 : 2011-05-14
'-----------------------------------------------------------
' 수정일 | 작성자 | 내용
'-----------------------------------------------------------
' 2011-05-14 | | initialize
'===========================================================
Dim tbl_name : tbl_name = "TBL_MEMBER"
Dim sql
Dim rs
Dim intRtnValue
Dim req_user_name, req_user_mobile1, req_user_mobile2, req_user_mobile3, user_email
'//전달 변수 체크
req_user_name = getReplaceInput(fncDefault(request.form("user_name"),""),"")
req_user_mobile1 = getReplaceInput(fncDefault(request.form("user_mobile1"),""),"")
req_user_mobile2 = getReplaceInput(fncDefault(request.form("user_mobile2"),""),"")
req_user_mobile3 = getReplaceInput(fncDefault(request.form("user_mobile3"),""),"")
If Trim(req_user_name) <> "" And Trim(req_user_mobile1) <> "" And Trim(req_user_mobile2) <> "" And Trim(req_user_mobile3) <> "" Then
sql = ""
sql = sql & " SELECT user_id, user_pass, user_name, user_email "
sql = sql & " FROM " & tbl_name
sql = sql & " WHERE user_name='" & req_user_name & "' AND user_mobile1='" & req_user_mobile1 & "' AND user_mobile2='" & req_user_mobile2 & "' AND user_mobile3='" & req_user_mobile3 & "' "
Set rs = DBCon.execute(sql)
If Not(rs.BOF and rs.EOF) Then
If Trim(rs("user_id")&"")<>"" Then
user_email = rs("user_id")
End IF
Else
End If
Call SubObjClose(DBCon)
End If
If Trim(user_email) = "" Then
Response.Write ""
Response.End
End If
%>
