<% If Request("formact") = "send" Then MyCountry = Request("country") 'first, last, email, interest, action If Request("first") = "" OR Request("last") = "" OR Request("email") = "" OR Request("interest") = "" OR Request("action") = "" Then errMsg = "Please ensure you have completed all fields marked with an asterisk ""*"".

" ElseIf Request("email") <> Request("cemail") Then errMsg = "Please make sure your e-mail and confirmation e-mail match.

" Else Set cdMail = CreateObject("CDO.Message") cdMail.From = "Ray Bryan - Synergy Technology " cdMail.To = Request("email") cdMail.Subject = "Thank you for contacting Synergy Technology" MyBody = "Thank you for your interest in Synergy Technology. We provide professional design and engineering services for product-centric companies. We bring diverse and deep experience to each client we serve. " & vbCrLf & vbCrLf MyBody = MyBody & "We are looking forward to working with you. A member of the Synergy Technology team will respond to your request shortly." & vbCrLf & vbCrLf MyBody = MyBody & "Ray Bryan" & vbCrLf MyBody = MyBody & "President and Director of Engineering" & vbCrLf MyBody = MyBody & "ray.bryan@synergytec.com" & vbCrLf cdMail.TextBody = MyBody '==This section provides the configuration information for the remote SMTP server. '==Normally you will only change the server name or IP. cdMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server cdMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.pyramid.net" 'Server port (typically 25) cdMail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 cdMail.Configuration.Fields.Update '==End remote SMTP server configuration section== cdMail.Send set cdMail = nothing Set cdMailSyn = CreateObject("CDO.Message") cdMailSyn.From = Request("email") cdMailSyn.To = "ray.bryan@synergytec.com" 'cdMailSyn.Bcc = "" cdMailSyn.Subject = "Contact request from " & Request("first") & " " & Request("last") MyBody = "Date submitted: " & Date & vbCrLf MyBody = MyBody & "Time submitted: " & Time & vbCrLf & vbCrLf MyBody = MyBody & "Requestor information:" & vbCrLf MyBody = MyBody & Request("first") & " " & Request("last") & vbCrLf MyBody = MyBody & Request("company") & vbCrLf MyBody = MyBody & Request("street") & vbCrLf MyBody = MyBody & Request("city") & ", " & Request("state") & " " & Request("zip") &vbCrLf MyBody = MyBody & Request("country") & vbCrLf & vbCrLf MyBody = MyBody & "Telephone: " & Request("phone") & vbCrLf MyBody = MyBody & "E-mail: " & Request("email") & vbCrLf & vbCrLf MyBody = MyBody & "Industry: " & Request("industry") & vbCrLf & vbCrLf MyBody = MyBody & Request("ind-other") & vbCrLf & vbCrLf MyBody = MyBody & "Interest: " & Request("interest") & vbCrLf MyBody = MyBody & Request("int-other") & vbCrLf & vbCrLf MyBody = MyBody & "Status: " & Request("status") & vbCrLf & vbCrLf MyBody = MyBody & "Action requested: " & Request("action") & vbCrLf & vbCrLf MyBody = MyBody & "Comments: " & Request("help-info") & vbCrLf & vbCrLf cdMailSyn.TextBody = MyBody '==This section provides the configuration information for the remote SMTP server. '==Normally you will only change the server name or IP. cdMailSyn.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server cdMailSyn.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.pyramid.net" 'Server port (typically 25) cdMailSyn.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 cdMailSyn.Configuration.Fields.Update '==End remote SMTP server configuration section== cdMailSyn.Send set cdMailSyn = nothing Response.Redirect "contact_thanks.html" End If Else MyCountry = "United States" End If %> Professional engineering and design services: Synergy Technology

Contact Synergy Technology

Corporate Headquarters

P.O. Box 18225
Reno, NV 89511 USA
(775) 849-3330
(775) 849-3331 Fax

We welcome your inquiries and comments. Please complete and submit this form to request information or assistance. Required fields are noted with an asterisk "*".

<% If errMsg <> "" Then %> <%= errMsg %> <% End If %>
First Name* " maxlength="30" size="30"/>  Last Name* " maxlength="30" size="30">
Company " maxlength="125" size="80"/>
Street " maxlength="125" size="80">
City " maxlength="20" /> State/Province Zip/Postal Code " maxlength="20" size="11"/>
Country Telephone " maxlength="20" size="14">
Email* " maxlength="128" size="80">
Confirm email* " maxlength="128" size="80">
Industry: If other, please provide: " />

Areas of interest*
(select all that apply)
Engaging Synergy
Working for Synergy
Partnering with Synergy
Suggestion for Syngery
Writing about Synergy
Other (please describe below)

Which of the following best describes your interest in Synergy?
Just browsing
Researching for future reference
Actively seeking resource(s)

Action requested*
Add me to your mailing list
Respond to my request by email
Please call me

Please tell us more about how we can help you