Erika Jones & Associates, Inc.

<%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: <%=TextField("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 %>