McHENRY ARCHITECTURE - design in context

<%@ Language=VBScript EnableSessionState=False%> <%option explicit%> <%Response.Buffer=true Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires=20 Private Const msEMAIL_TO = "info@mchenryarchitecture.com" Private bErr, sName, sEmail, sAddress, sCity, sState, sZip, sPhone, sMsg, sHear, objMail, sFax %> McHENRY ARCHITECTURE - design in context <% '/ send email if form submitted If Len(Request.Form("Email"))>0 Then '/ get values sName=Request.Form("Name") sEmail=Request.Form("Email") sAddress=Request.Form("Address") sCity=Request.Form("City") sState=Request.Form("State") sZip=Request.Form("Zip") sPhone=Request.Form("Phone") sFax=Request.Form("Fax") sMsg=Request.Form("Comment") '/ send email Set objMail=server.CreateObject("CDONTS.Newmail") With objMail .From=Trim(sEmail) .To=msEMAIL_TO .Subject="Web Site Inquiry" .BodyFormat=1 .MailFormat=1 .Body="The following message has been submitted to the mchenryarchitecture.com website: " & vbcrlf & vbcrlf & _ "Name: " & Trim(sName) & vbcrlf & _ "Email: " & Trim(sEmail) & vbcrlf & _ "Address: " & Trim(sAddress) & vbcrlf & _ "City: " & Trim(sCity) & vbcrlf & _ "State: " & Trim(sState) & vbcrlf & _ "Zip: " & Trim(sZip) & vbcrlf & _ "Phone: " & Trim(sPhone) & vbcrlf & _ "Fax: " & Trim(sFax) & vbcrlf & vbcrlf & _ "----------------------------" & vbcrlf & _ Trim(sMsg) & vbcrlf & _ "----------------------------" On Error Resume Next .Send If Err.number<>0 Then bErr=True sErr=Err.Description Else Response.Redirect "/thanks.htm" Response.Flush Response.End End If End With Set objMail=Nothing End If %>

Our Office
McHenry Architecture is located in Market Square, Portsmouth, New Hampshire. Please feel free to contact us if you need directions from your specific location.

4 Market Street
Portsmouth, NH 03801

T. 603.430.0274
P. 603.430.0247

E. info@mchenryarchitecture.com

" onSubmit="return(validateForm());"> <% If bErr=True Then %>

Unable to send email. Please try again. Error: <%=sErr%>

<% End If %>

*Name:
*Email:
Address:
City:
State:
Zip:
*Phone:
Fax:
Message:

*Required Fields