<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Option Explicit
Response.Expires = 0
Dim strName
Dim strEmail
Dim strSubject
Dim strPhone
Dim strState
Dim strZip Code
Dim strComments
strName = Trim(Request.Form("name"))
strEmail = Trim(Request.Form("email"))
strSubject = Trim(Request.Form("subject"))
strPhone = Trim(Request.Form("phone"))
strState = Trim(Request.Form("state"))
strZip Code = Trim(Request.Form("zip code")
strComments = Trim(Request.Form("comments"))
Dim objMyMail1, msgBody, msgSubject
Set objMymail1 = Server.CreateObject("CDONTS.NewMail")
Dim strResponse
strResponse = "Question/Request from the Website"
msgSubject = strResponse
msgBody =""
msgBody = msgBody & ""
msgBody = msgBody & "Site Response"
msgBody = msgBody & ""
msgBody = msgBody & ""
msgBody = msgBody & ""
msgBody = msgBody & "Question/Request from the Website
"
msgBody = msgBody & "Name: "
msgBody = msgBody & strName
msgBody = msgBody & "
"
msgBody = msgBody & "Email: "
msgBody = msgBody & strEmail
msgBody = msgBody & "
"
msgBody = msgBody & "Subject: "
msgBody = msgBody & strSubject
msgBody = msgBody & "
"
msgBody = msgBody & "Phone: "
msgBody = msgBody & strPhone
msgBody = msgBody & "
"
msgBody = msgBody & "State: "
msgBody = msgBody & strState
msgBody = msgBody & "
"
msgBody = msgBody & "Zip Code: "
msgBody = msgBody & strZip Code
msgBody = msgBody & "
"
msgBody = msgBody & "Comments:
"
msgBody = msgBody & strComments
msgBody = msgBody & "
"
msgBody = msgBody & ""
objMyMail1.From = strEmail
objMyMail1.To = "alden@aldenlawllc.com; lyons@aldenlawllc.com"
objMyMail1.Subject = msgSubject
objMyMail1.BodyFormat = 0
objMymail1.MailFormat = 0
objMyMail1.Body = msgBody
objMyMail1.Send
Set objMyMail1 = Nothing
%>
Contact Us
