<%@Language=VBScript%> <% action = Request.QueryString("action") IF action = "send" THEN Name = Request.Form("Name") PhoneNumber = Request.Form("Phone") Email = Request.Form("Email") Subject = Request.Form("Subject1") & " " & Request.Form("Subject2") CopyMessage = Request.Form("CopyMessage") Message = Request.Form("Message") TheName = "Exterior Doors & Windows" TheAddress = "info@newwindows4me.com" IPAddr = Request.ServerVariables("REMOTE_ADDR") Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.softsands.net" Mail.From = Email Mail.FromName = Name Mail.AddAddress TheAddress, TheName IF CopyMessage = "1" THEN Mail.AddAddress Email, Name END IF Mail.Subject = Subject TempBody = "From: " & Name & vbCrLf TempBody = TempBody & "Email: " & Email & vbCrLf TempBody = TempBody & "Phone: " & PhoneNumber & vbCrLf & vbCrLf TempBody = TempBody & Message & vbCrLf & vbCrLf TempBody = TempBody & "Date/Time: " & now() & vbCrLf TempBody = TempBody & "IP Address: " & IPAddr & vbCrLf TempBody = TempBody & "-------------------------------------------------------------" & vbCrLf Mail.Body = TempBody & "This message was sent from http://www.newwindows4me.com/contact.asp" On Error Resume Next Mail.Send SentMessage = true Set Mail = nothing END IF %> Exterior Doors & Windows
Exterior Doors & Windows Logo MenuImage Right 2
Image Left 2 Image Right 3
Image Left 3 Image Right 4
Image Left 4 Contact Us
Image Left 5 Image Right 6
Image Left 6
Exterior Doors & Vinyl Windows
5840 SR655
Belleville, PA  17004

Phone: 717-667-9692 or 888-647-9692

Email: info@newwindows4me.com


<%IF SentMessage THEN%>
Your Message Has Been Sent


<%ELSE%>
Please fill out the form below and someone will respond to your question shortly.


Name:
Phone:
Email: Send me a Copy of this Message
Subject:
Message:
 
<%END IF%>

Bottom Menu