| Contact Us | |
| It is our POLICY to provide free professional advice and insight to any corporation requiring assistance or direction. Please feel free to contact us, we are always available to answer questions, whether we manage your corporation or not. | |
 |
<%
' Website Contact Form Generator
' http://www.tele-pro.co.uk/scripts/contact_form/
' This script is free to use as long as you
' retain the credit link
' declare variables
Dim EmailFrom
Dim EmailTo
Dim Subject
Dim Name
Dim Address
Dim Telephone
' get posted data into variables
EmailFrom = "contactus@gsa-pm.com"
EmailTo = "leonard@reactiongrafix.com"
Subject = "Contact From"
Name = Trim(Request.Form("Name"))
Address = Trim(Request.Form("Address"))
Telephone = Trim(Request.Form("Telephone"))
' validation
Dim validationOK
validationOK=true
If (Trim(Name)="") Then validationOK=false
If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom)
' prepare email body text
Dim Body
Body = Body & "Name: " & Name & VbCrLf
Body = Body & "Address: " & Address & VbCrLf
Body = Body & "Telephone: " & Telephone & VbCrLf
' send email
Dim mail
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.To = EmailTo
mail.From = EmailFrom
mail.Subject = Subject
mail.Body = Body
mail.Send
' redirect to success page
Response.Redirect("ok.htm?" & EmailFrom)
%>
Mailing
Address: Telephone:
905-567-6820 |
| G.
S. Atkin Property Management Specialist Inc. One Shady Lawn Court Mississauga, Ontario L5N 1H2 |
