<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% ' change to address of your own SMTP server strHost = "mail.contractingva.com" If Request("send") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("varEmail") ' From address Mail.FromName = request.Form("varName") ' optional Mail.AddAddress "customerservice@hyperwaremedia.com" Mail.AddCC "stephen@hyperwaremedia.com" ' message subject Mail.Subject = "Message from website - Contact Page" ' message body Mail.Body = " " & vbCrLf _ & " Response from the contact page on the website:" & vbCrLf _ & " " & vbCrLf _ & " Below is information provided from the contact us form:" & vbCrLf _ & " " & vbCrLf _ & " Name: " & request.Form("varName") & vbCrLf _ & " " & vbCrLf _ & " Email: " & request.Form("varEmail") & vbCrLf _ & " " & vbCrLf _ & " The following is the message: " & request.Form("varMessage") & vbCrLf _ & " " & vbCrLf _ & " End of Message" strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If %> Stephen Thomas Homes -

Contact Us

Our corporate headquarters are located at:

3601 Mayland Court Richmond, VA 23233
Phone: 804.672.6806 - F ax: 804.672.1943

Stephen Thomas Homes encourages all questions regarding our home plans and the areas in which we are currently building. We welcome the opportunity to consult with prospective clients about their custom plans, and build on client-owned property as well as our own lots in various subdivisions.  

We also have a renovations division for those who prefer to update, modify or add on to their existing home. We appreciate your interest in Stephen Thomas Homes, and look forward to hearing from you.