<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% option explicit RESPONSE.buffer = TRUE RESPONSE.expires = -1442 %> <% isUserLoggedIn 'Check if user is logged in%> <% Dim myInt %> NOBCChE: Welcome to NOBCChE "" then %>onload="postMessage()" <% end if Session("Message") = "" %>>
Registration - User Information

Please register to become a member of NOBCChE, the National Society for the Professional Advancement of Black Chemists and Chemical Engineers. The required fields are marked with a *.
<% 'session("question")= "9" if not isEmpty(session("question")) and session("question") <> "" and isNumeric(session("question")) then myInt = 1 * session("question") else myInt = 0 end if %>
*Membership Type:  <%=CreateListBox("role", GetSessionValue("role"), "sp_GetMemberRole")%>
 
Title:  <%=CreateListBox("title", GetSessionValue("title") , "sp_GetTitles")%>
*First Name:  " type="text" size="30" maxlength="50">
Middle Name:  " type="text" size="30" maxlength="50">
*Last Name:  " type="text" size="30" maxlength="50">
Suffix:  <%=CreateListBox("Suffix", GetSessionValue("suffix"), "sp_GetSuffixes")%>
 
*Username:  " type="text" size="20" maxlength="20">
*Password:  " type="password" size="20" maxlength="20">
*Verify Password:  " type="password" size="20" maxlength="20">
 
  Please select a password challenge question.
*Challenge Question:  <%=CreateListBox("question", myInt , "sp_GetChallengeQuestions")%>
*Answer:  " type="text" size="60" maxlength="150">
 
*Email:  " type="text" size="60" maxlength="150">
*Verify Email:  " type="text" size="60" maxlength="150">
 
  Please enter your personal address.
*Address1:  " type="text" size="50" maxlength="50">
Address2:  " type="text" size="50" maxlength="50">
*City:  " type="text" size="50" maxlength="50">
*State:  <%=CreateListBox("state", GetSessionValue("state"), "sp_GetStates")%>
*Zipcode:  " type="zipcode" size="10" maxlength="10">
 
*Telephone:  " type="telephone" size="20" maxlength="20">