:: QUICK CONTACT FORM

Please complete and submit the form below if you wish to be contacted by Grant Visions Team regarding a service issue. All fields are required to be filled. * indicates required field.

<% posted = request.form ("Send") if posted = "Send" then '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' Customize the following 5 lines with your own information. '' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' vtoaddress = "info@grantvisions.com" ' Change this to the email address you will be receiving your notices. vmailhost = "mail.grantvisions.com" ' Change this to your actual Domain name. vsubject = "Feedack Grantvisions" 'Change this to your own email message subject. ''''''''''''''''''''''''''''''''''''''''''' '' DO NOT CHANGE ANYTHING PAST THIS LINE '' ''''''''''''''''''''''''''''''''''''''''''' vfromname = request.form ("TName") vbody = request.form ("TBody") vrplyto = request.form ("TEmail") vmsgbody = vfromname &"
"& vrplyto &"
"& vbody Set objEmail = Server.CreateObject("Persits.MailSender") objEmail.Username = vfromaddress objEmail.Password = vfrompwd objEmail.Host = vmailhost objEmail.From = vfromaddress objEmail.AddAddress vtoaddress objEmail.Subject = vsubject objEmail.Body = vmsgbody objEmail.IsHTML = True objEmail.Send vErr = Err.Description if vErr <> "" then response.write vErr & "

There was an error on this page." else response.write "Thank you, your message has been sent." End If Set objEmail = Nothing end if %>