<% OPTION EXPLICIT %>
<!--#include file="app_config.asp"-->
<!--#include file="inc_api.asp"-->
    <!--#include file="inc_check.asp"-->

    <%Dim sMESSAGE, sMODE, sstrCATE, sI, sSQL, sRS, sNAME, sUSERNAME, sPASSWORD, sEMAIL, sURL, sCITY, sADDRESS, _
		  sPHONE, sFAX, sCOUNTRY, sSTATUS, sEXPIRES, sMEMO, sACTIVE, sADMIN, sSUBS, sCATE, sarrCATE, sarrNAME, _
		  sarrACTIVE, sOPT1, sOPT2, sOPT3, sOPT4, sOPT5, sOPT6, sOPT7, sOPT8, sOPT9, sOPT10, sOPT11, sOPT12, _
		  sOPT13, sOPT14, sOPT15, sCHAR, ID, sstrCATE_IDS, sarrCATEIDS, sstrSEL, sSTATE, sCOMPANY, sSORT, sgID, _
		  siStart, siOffset, ssSTATUS, ssADMIN, ssACTIVE, sASUBS, sSINCE, sD, sDONE, sALLOW_D, TMP_EMAIL, _		  
		  DES_sTYPE, DES_REQUIRED, DES_VALUES, DES_INLINE, strCUSTOM_FLDS, arrREQUIRED, arrIDS, arrFLDNAME, _
		  aREQ, aIDS, aNAME, arrVALUES, sVALUE, sID, DES_ID, DES_NAME, DES_CSS, SQL, RS
    
    With Request
        sMODE    = APO(.Form("mode"))
        sSORT    = APO(.QueryString("s"))
        sgID     = TURBO_INJECTION(Trim(.QueryString("gID")))
    	siStart  = APO(.QueryString("Start"))
    	siOffset = APO(.QueryString("Offset"))
        ssSTATUS = TURBO_INJECTION(Trim(.QueryString("status")))
        ssADMIN  = TURBO_INJECTION(Trim(.QueryString("admin")))
        ssACTIVE = TURBO_INJECTION(Trim(.QueryString("active")))
        sD       = TURBO_INJECTION(Trim(.QueryString("d")))
        TMP_EMAIL= APO(.Form("temp_email"))
    End With
    
    IF sMODE = "edit" THEN
	
        With Request
            sNAME     = APO(.Form("name"))
            sUSERNAME = APO(.Form("username"))
            sPASSWORD = APO(.Form("password"))
            sEMAIL    = APO(.Form("email"))
            sURL      = APO(.Form("url"))
            sCITY     = APO(.Form("city"))
            sADDRESS  = APO(.Form("address"))
            sSTATE    = APO(.Form("state"))
            sCOMPANY  = APO(.Form("company"))
            sPHONE    = FORMAT_PHONE(APO(.Form("phone")))
            sFAX      = FORMAT_PHONE(APO(.Form("fax")))
            sCOUNTRY  = APO(.Form("country"))
            sSUBS     = CONVERT_NUM(.Form("subs"))
            sALLOW_D  = CONVERT_NUM(.Form("sALLOW_D"))
            sCATE     = Trim(.Form("cate"))
            sOPT1     = APO(.Form("opt1"))
            sOPT2     = APO(.Form("opt2"))
            sOPT3     = APO(.Form("opt3"))
            sOPT4     = APO(.Form("opt4"))
            sOPT5     = APO(.Form("opt5"))
            sOPT6     = APO(.Form("opt6"))
            sOPT7     = APO(.Form("opt7"))
            sOPT8     = APO(.Form("opt8"))
            sOPT9     = APO(.Form("opt9"))
            sOPT10     = APO(.Form("opt10"))
            sOPT11     = APO(.Form("opt11"))
            sOPT12     = APO(.Form("opt12"))
            sOPT13     = APO(.Form("opt13"))
            sOPT14     = APO(.Form("opt14"))
            sOPT15     = APO(.Form("opt15"))            
        End With
        
        sCHAR = GENERATE_CHAR(15)
        Call OPEN_DB()
        Call RETURN_VALUE(False)

		' GET THE CUSTOM FORM DETAILS
		SQL = "SELECT ID, fldNAME, fldREQUIRED FROM mms_tbl_form WHERE fldACTIVE = 1 ORDER BY fldORDER ASC"
		Set RS = Server.CreateObject("ADODB.Recordset")
		RS.LockType   = 1
		RS.CursorType = 0
		RS.Open SQL, MyConn	
			 WHILE NOT RS.EOF 			 
			 	aREQ  = aREQ & trim(RS("fldREQUIRED")) & ";"
				aIDS  = aIDS & trim(RS("ID")) & ";"
				aNAME = aNAME & trim(RS("fldNAME")) & vbcrlf							
			    RS.MoveNext
			 WEND
		RS.Close 
		Set RS = Nothing		

		arrREQUIRED  = Split(aREQ,";")
		arrIDS       = Split(aIDS,";")
		arrFLDNAME   = Split(aNAME,vbcrlf)				

        
		Call CHECK_INP()        
        
            IF sMESSAGE = "" THEN
			
                '// EDIT MEMBER
                sSQL = "UPDATE mms_tbl_user SET fldNAME = '" & sNAME & "', fldPASSWORD='" & sPASSWORD & "', fldEMAIL='" & sEMAIL & "', fldCOUNTRY='" & sCOUNTRY & "', fldCITY='" & sCITY & "', fldADDRESS='" & sADDRESS & "', fldPHONE='" & sPHONE & "', fldFAX='" & sFAX & "', fldURL='" & sURL & "', fldSUBS=" & sSUBS & ", fld1='" & sOPT1 & "', fld2='" & sOPT2 & "', fld3='" & sOPT3 & "', fld4='" & sOPT4 & "', fld5='" & sOPT5 & "', fld6='" & sOPT6 & "', fld7='" & sOPT7 & "', fld8='" & sOPT8 & "', fld9='" & sOPT9 & "', fld10='" & sOPT10 & "', fld11='" & sOPT11 & "', fld12='" & sOPT12 & "', fld13='" & sOPT13 & "', fld14='" & sOPT14 & "', fld15='" & sOPT15 & "', fldSTATE ='" & sSTATE & "', fldCOMPANY='" & sCOMPANY & "', fldALLOW_DETAILS=" & sALLOW_D & " WHERE ID = " & Session("PMMS_ID")
                MyConn.Execute(sSQL)                
				
                IF Trim(sysVAL(6)) = "1" THEN                
				    '// DELETE OLD CATEGORY ASSIGNMENTS
                    sSQL = "DELETE FROM mms_tbl_user_cate WHERE fldUSER_ID = " & Session("PMMS_ID")
                	MyConn.execute sSQL	                  
                
				    '// ASSIGN NEW CATEGORY
                    sarrCATE = Split(sCATE,",")
                    FOR sI = 0 To Ubound(sarrCATE)
                        IF NOT sarrCATE(sI) = "" THEN
                            sSQL = "INSERT INTO mms_tbl_user_cate (fldCATE_ID, fldUSER_ID)" & _ 
                            "VALUES (" & sarrCATE(sI) & "," & Session("PMMS_ID") & ")"
                            MyConn.Execute sSQL
                        END IF
                    NEXT                
                END IF				
				
				'// DELETE OLD CUSTOM VALUES
                SQL = "DELETE FROM mms_tbl_form_values WHERE fldMID = " & Session("PMMS_ID")
               	MyConn.execute SQL	 					
				
				'// SAVE CUSTOM FIELDS
				FOR I = 0 To UBound(arrIDS)-1
					sVALUE = APO(Request.Form(arrIDS(I)))
					sID    = APO(arrIDS(I))
					SQL = "INSERT INTO mms_tbl_form_values (fldVALUE, fldFID, fldMID) VALUES ('" & sVALUE & "'," & sID & "," & Session("PMMS_ID") & ")"
                    MyConn.Execute SQL					
				NEXT					
                
				'// ALL DONE
                sDONE = True 
				
            END IF
                        
        Call APPEND_LOG(False, Session("PMMS_ID"), "Updated Profile", Trim(sysVAL(7)))
        MyConn.Close
        Set MyConn = Nothing
        
        IF sDONE = True THEN
            'Response.redirect "profile.asp?d=Y"
            'Response.End
        END IF  
                      
    ELSE
    
        Call OPEN_DB()
        Call RETURN_VALUE(False)
        sarrNAME   = Split(sysVAL(2),",")
        sarrACTIVE = Split(sysVAL(5),",")
        '// GET VALUES
        sSQL = "SELECT fldNAME, fldUSERNAME, fldPASSWORD, fldEMAIL, fldCOUNTRY, fldCITY, fldADDRESS, fldPHONE, fldFAX, fldURL, fldACTIVE, fldEXPIRES, fldSTATUS, fldADMIN, fldSUBS, fldMEMO, fld1, fld2, fld3, fld4, fld5, fld6, fld7, fld8, fld9, fld10, fld11, fld12, fld13, fld14, fld15, fldSTATE, fldCOMPANY, fldASUBS, fldSINCE, fldALLOW_DETAILS FROM mms_tbl_user WHERE ID = " & Session("PMMS_ID")
        Set sRS = Server.CreateObject("ADODB.Recordset")
        sRS.LockType   = 1
        sRS.CursorType = 0
        sRS.Open sSQL, MyConn	
        	 IF NOT sRS.EOF THEN
        	 	 sNAME = trim(sRS("fldNAME"))
                 sUSERNAME = trim(sRS("fldUSERNAME"))
                 sPASSWORD = trim(sRS("fldPASSWORD"))
                 sEMAIL    = trim(sRS("fldEMAIL"))
                 sCOUNTRY  = trim(sRS("fldCOUNTRY"))
                 sCITY     = trim(sRS("fldCITY"))
        	 	 sADDRESS  = trim(sRS("fldADDRESS"))
                 sPHONE    = trim(sRS("fldPHONE"))
                 sFAX      = trim(sRS("fldFAX"))
                 sURL      = trim(sRS("fldURL"))
                 sACTIVE   = trim(sRS("fldACTIVE"))
                 sEXPIRES  = trim(sRS("fldEXPIRES"))
        	 	 sSTATUS   = trim(sRS("fldSTATUS"))
                 sADMIN    = trim(sRS("fldADMIN"))
                 sSUBS     = trim(sRS("fldSUBS"))
                 sMEMO     = trim(sRS("fldMEMO"))
                 sOPT1     = trim(sRS("fld1"))
                 sOPT2     = trim(sRS("fld2"))
                 sOPT3     = trim(sRS("fld3"))
                 sOPT4     = trim(sRS("fld4"))
                 sOPT5     = trim(sRS("fld5"))                 
                 sOPT6     = trim(sRS("fld6"))
                 sOPT7     = trim(sRS("fld7"))
                 sOPT8     = trim(sRS("fld8"))
                 sOPT9     = trim(sRS("fld9"))
                 sOPT10    = trim(sRS("fld10"))                 
                 sOPT11    = trim(sRS("fld11"))
                 sOPT12    = trim(sRS("fld12"))
                 sOPT13    = trim(sRS("fld13"))
                 sOPT14    = trim(sRS("fld14"))
                 sOPT15    = trim(sRS("fld15"))                 
                 sSTATE    = trim(sRS("fldSTATE"))
                 sCOMPANY  = trim(sRS("fldCOMPANY"))
                 sASUBS    = trim(sRS("fldASUBS"))
                 sSINCE    = trim(sRS("fldSINCE"))                 
                 sALLOW_D  = trim(sRS("fldALLOW_DETAILS"))
        	 END IF
        sRS.Close

        '// GET CATEGORIES
        sSQL = "SELECT fldCATE_ID FROM mms_tbl_user_cate WHERE fldUSER_ID = " & Session("PMMS_ID")
        Set sRS = Server.CreateObject("ADODB.Recordset")
        sRS.LockType   = 1 '// adLockReadOnly
        sRS.CursorType = 0  '// adOpenForwardOnly
        sRS.Open sSQL, MyConn	
        	 WHILE NOT sRS.EOF
        	 	sstrCATE_IDS = sstrCATE_IDS & trim(sRS("fldCATE_ID")) & ","
                sRS.MoveNext
        	 WEND
        sRS.Close
        sarrCATEIDS = Split(sstrCATE_IDS,",")
        
        '// GET CATEGORY LIST
        sSQL = "SELECT ID, fldNAME FROM mms_tbl_cate WHERE fldACTIVE = 1"
        Set sRS = Server.CreateObject("ADODB.Recordset")
        sRS.LockType   = 1
        sRS.CursorType = 0
        sRS.Open sSQL, MyConn
        	 WHILE NOT sRS.EOF
                sstrSEL = ""                
                FOR sI = 0 To Ubound(sarrCATEIDS)                    
                    IF trim(sRS("ID")) = Trim(sarrCATEIDS(sI)) THEN
                        sstrSEL = " selected"
                    END IF
                NEXT             
        		sstrCATE = sstrCATE & "<option" & sstrSEL & " value=" & chr(34) & trim(sRS("ID")) & chr(34) & ">" & trim(sRS("fldNAME")) & vbcrlf
        	    sRS.MoveNext
        	 WEND
        sRS.Close
        Set sRS = Nothing
		
		'// GET CUSTOM FIELD VALUES 
		Dim aFIDS_V, aVALUES_V, arrFIDS_V, arrVALUES_V
		SQL = "SELECT fldFID, fldVALUE FROM mms_tbl_form_values WHERE fldMID = " & Session("PMMS_ID")
		Set RS = Server.CreateObject("ADODB.Recordset")
		RS.LockType   = 1
		RS.CursorType = 0
		RS.Open SQL, MyConn	
			 WHILE NOT RS.EOF 			 
			 	aFIDS_V = aFIDS_V & trim(RS("fldFID")) & ";"
			 	aVALUES_V = aVALUES_V & trim(RS("fldVALUE")) & "Ś*Ś"
			    RS.MoveNext
			 WEND
		RS.Close 
		Set RS = Nothing			
		arrFIDS_V   = Split(aFIDS_V, ";") 
		arrVALUES_V = Split(aVALUES_V, "Ś*Ś") 		
		
		' // DRAW CUSTOM FIELDS
		Dim PASS_VALUE, I
		SQL = "SELECT ID, fldNAME, fldCSS, fldTYPE, fldACTIVE, fldREQUIRED, fldVALUES, fldINLINE FROM mms_tbl_form WHERE fldACTIVE = 1 ORDER BY fldORDER ASC"
		Set RS = Server.CreateObject("ADODB.Recordset")
		RS.LockType   = 1
		RS.CursorType = 0
		RS.Open SQL, MyConn	
			 WHILE NOT RS.EOF 			 
			 	DES_ID = trim(RS("ID"))
			 	DES_NAME = trim(RS("fldNAME"))
				DES_CSS = trim(RS("fldCSS"))
				DES_sTYPE = trim(RS("fldTYPE"))						
				DES_REQUIRED = trim(RS("fldREQUIRED"))
				DES_VALUES = trim(RS("fldVALUES"))
				DES_INLINE = trim(RS("fldINLINE"))					
				FOR I = 0 To Ubound(arrFIDS_V)
					IF Trim(arrFIDS_V(I)) = DES_ID THEN PASS_VALUE = Trim(arrVALUES_V(I))
				NEXT					
				strCUSTOM_FLDS = strCUSTOM_FLDS & DRAW_FIELD_VALUE(False, DES_ID, DES_NAME, DES_CSS, DES_sTYPE, DES_VALUES, DES_INLINE, PASS_VALUE) & Vbcrlf
			    RS.MoveNext
			 WEND
		RS.Close 
		Set RS = Nothing			
		
        MyConn.Close
        Set MyConn = Nothing
		
        IF sstrCATE = "" THEN sMESSAGE = sMESSAGE & "<li />Please add at least one category before adding a member."
		strCUSTOM_FLDS = "<tr><td colspan='2'></td></tr>" & strCUSTOM_FLDS & VbCrlf
   
    END IF
    
    PRIVATE SUB CHECK_INP()   
        Dim  sREOPT, sOPTNAME, sarrACTIVE, SQL, RS
        sREOPT  = Split(sysVAL(3),",")   ' Required OPT fields
        sOPTNAME  = Split(sysVAL(2),",")   ' OPT fld names
        sarrACTIVE = Split(sysVAL(5),",")           
                 
        IF (sNAME="") OR (IsNull(sNAME)) THEN sMESSAGE = sMESSAGE & "<li />Please enter user name."
        IF (sPASSWORD="") OR (IsNull(sPASSWORD)) THEN sMESSAGE = sMESSAGE & "<li />Please enter desired password."
        IF IsEmailValid(sEMAIL) = False THEN sMESSAGE = sMESSAGE & "<li />Please enter valid email address."
        IF arrRegFA(0) = "1" AND arrRegFR(0) = "1" AND sURL = "" THEN  sMESSAGE = sMESSAGE & "<li />Please enter web site URL."
        IF arrRegFA(1) = "1" AND arrRegFR(1) = "1" AND sADDRESS = "" THEN  sMESSAGE = sMESSAGE & "<li />Please enter address."
        IF arrRegFA(2) = "1" AND arrRegFR(2) = "1" AND sCITY = "" THEN  sMESSAGE = sMESSAGE & "<li />Please enter city."
        IF arrRegFA(3) = "1" AND arrRegFR(3) = "1" AND sSTATE = "" THEN  sMESSAGE = sMESSAGE & "<li />Please enter state/province."
        IF arrRegFA(4) = "1" AND arrRegFR(4) = "1" AND sCOUNTRY = "" THEN  sMESSAGE = sMESSAGE & "<li />Please enter country."
        IF arrRegFA(5) = "1" AND arrRegFR(5) = "1" AND sPHONE = "" THEN  sMESSAGE = sMESSAGE & "<li />Please enter phone number."
        IF arrRegFA(6) = "1" AND arrRegFR(6) = "1" AND sFAX = "" THEN  sMESSAGE = sMESSAGE & "<li />Please enter fax number."
        IF arrRegFA(7) = "1" AND arrRegFR(7) = "1" AND sCOMPANY = "" THEN  sMESSAGE = sMESSAGE & "<li />Please enter company name."
        
        IF Trim(sarrACTIVE(0)) = "1" AND Trim(sREOPT(0)) = "1" AND (sOPT1 = "" OR IsNull(sOPT1)) THEN sMESSAGE = sMESSAGE & "<li />Please enter " & sOPTNAME(0)
        IF Trim(sarrACTIVE(1)) = "1" AND Trim(sREOPT(1)) = "1" AND (sOPT2 = "" OR IsNull(sOPT2)) THEN sMESSAGE = sMESSAGE & "<li />Please enter " & sOPTNAME(1)
        IF Trim(sarrACTIVE(2)) = "1" AND Trim(sREOPT(2)) = "1" AND (sOPT3 = "" OR IsNull(sOPT3)) THEN sMESSAGE = sMESSAGE & "<li />Please enter " & sOPTNAME(2)
        IF Trim(sarrACTIVE(3)) = "1" AND Trim(sREOPT(3)) = "1" AND (sOPT4 = "" OR IsNull(sOPT4)) THEN sMESSAGE = sMESSAGE & "<li />Please enter " & sOPTNAME(3)        
        IF Trim(sarrACTIVE(4)) = "1" AND Trim(sREOPT(4)) = "1" AND (sOPT5 = "" OR IsNull(sOPT5)) THEN sMESSAGE = sMESSAGE & "<li />Please enter " & sOPTNAME(4)
        IF Trim(sarrACTIVE(5)) = "1" AND Trim(sREOPT(5)) = "1" AND (sOPT6 = "" OR IsNull(sOPT6)) THEN sMESSAGE = sMESSAGE & "<li />Please enter " & sOPTNAME(5)        
        IF Trim(sarrACTIVE(6)) = "1" AND Trim(sREOPT(6)) = "1" AND (sOPT7 = "" OR IsNull(sOPT7)) THEN sMESSAGE = sMESSAGE & "<li />Please enter " & sOPTNAME(6)        
        IF Trim(sarrACTIVE(7)) = "1" AND Trim(sREOPT(7)) = "1" AND (sOPT8 = "" OR IsNull(sOPT8)) THEN sMESSAGE = sMESSAGE & "<li />Please enter " & sOPTNAME(7)        
        IF Trim(sarrACTIVE(8)) = "1" AND Trim(sREOPT(8)) = "1" AND (sOPT9 = "" OR IsNull(sOPT9)) THEN sMESSAGE = sMESSAGE & "<li />Please enter " & sOPTNAME(8)        
        IF Trim(sarrACTIVE(9)) = "1" AND Trim(sREOPT(9)) = "1" AND (sOPT10 = "" OR IsNull(sOPT10)) THEN sMESSAGE = sMESSAGE & "<li />Please enter " & sOPTNAME(9)                
        IF Trim(sarrACTIVE(10)) = "1" AND Trim(sREOPT(10)) = "1" AND (sOPT11 = "" OR IsNull(sOPT11)) THEN sMESSAGE = sMESSAGE & "<li />Please enter " & sOPTNAME(10)        
        IF Trim(sarrACTIVE(11)) = "1" AND Trim(sREOPT(11)) = "1" AND (sOPT12 = "" OR IsNull(sOPT12)) THEN sMESSAGE = sMESSAGE & "<li />Please enter " & sOPTNAME(11)        
        IF Trim(sarrACTIVE(12)) = "1" AND Trim(sREOPT(12)) = "1" AND (sOPT13 = "" OR IsNull(sOPT13)) THEN sMESSAGE = sMESSAGE & "<li />Please enter " & sOPTNAME(12)        
        IF Trim(sarrACTIVE(13)) = "1" AND Trim(sREOPT(13)) = "1" AND (sOPT14 = "" OR IsNull(sOPT14)) THEN sMESSAGE = sMESSAGE & "<li />Please enter " & sOPTNAME(13)        
        IF Trim(sarrACTIVE(14)) = "1" AND Trim(sREOPT(14)) = "1" AND (sOPT15 = "" OR IsNull(sOPT15)) THEN sMESSAGE = sMESSAGE & "<li />Please enter " & sOPTNAME(14)                        
        
        IF sMESSAGE = "" THEN        
            IF NOT (Trim(TMP_EMAIL) = Trim(sEMAIL)) THEN
                SQL = "SELECT ID FROM mms_tbl_user WHERE fldEMAIL = '" & sEMAIL & "'"      
                Set RS = Server.CreateObject("ADODB.Recordset")
                RS.Open SQL, MyConn	
                	 IF NOT RS.EOF THEN
                	 	 sMESSAGE = sMESSAGE & "<li />Sorry, this email address is already associated with another account. Email address must be unique to the membership account."
                	 END IF
                RS.Close 
                Set RS = Nothing                
            END IF        
        END IF
        
		
		' Custom Fields
		FOR I = 0 To UBound(arrIDS)-1
			sVALUE = Trim(Request.Form(arrIDS(I)))
			IF Trim(arrREQUIRED(I)) = "1" AND (sVALUE = "" Or IsNull(sVALUE)) THEN
				sMESSAGE = sMESSAGE & "<li />You must enter value for field " & Replace(arrFLDNAME(I),":","") & "."
			END IF						
		NEXT		
					
		
    END SUB
    %>

    <!--#include file="inc_header.asp"-->    
    <% IF NOT sMESSAGE = "" THEN %>
        <!--#include file="inc_error.asp"-->
        <!--#include file="inc_footer.asp"-->
        <% Response.End %>
    <% END IF %>    

	<!-- INCLUDE THOSE 2 LINES TO KEEP TRACK OF VISITED PAGES -->
		<!--#include file="inc_track_pages.asp"-->
		<%PAGE_LOG("Profile Page")%>
	<!-- [ // ] -->
	

    <table cellpadding="2" cellspacing="0" border="0"><tr>
    	<td>
            <% If sMODE = "edit" THEN %>
                
                <center>Profile has been updated.</center>
            
            <% Else  %>
				<table width="100%" align="center" cellpadding="2" cellspacing="0" border="0"><tr>
					<td>
					<img src="img/form_point.gif" width="35" height="32" alt="" border="0" align="left"> 
					This screen allows you to update your account profile. Please ensure that your 
					profile details are kept up-to-date, so we can contact you when necessary.
					</td>
				</tr></table>		
                <form action="profile.asp" method="post" name="frm" onSubmit="return ValidateUserEdit()">
                <table width="500" align="center" cellpadding="2" cellspacing="0" border="0"><tr>
                	<td width="150">Name:</td>
                	<td width="350"><input style="width: 100%;" type="Text" name="name" value="<%= sNAME %>" size="40" maxlength="95" class="textbox" /></td>
                </tr><tr>
                	<td>Company:</td>
                	<td><input style="width: 100%;" type="Text" name="company" value="<%= sCOMPANY %>" size="40" maxlength="85" class="textbox" /></td>
                </tr><tr>
                	<td>Email:</td>
                	<td><input style="width: 100%;" type="Text" name="email" value="<%= sEMAIL %>" size="40" maxlength="75" class="textbox" /></td>
                </tr><tr>
                	<td>Username:</td>
                	<td><%= sUSERNAME %></td>
                </tr><tr>
                	<td>Password:</td>
                	<td><input style="width: 100%;" type="Text" name="password" value="<%= sPASSWORD %>" size="40" maxlength="25" class="textbox" /></td>
                </tr><tr>
                	<td>Web Site:</td>
	            	<td width="350">				
						<table cellpadding="0" cellspacing="0" width="100%" border="0"><tr>
							<td><input style="width: 100%;" type="Text" name="url" value="<%= sURL %>" size="34" maxlength="250" class="textbox" /></td>
							<td width="20" align="right"><a href="#" onclick="return ValidateURL(frm.url.value);"><img src="img/ico_open_url.gif" width="18" height="15" alt="" border="0"></a></td>
						</tr></table>				
					</td>
                </tr><tr>
                	<td>Address:</td>
                	<td><input style="width: 100%;" type="Text" name="address" value="<%= sADDRESS %>" size="40" maxlength="150" class="textbox" /></td>
                </tr><tr>
                	<td>City:</td>
                	<td><input style="width: 100%;" type="Text" name="city" value="<%= sCITY %>" size="40" maxlength="50" class="textbox" /></td>
                </tr><tr>
                	<td>State / Province:</td>
                	<td><input style="width: 100%;" type="Text" name="state" value="<%= sSTATE %>" size="40" maxlength="50" class="textbox" /></td>
                </tr><tr>
                	<td>Country:</td>
                	<td><select style="width: 100%;" class="INP_DROP" style="width: 215px;" name="country"><option selected value="<%= sCOUNTRY %>"><%= sCOUNTRY %><!--#include file="inc_country_list.asp"--></td>
                </tr><tr>
                	<td>Phone:</td>
                	<td><input style="width: 100%;" type="Text" name="phone" value="<%= sPHONE %>" size="40" maxlength="25" class="textbox" /></td>
                </tr><tr>
                	<td>Fax:</td>
                	<td><input style="width: 100%;" type="Text" name="fax" value="<%= sFAX %>" size="40" maxlength="25" class="textbox" /></td>
                </tr>
				
				<%=strCUSTOM_FLDS%>
				
				<tr>
                	<td>Status:</td>
                	<td><%= sSTATUS %></td>
                </tr><tr>
                	<td>Profile Expires:</td>
                	<td><%= FormatDateTime(CDate(Cdate(sSINCE)+Cint(sEXPIRES)),1) %></td>
                </tr><tr>
                	<td>Subscription:</td>
                	<td><input type="Checkbox" name="subs"<% If sSUBS = "1" Then %> checked<% End If %> value="1" /> <font color="#808080" size="1">(Newsletter subscription?)</font></td>
                </tr><tr>
                	<td>Share Details:</td>
                	<td><input type="Checkbox" name="sALLOW_D"<% If sALLOW_D = "1" Then %> checked<% End If %> value="1" /> <font color="#808080" size="1">(Share email & details with others?)</font></td>
                </tr>                
                <% If Trim(sarrACTIVE(0)) = "1" Then %>
                <tr>
                	<td><%=sarrNAME(0)%>:</td>
                	<td><input style="width: 100%;" type="Text" name="opt1" value="<%=sOPT1%>" size="40" maxlength="50" class="textbox" /></td>
                </tr>
                <% End If %>
                <% If Trim(sarrACTIVE(1)) = "1" Then %>
                <tr>
                	<td><%=sarrNAME(1)%>:</td>
                	<td><input style="width: 100%;" type="Text" name="opt2" value="<%=sOPT2%>" size="40" maxlength="50" class="textbox" /></td>
                </tr>
                <% End If %>
                <% If Trim(sarrACTIVE(2)) = "1" Then %>            
                <tr>
                	<td><%=sarrNAME(2)%>:</td>
                	<td><input style="width: 100%;" type="Text" name="opt3" value="<%=sOPT3%>" size="40" maxlength="50" class="textbox" /></td>
                </tr>
                <% End If %>
                <% If Trim(sarrACTIVE(3)) = "1" Then %>            
                <tr>
                	<td><%=sarrNAME(3)%>:</td>
                	<td><input style="width: 100%;" type="Text" name="opt4" value="<%=sOPT4%>" size="40" maxlength="50" class="textbox" /></td>
                </tr>
                <% End If %>
                <% If Trim(sarrACTIVE(4)) = "1" Then %>            
                <tr>
                	<td><%=sarrNAME(4)%>:</td>
                	<td><input style="width: 100%;" type="Text" name="opt5" value="<%=sOPT5%>" size="40" maxlength="50" class="textbox" /></td>
                </tr>
                <% End If %>                
                <% If Trim(sarrACTIVE(5)) = "1" Then %>            
                <tr>
                	<td><%=sarrNAME(5)%>:</td>
                	<td><input style="width: 100%;" type="Text" name="opt6" value="<%=sOPT6%>" size="40" maxlength="50" class="textbox" /></td>
                </tr>
                <% End If %>
                <% If Trim(sarrACTIVE(6)) = "1" Then %>            
                <tr>
                	<td><%=sarrNAME(6)%>:</td>
                	<td><input style="width: 100%;" type="Text" name="opt7" value="<%=sOPT7%>" size="40" maxlength="50" class="textbox" /></td>
                </tr>
                <% End If %>
                <% If Trim(sarrACTIVE(7)) = "1" Then %>            
                <tr>
                	<td><%=sarrNAME(7)%>:</td>
                	<td><input style="width: 100%;" type="Text" name="opt8" value="<%=sOPT8%>" size="40" maxlength="50" class="textbox" /></td>
                </tr>
                <% End If %>
                <% If Trim(sarrACTIVE(8)) = "1" Then %>            
                <tr>
                	<td><%=sarrNAME(8)%>:</td>
                	<td><input style="width: 100%;" type="Text" name="opt9" value="<%=sOPT9%>" size="40" maxlength="50" class="textbox" /></td>
                </tr>
                <% End If %>
                <% If Trim(sarrACTIVE(9)) = "1" Then %>            
                <tr>
                	<td><%=sarrNAME(9)%>:</td>
                	<td><input style="width: 100%;" type="Text" name="opt10" value="<%=sOPT10%>" size="40" maxlength="50" class="textbox" /></td>
                </tr>
                <% End If %>                
                <% If Trim(sarrACTIVE(10)) = "1" Then %>            
                <tr>
                	<td><%=sarrNAME(10)%>:</td>
                	<td><input style="width: 100%;" type="Text" name="opt11" value="<%=sOPT11%>" size="40" maxlength="50" class="textbox" /></td>
                </tr>
                <% End If %>
                <% If Trim(sarrACTIVE(11)) = "1" Then %>            
                <tr>
                	<td><%=sarrNAME(11)%>:</td>
                	<td><input style="width: 100%;" type="Text" name="opt12" value="<%=sOPT12%>" size="40" maxlength="50" class="textbox" /></td>
                </tr>
                <% End If %>
                <% If Trim(sarrACTIVE(12)) = "1" Then %>            
                <tr>
                	<td><%=sarrNAME(12)%>:</td>
                	<td><input style="width: 100%;" type="Text" name="opt13" value="<%=sOPT13%>" size="40" maxlength="50" class="textbox" /></td>
                </tr>
                <% End If %>
                <% If Trim(sarrACTIVE(13)) = "1" Then %>            
                <tr>
                	<td><%=sarrNAME(13)%>:</td>
                	<td><input style="width: 100%;" type="Text" name="opt14" value="<%=sOPT14%>" size="40" maxlength="50" class="textbox" /></td>
                </tr>
                <% End If %>
                <% If Trim(sarrACTIVE(14)) = "1" Then %>            
                <tr>
                	<td><%=sarrNAME(14)%>:</td>
                	<td><input style="width: 100%;" type="Text" name="opt15" value="<%=sOPT15%>" size="40" maxlength="50" class="textbox" /></td>
                </tr>
                <% End If %>                                                                                
                <% IF Trim(sysVAL(6)) = "1" THEN %>
                    <tr>
                    	<td colspan="2" style="font: bold;"><br /><br />Assigned to Groups:<br /><br /></td>
                    </tr><tr>
                    	<td colspan="2">
                        <select name="cate" multiple="multiple" size="4" style="width: 100%;"><%= sstrCATE %></select><br />
                        <font color="#808080">
                        Groups are <u>not</u> assigned unless they are <i>highlighted</i>.<br />
                        Use [Ctrl] key to select multiple groups.<br />
                        Use [Ctrl] key <i>remove</i> a group selection.<br /></font>
                        </td>
                    </tr>
                <% END IF %>
                <tr>
                	<td align="right" colspan="2"><br /><input type="Submit" value="Update Profile" /></td>
                </tr></table>
                <input type="Hidden" name="mode" value="edit" />
                <input type="Hidden" name="temp_email" value="<%=sEMAIL%>" />
                </form>
            <% End If %>
            <br />
        </td>
    </tr></table>
    
    <!--#include file="inc_footer.asp"-->