<% OPTION EXPLICIT %> <%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, DES_ADMIN, aADM, _ arrADM, arrFADMIN_V, UNITS, UNIT_DES 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, fldADMIN 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")) & ";" aADM = aADM & trim(RS("fldADMIN")) & ";" aNAME = aNAME & trim(RS("fldNAME")) & vbcrlf RS.MoveNext WEND RS.Close Set RS = Nothing arrREQUIRED = Split(aREQ,";") arrIDS = Split(aIDS,";") arrADM = Split(aADM, ";") 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 & "', 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() UNIT_DES = GET_UNIT_NAME(False) 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, fldUNIT 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")) UNITS = trim(sRS("fldUNIT")) 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 & "" & 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, fldADMIN 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")) DES_ADMIN = trim(RS("fldADMIN")) IF DES_ADMIN = "0" THEN 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, DES_ADMIN) & Vbcrlf END IF RS.MoveNext WEND RS.Close Set RS = Nothing MyConn.Close Set MyConn = Nothing IF sstrCATE = "" THEN sMESSAGE = sMESSAGE & "
  • Please add at least one category before adding a member." strCUSTOM_FLDS = "" & 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 & "
  • Please enter user name." IF (sPASSWORD="") OR (IsNull(sPASSWORD)) THEN sMESSAGE = sMESSAGE & "
  • Please enter desired password." IF Len(sPASSWORD) < 5 THEN sMESSAGE = sMESSAGE & "
  • Password must be between 5 and 25 characters." IF IsEmailValid(sEMAIL) = False THEN sMESSAGE = sMESSAGE & "
  • Please enter valid email address." IF arrRegFA(0) = "1" AND arrRegFR(0) = "1" AND sURL = "" THEN sMESSAGE = sMESSAGE & "
  • Please enter web site URL." IF arrRegFA(1) = "1" AND arrRegFR(1) = "1" AND sADDRESS = "" THEN sMESSAGE = sMESSAGE & "
  • Please enter address." IF arrRegFA(2) = "1" AND arrRegFR(2) = "1" AND sCITY = "" THEN sMESSAGE = sMESSAGE & "
  • Please enter city." IF arrRegFA(3) = "1" AND arrRegFR(3) = "1" AND sSTATE = "" THEN sMESSAGE = sMESSAGE & "
  • Please enter state/province." IF arrRegFA(4) = "1" AND arrRegFR(4) = "1" AND sCOUNTRY = "" THEN sMESSAGE = sMESSAGE & "
  • Please enter country." IF arrRegFA(5) = "1" AND arrRegFR(5) = "1" AND sPHONE = "" THEN sMESSAGE = sMESSAGE & "
  • Please enter phone number." IF arrRegFA(6) = "1" AND arrRegFR(6) = "1" AND sFAX = "" THEN sMESSAGE = sMESSAGE & "
  • Please enter fax number." IF arrRegFA(7) = "1" AND arrRegFR(7) = "1" AND sCOMPANY = "" THEN sMESSAGE = sMESSAGE & "
  • Please enter company name." IF Trim(sarrACTIVE(0)) = "1" AND Trim(sREOPT(0)) = "1" AND (sOPT1 = "" OR IsNull(sOPT1)) THEN sMESSAGE = sMESSAGE & "
  • Please enter " & sOPTNAME(0) IF Trim(sarrACTIVE(1)) = "1" AND Trim(sREOPT(1)) = "1" AND (sOPT2 = "" OR IsNull(sOPT2)) THEN sMESSAGE = sMESSAGE & "
  • Please enter " & sOPTNAME(1) IF Trim(sarrACTIVE(2)) = "1" AND Trim(sREOPT(2)) = "1" AND (sOPT3 = "" OR IsNull(sOPT3)) THEN sMESSAGE = sMESSAGE & "
  • Please enter " & sOPTNAME(2) IF Trim(sarrACTIVE(3)) = "1" AND Trim(sREOPT(3)) = "1" AND (sOPT4 = "" OR IsNull(sOPT4)) THEN sMESSAGE = sMESSAGE & "
  • Please enter " & sOPTNAME(3) IF Trim(sarrACTIVE(4)) = "1" AND Trim(sREOPT(4)) = "1" AND (sOPT5 = "" OR IsNull(sOPT5)) THEN sMESSAGE = sMESSAGE & "
  • Please enter " & sOPTNAME(4) IF Trim(sarrACTIVE(5)) = "1" AND Trim(sREOPT(5)) = "1" AND (sOPT6 = "" OR IsNull(sOPT6)) THEN sMESSAGE = sMESSAGE & "
  • Please enter " & sOPTNAME(5) IF Trim(sarrACTIVE(6)) = "1" AND Trim(sREOPT(6)) = "1" AND (sOPT7 = "" OR IsNull(sOPT7)) THEN sMESSAGE = sMESSAGE & "
  • Please enter " & sOPTNAME(6) IF Trim(sarrACTIVE(7)) = "1" AND Trim(sREOPT(7)) = "1" AND (sOPT8 = "" OR IsNull(sOPT8)) THEN sMESSAGE = sMESSAGE & "
  • Please enter " & sOPTNAME(7) IF Trim(sarrACTIVE(8)) = "1" AND Trim(sREOPT(8)) = "1" AND (sOPT9 = "" OR IsNull(sOPT9)) THEN sMESSAGE = sMESSAGE & "
  • Please enter " & sOPTNAME(8) IF Trim(sarrACTIVE(9)) = "1" AND Trim(sREOPT(9)) = "1" AND (sOPT10 = "" OR IsNull(sOPT10)) THEN sMESSAGE = sMESSAGE & "
  • Please enter " & sOPTNAME(9) IF Trim(sarrACTIVE(10)) = "1" AND Trim(sREOPT(10)) = "1" AND (sOPT11 = "" OR IsNull(sOPT11)) THEN sMESSAGE = sMESSAGE & "
  • Please enter " & sOPTNAME(10) IF Trim(sarrACTIVE(11)) = "1" AND Trim(sREOPT(11)) = "1" AND (sOPT12 = "" OR IsNull(sOPT12)) THEN sMESSAGE = sMESSAGE & "
  • Please enter " & sOPTNAME(11) IF Trim(sarrACTIVE(12)) = "1" AND Trim(sREOPT(12)) = "1" AND (sOPT13 = "" OR IsNull(sOPT13)) THEN sMESSAGE = sMESSAGE & "
  • Please enter " & sOPTNAME(12) IF Trim(sarrACTIVE(13)) = "1" AND Trim(sREOPT(13)) = "1" AND (sOPT14 = "" OR IsNull(sOPT14)) THEN sMESSAGE = sMESSAGE & "
  • Please enter " & sOPTNAME(13) IF Trim(sarrACTIVE(14)) = "1" AND Trim(sREOPT(14)) = "1" AND (sOPT15 = "" OR IsNull(sOPT15)) THEN sMESSAGE = sMESSAGE & "
  • 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 & "
  • 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)) AND Trim(arrADM(I)) = "0" THEN sMESSAGE = sMESSAGE & "
  • You must enter value for field " & Replace(arrFLDNAME(I),":","") & "." END IF NEXT END SUB %> <% IF NOT sMESSAGE = "" THEN %> <% Response.End %> <% END IF %> Shoe Service Institute of America - shoe repair
     

    FOR THE SHOE REPAIR INDUSTRY

    		  
     

     

    Update Your Membership Record
     

    <% If sMODE = "edit" THEN %>
    Your contact information has been updated.
    <% Else %>
    This screen allows you to update your SSIA membership record. Please ensure that your contact information is current so we can contact you when necessary.
    Login Information

    Email:
    User ID: <%= sUSERNAME %>
    Password:
    Membership Type: <%= sOPT5 %>
    Expiration: <%= sOPT6 %>


    Personal Information

    First Name:
    Last Name:
    Suffix (Jr., C.Ped.):
    Full Name:
    Company:
    Address:
    City:
    State / Province:
    Zip/Postal Code:
    Country:
    Phone:
    Fax:
    Web Site:

      Company Description

    Enter a brief description of your company below. Limit 400 characters. This is what your customers will see when searching our site. Keep in mind they will already have your contact information, so use this description to cover services, company history, company philosophy, etc.

      Social Media

    Copy and paste the full url to your Facebook, Twitter and LinkedIn pages/feeds if you want customers to follow you.

    Example: https://www.facebook.com/fastfeetshoerepair
    Facebook:

    Twitter
    LinkedIn:

     
    <% END IF %>