Welcome to G.V. Range - Providing Professional Engineering Services

An Engineering & Consulting Company

Quality Professional Engineering Services

We would like to invite you to join our GVR Systems Automation’s Engineering Solutions Network.
Click Here for More Information!

GVR Systems Automation
Engineering & Consulting
Medical Research, Biogenetical & Pharmaceutical
P.O. Box 10597
Silver Spring, MD 20914

Ph: 301-622-3329
Cell: 301-633-2993
Fax: 301-622-4330
GladysVRange@GVRSystemsAutomation.com

For Employment Opportunities, please contact
GladysVRange@GVRSystemsAutomation.com

<% FUNCTION DupQ (s) '--This function turns single quotes into pairs of single quotes and '--trims the input string. pos = InStr(s, "'") While pos > 0 s = Mid(s, 1, pos) & "'" & Mid(s, pos + 1) pos = InStr(pos + 2, s, "'") Wend DupQ = Trim(s) END FUNCTION '--initial values of fields xname = "" xtitle = "" xaddress = "" xphone = "" xfax = "" xemail = "" xgeneric = "" xspecinst = "" xShowForm = "yes" '--form submitted; process info If Request("frequest") = "yes" Then '--values of fields xname = DupQ(Request("fname")) xtitle = DupQ(Request("ftitle")) xaddress = DupQ(Request("faddress")) xphone = DupQ(Request("fphone")) xfax = DupQ(Request("ffax")) xemail = DupQ(Request("femail")) xgeneric = DupQ(Request("fgeneric")) xspecinst = DupQ(Request("fspecinst")) '--check submission for errors and missing fields msg = "" If xspecinst = "" then msg = msg & "Please enter your comments.
" End If xShowForm = "no" If msg = "" Then Response.Write("

Thank you for submitting your comments.

") '------------SEND EMAIL TO STAFF '---open createobject Dim ObjMail Set ObjMail = Server.CreateObject("CDONTS.NewMail") '---specify to, from, subject, body ObjMail.To = "lteachum@ewebavenue.com" ObjMail.From = (""& Request("femail") & "") ObjMail.Subject = "Comment Form Submitted from GVR Systems Automation Web Site" '---objects in the body ObjMail.Body = ("Information Request sent: ") & now() & vbcrlf&_ ("") & vbcrlf&_ ("") & vbcrlf&_ ("Title: " & ""& Request("ftitle") & "" ) & vbcrlf&_ ("Comment Form Submitted by: " & ""& Request("fName") & "" ) & vbcrlf&_ ("") & vbcrlf&_ ("") & vbcrlf&_ ("Address: " & ""& Request("faddress") & "" ) & vbcrlf&_ ("") & vbcrlf&_ ("") & vbcrlf&_ ("Phone Number: " & ""& Request("fPhone") & "" ) & vbcrlf&_ ("Fax Number: " & ""& Request("fFax") & "" ) & vbcrlf&_ ("Email Address: " & ""& Request("femail") & "" ) & vbcrlf&_ ("") & vbcrlf&_ ("") & vbcrlf&_ ("Include the Comments on your web site? " & ""& Request("fgeneric") & "" ) & vbcrlf&_ ("Comments: " & ""& Request("fspecinst") & "" ) & vbcrlf&_ ("-----------------------------------------------") '---send the mail ObjMail.Send '---reset objmail Set ObjMail = Nothing Else '--show error message xShowForm = "yes" Response.write("

**The following errors occurred. Please correct your " &_ "entries and then click on the SUBMIT button to try again.

") Response.write("

" & msg & "

") End If End If If xShowForm = "yes" Then '--show initial instructions %>

Please, let us know if you would like to receive our Newsletter, and/or request from us information on a specific subject, issue or question. Please send us your question below and we will respond as quickly as possible.
*Required Fields
Name:
Title:
Address:
Providing your phone number will help us expedite a response.
Phone:
Fax:
Email:
May we Include Your Comments on the Web Site?
	> Yes > No
*Comments:

<% End If %>

Home | Company Overview | Company Projects | Press Releases | Contact Us

GVR Systems Automation, P.O. Box 10597, Silver Spring, MD 20914
(301) 622-3329, Cell (301) 633-2993, Fax (301) 622-4330, GladysVRange@GVRSystemsAutomation.com