<% '****************************************************************************************************************** 'System Name : ELIS Ver 1.0 '****************************************************************************************************************** 'File Name : member_m.asp 'File Description : ELIS Main Summary 'Developer : Taejin Kwon 'Date : 7/10/2009 'Modifier(Date) : None '****************************************************************************************************************** Dim G_MENU G_MENU = "MEMBER" %> <%Call SubGlobalMenu() %>

<% CALL subTabIndexLink("MEMBER") %>

<% CALL subTopMenu() %>

Members

<% Dim IsSearch IsSearch = Trim(Request("IsSearch")) Dim userid Dim name_last userid = Trim(Request("userid")) name_last = Trim(Request("name_last")) Dim Login_ID Login_ID = Trim(Request("Login_ID")) Dim Login_GUID Login_GUID = Trim(Request("Login_GUID")) %> <%'Start ========================================================================================================================%> <% Dim rsUser Set rsUser = funcGetUserInformation2(objQuery, Login_GUID) IF rsUser.eof = False And rsUser.bof = False then %> Name (First, Last)* ">  ">  "> First  M.I. Last Screen Name* "> Street Address* "> "> State and City* "> <%CALL subStateBox(Trim(rsUser("State")))%> Zip/ Postal Code* value="<%=Trim(rsUser("Zip"))%>"> Telephone Number value="<%=Trim(rsUser("Tel_1"))%>"> - value="<%=Trim(rsUser("Tel_2"))%>"> - value="<%=Trim(rsUser("Tel_3"))%>">   Birthdate " <%=ONLY_NUM__%> onfocus="javascript:document.editForm.Birth_MM.value='';document.editForm.Birth_MM.focus();"> / " <%=ONLY_NUM__%> onfocus="javascript:document.editForm.Birth_DD.value='';document.editForm.Birth_DD.focus();"> / " <%=ONLY_NUM__%> onfocus="javascript:document.editForm.Birth_YYYY.value='';document.editForm.Birth_YYYY.focus();"> Gender checked<%End IF%>> Male checked<%End IF%>> Female User Name*  (e-mail) "> Password* "> Active/Inactive Member* checked<%End IF%>>Yes checked<%End IF%>>No Current Point* $ ">   Delete     Update  <% End IF %> <% rsUser.close Set rsUser = Nothing %> <%'End =========================================================================================================================%>