Build Masters Portable Buildings

CONTACT INFORMATION FORM

Please fill out the form and click SUBMIT.
Only the name field is required, but please give us enough to contact you.

<% 'DEFINE THE FIELD AND CDO OBJECTS Dim strTo, strFrom, strSubject, strBody, strName Dim objAltMail 'READ IN THE VALUES strTo = "Build Masters " strFrom = "WEB FORM " strSubject = "Buildmastersllc.com FORM Generated E-mail" strName = Request.Form("name") 'DEFINE THE E-MAIL BODY strBody = "NAME: " strBody = strBody & Request.Form("name") strBody = strBody & vbCrLf strBody = strBody & "PHONE: " strBody = strBody & Request.Form("phone") strBody = strBody & vbCrLf strBody = strBody & "E-MAIL: " strBody = strBody & Request.Form("mail") strBody = strBody & vbCrLf strBody = strBody & "ADDRESS: " strBody = strBody & Request.Form("address") strBody = strBody & vbCrLf strBody = strBody & " " strBody = strBody & Request.Form("city") strBody = strBody & ", " strBody = strBody & Request.Form("state") strBody = strBody & " " strBody = strBody & Request.Form("zip") strBody = strBody & " " strBody = strBody & Request.Form("country") strBody = strBody & vbCrLf strBody = strBody & vbCrLf strBody = strBody & Request.Form("message") If strName = "" Then %>


		   Name:
		  Phone:
		 E-mail:
		Address:
		   City:
		  State:  Postal Code:
		Country:
		Message:

<% Else 'CREATE INSTANCE OF NEWMAIL OBJECT Set objAltMail = Server.CreateObject("CDONTS.NewMail") 'DEFINE THE OBJECT FIELDS objAltMail.From = strFrom objAltMail.To = strTo objAltMail.Subject = strSubject objAltMail.Body = strBody 'SEND THE E-MAIL, SHOW SEND COMPLETE, AND CLEAR THE OBJECT objAltMail.Send Response.Write "Thank You, the following information has been sent to www.buildmastersllc.com." Response.Write strBody Set objAltMail = Nothing End If %>