<% 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 & "', 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 "supplier_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

     
     

     

    Renew Your SSIA Membership

     

    <% If sMODE = "edit" THEN %>

    Step 2 - Make Your Payment

    Thank you <%=Session("PMMS_NAME")%>. Your contact information has been updated. To complete your renewal, please choose a payment method below.

    • Make your $250 check payable to SSIA and send to:

    Please Note New Address:

     

    Shoe Service Institute of America

    1013 Beards Hill Rd., Suite 101

    Aberdeen, MD 21001

                OR

    • To pay with a credit card using our secure payment system, please click on the "Buy Now" button below.

    NOTE: You do not need a PayPal account to use this feature. If you do not have a PayPal account, simply click on the button that says "Pay with Debit or Credit Card" to use the guest checkout.

    <% Else %>
    Step 1 - Update Your SSIA Membership Record

    Here is the information we have on file in your SSIA membership record. Please ensure that your contact information is current.

    Login Information

    Email:
    User ID: <%= sUSERNAME %>
    Password:


    Personal Information

    <%=strCUSTOM_FLDS%> <% If Trim(sarrACTIVE(0)) = "1" Then %> <% End If %> <% If Trim(sarrACTIVE(1)) = "1" Then %> <% End If %> <% If Trim(sarrACTIVE(2)) = "1" Then %> <% End If %> <% If Trim(sarrACTIVE(3)) = "1" Then %> <% End If %> <% If Trim(sarrACTIVE(4)) = "1" Then %> <% End If %> <% If Trim(sarrACTIVE(5)) = "1" Then %> <% End If %> <% If Trim(sarrACTIVE(6)) = "1" Then %> <% End If %> <% If Trim(sarrACTIVE(7)) = "1" Then %> <% End If %> <% If Trim(sarrACTIVE(8)) = "1" Then %> <% End If %> <% If Trim(sarrACTIVE(9)) = "1" Then %> <% End If %> <% If Trim(sarrACTIVE(10)) = "1" Then %> <% End If %> <% If Trim(sarrACTIVE(11)) = "1" Then %> <% End If %> <% If Trim(sarrACTIVE(12)) = "1" Then %> <% End If %> <% If Trim(sarrACTIVE(13)) = "1" Then %> <% End If %> <% If Trim(sarrACTIVE(14)) = "1" Then %> <% End If %>
    First Name:
    Last Name:
    Suffix (Jr., C.Ped.):
    Full Name:
    Company:
    Address:
    City:
    State / Province:
    Zip/Postal Code:
    Country:
    Phone:
    Fax:
    Web Site:

    Click on the update button below to proceed to payment.

     
    <% END IF %>