<% If Request.Form.Count > 0 Then For I = 1 to Request.Form.Count Body = Body & Request.Form.Key(I) & " " _ & Request.Form.Item(I) & vbCRLF Next '*** send email notice Dim Mailer Set Mailer = Server.CreateObject("Persits.MailSender") 'If Err <> 0 Then ' error occurred ' Set Mailer = Server.CreateObject("CDO.NewMail") ' Err = 0 'End If Mailer.Host = "localhost" Mailer.From = Request.Form.Item(2) Mailer.Subject = "Inquiry from Peepholesecurity.com " Mailer.Body = Body Mailer.AddAddress " sales@peepholesecurity.com " Err = 0 Mailer.Send Set Mailer = Nothing Response.Redirect "contact.asp" If Err <> 0 Then ' error occurred Response.Write Err.Description End If End If %>
" method=post>
 

   

Contact Us

Please contact us if you would like further information about any of the quality door viewers featured on this site, or to arrange installation of the door viewer by a local qualified installer.

We are also recruiting independent contractors/dealers to promote and install our quality door viewers in all areas. PeepHole Security will provide qualified customer leads generated through the Internet and will assist in building a steady business.

Name:

 
Email:
 
Phone:
 
Address:
   
City/State:
Postal Code:
Additional Comments:

 
   

 

 

Send mail to sales department for questions or comments about our products.
Copyright © 2002-2008 Peep Hole Security