<%
Dim rsSet,sql
Set rsSet = server.CreateObject("Adodb.RecordSet")
sql = "Select * from MemberMaster Where UserId = '" & Session("UserId") & "'"
If rsSet.State = 1 then rsSet.Close
rsSet.Open sql,Conn
if not rsSet.eof then
if rsSet.BOF = False then
rsSet.MoveFirst
end if
end if
%>
<%
if rsSet("Flag_UserId") = "no" then
%>
