About Us

<%Sub CheckboxField(cf_name, cf_default) Response.Write "" End Sub Sub RadioField(rf_name, rf_value, rf_default) Response.Write "" End Sub Sub DropDownList(ddl_name, ddl_values) Response.Write "" End Sub Function TextField(tf_name, tf_default) If IsEmpty(Request(tf_name)) Then TextField = Server.HTMLEncode(tf_default) Else TextField = Server.HTMLEncode(Request(tf_name)) End If End Function %><%errorString = "" If Not IsEmpty(Request("Send")) Then ' ' check for required fields ' If Trim(Request("Name")) = "" Then errorString = errorString & "
  • Name." & vbCrLf End If If Trim(Request("Company")) = "" Then errorString = errorString & "
  • Company." & vbCrLf End If If InStr(Request("Email"), "@") = 0 Then errorString = errorString & "
  • Valid E-mail." & vbCrLf End If If errorString <> "" Then %>SORRY!

    We don't have all the information needed to handle your request. Please enter the following:

      <%=errorString%>

    <% End If ' show error message End If ' check if we should check submission If IsEmpty(Request("Send")) Then %>Erika Jones & Associates

    6 Daisy Court
    Santa Fe, NM 87506
    U.S.A.

    Phone: 505-989-9790
    Fax:     505-983-0066

    eja@ejaprojects.com

    To find out more about Erika Jones & Associates and the customized project planning services we provide, or to sign up for Project Tips please complete the form below.

    <%End If If IsEmpty(Request("Send")) or errorString <> "" Then %>

    Name*: ">
    Company*: ">
    Department: ">
    Title: ">
    Phone: ">
    Fax: ">
    Address 1: ">
    Address 2: ">
    City: ">
    State: ">
    Zip: ">
    Country ">
    E-Mail*: ">
      *Please at least fill in this information so we can contact you.
    <%Call CheckboxField("Contact", true)%> Yes In addition to receiving Project Tips, may we contact you about other exciting planning ideas and services?
    Comments:

    <%End If If Not IsEmpty(Request("Send")) and errorString = "" Then Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.RemoteHost = "is-i.com; mail.nmia.com" Mailer.WordWrap = true Mailer.WordWrapLen = 80 Mailer.FromName = "ejaprojects.com" Mailer.FromAddress = "help@is-i.com" Mailer.Subject = "Contact" Mailer.AddRecipient "EJA", "eja@ejaprojects.com" Mailer.AddCC "ISI Archives", "archive@is-i.com" ' Mailer.AddRecipient "ISI Archives", "evandrunen@is-i.com" bodyText = bodyText & "Contact......" & Trim(Replace(Request("Name"), "=", "")) & vbCrLf bodyText = bodyText & "Company......" & Trim(Replace(Request("Company"), "=", "")) & vbCrLf bodyText = bodyText & "Department..." & Trim(Replace(Request("Department"), "=", "")) & vbCrLf bodyText = bodyText & "Title........" & Trim(Replace(Request("Title"), "=", "")) & vbCrLf bodyText = bodyText & "Phone........" & Trim(Replace(Request("Phone"), "=", "")) & vbCrLf bodyText = bodyText & "Fax.........." & Trim(Replace(Request("Fax"), "=", "")) & vbCrLf bodyText = bodyText & "Address 1...." & Trim(Replace(Request("Address1"), "=", "")) & vbCrLf bodyText = bodyText & "Address 2...." & Trim(Replace(Request("Address2"), "=", "")) & vbCrLf bodyText = bodyText & "City........." & Trim(Replace(Request("City"), "=", "")) & vbCrLf bodyText = bodyText & "State........" & Trim(Replace(Request("State"), "=", "")) & vbCrLf bodyText = bodyText & "Zip.........." & Trim(Replace(Request("Zip"), "=", "")) & vbCrLf bodyText = bodyText & "Country......" & Trim(Replace(Request("Country"), "=", "")) & vbCrLf bodyText = bodyText & "E-Mail......." & Trim(Replace(Request("Email"), "=", "")) & vbCrLf If Request("Contact") = "ON" Then bodyText = bodyText & "YES.........." & "Contact about other ideas and services" & vbCrLf Else bodyText = bodyText & "NO..........." & "Contact about other ideas and services" & vbCrLf End If bodyText = bodyText & "Comments....." & Trim(Replace(Request("Comments"), "=", "")) & vbCrLf bodyText = bodyText & vbCrLf Mailer.BodyText = bodyText Mailer.SendMail ' ' mail it once to eja and isi as plain text ' and once to eja in the format for input into goldmine ' Mailer.ClearBodyText Mailer.ClearCCs Mailer.ContentType = "application/x-gm-impdata" bodyTextExtra = bodyTextExtra & "[Instructions]" & vbCrLf bodyTextExtra = bodyTextExtra & "SaveThis=Web Import File" & vbCrLf bodyTextExtra = bodyTextExtra & "[Data]" & vbCrLf bodyTextExtra = bodyTextExtra & "STATUS=I" & vbCrLf bodyTextExtra = bodyTextExtra & "SOURCE=Web" & vbCrLf bodyTextExtra = bodyTextExtra & "CONTACT=" & Trim(Replace(Request("Name"), "=", "")) & vbCrLf bodyTextExtra = bodyTextExtra & "COMPANY=" & Trim(Replace(Request("Company"), "=", "")) & vbCrLf bodyTextExtra = bodyTextExtra & "DEPARTMENT=" & Trim(Replace(Request("Department"), "=", "")) & vbCrLf bodyTextExtra = bodyTextExtra & "TITLE=" & Trim(Replace(Request("Title"), "=", "")) & vbCrLf bodyTextExtra = bodyTextExtra & "PHONE1=" & Trim(Replace(Request("Phone"), "=", "")) & vbCrLf bodyTextExtra = bodyTextExtra & "FAX=" & Trim(Replace(Request("Fax"), "=", "")) & vbCrLf bodyTextExtra = bodyTextExtra & "ADDRESS1=" & Trim(Replace(Request("Address1"), "=", "")) & vbCrLf bodyTextExtra = bodyTextExtra & "ADDRESS2=" & Trim(Replace(Request("Address2"), "=", "")) & vbCrLf bodyTextExtra = bodyTextExtra & "CITY=" & Trim(Replace(Request("City"), "=", "")) & vbCrLf bodyTextExtra = bodyTextExtra & "STATE=" & Trim(Replace(Request("State"), "=", "")) & vbCrLf bodyTextExtra = bodyTextExtra & "ZIP=" & Trim(Replace(Request("Zip"), "=", "")) & vbCrLf bodyTextExtra = bodyTextExtra & "COUNTRY=" & Trim(Replace(Request("Country"), "=", "")) & vbCrLf bodyTextExtra = bodyTextExtra & "NOTES=" & Trim(Replace(Request("Comments"), "=", "")) & vbCrLf bodyTextExtra = bodyTextExtra & "email=" & Trim(Replace(Request("Email"), "=", "")) & vbCrLf bodyTextExtra = bodyTextExtra & "[ContSupp]" & vbCrLf bodyTextExtra = bodyTextExtra & "cs1_rectype=P" & vbCrLf bodyTextExtra = bodyTextExtra & "cs1_contact=E-mail Address" & vbCrLf bodyTextExtra = bodyTextExtra & "cs1_contsupref=" & Trim(Replace(Request("Email"), "=", "")) & vbCrLf bodyTextExtra = bodyTextExtra & "cs2_rectype=P" & vbCrLf bodyTextExtra = bodyTextExtra & "cs2_contact=Contact" & vbCrLf If Request("Contact") = "ON" Then bodyTextExtra = bodyTextExtra & "cs2_contsupref=Yes" & vbCrLf Else bodyTextExtra = bodyTextExtra & "cs2_contsupref=No" & vbCrLf End If Mailer.BodyText = bodyTextExtra If Mailer.SendMail Then %>Thank you!

    <% Else %>We're sorry, but your information could not be sent.

    If you experience this problem again, please contact our webmaster at help@is-i.com.<% End If End If %>

  • 2003 Erika Jones & Associates, Inc.