<%
Dim tbl_name : tbl_name = "TBL_MEMBER"
Dim req_user_email '//전달 변수
'//전달 변수 체크
req_user_email = getReplaceInput(fncDefault(request("user_email"),""),"")
req_sFlag = getReplaceInput(fncDefault(request("sFlag"),""),"")
req_id_flagY = getReplaceInput(fncDefault(request("id_flagY"),""),"")
'//필수값 체크
If Trim(req_user_email&"")="" Then
msg = "정보가 정확하지 않습니다."
Call DisplayJavaAlert(msg, "CLOSE")
response.end
End If
%>
<%
id_flag = ""
If req_user_email <> "" Then
sql = ""
sql = sql & " SELECT user_email "
sql = sql & " FROM " & tbl_name
sql = sql & " WHERE user_email= '"& req_user_email &"' "
set rs = DbCon.execute(sql)
If Not(rs.bof Or rs.eof) Then
res_user_email = rs("user_email") ' 이메일 존재
id_flag = "1"
Else
id_flag = "2"
End If
rs.close : Set rs = nothing
End If
'//DB Connection Close
Call SubObjClose(DbCon)
%>
무제 문서
<%
If id_flag = "2" And req_id_flagY = "2" Then
%>
<%
End If
%>