<%
If request.QueryString("submitted") then
Dim objMsg, strName, strTo, strCc, strToRecipient, strBody, strHost, strError
Dim strTitle, strStation, strEmail, strComment, strBcc, strSubject
strFirstName = Trim(Request.Form("FirstName"))
strLastName = Trim(Request.Form("LastName"))
strCompany = Trim(Request.Form("Company"))
strState = Trim(Request.Form("State"))
strWebsite = Trim(Request.Form("website"))
strTypeofBusiness = Trim(Request.Form("Typeofbusiness"))
strPhoneNumber = Trim(Request.Form("phonenumber"))
stremailaddress = Trim(Request.Form("emailaddress"))
strWhen = Trim(Request.Form("When"))
strApxSqFt = Trim(Request.Form("ApxSqFt"))
strComments = Trim(Request.Form("comments"))
CurrentTimeOffset = DateAdd("h", 2, now)
strBody = "The following message was submitted at " & CurrentTimeOffset & " from GlasgowRealty.com:" & chr(13) & chr(10) & chr(13) & chr(10)
strBody = strBody & "NAME: " & strFirstName & " " & strLastName & chr(13) & chr(10)
strBody = strBody & "COMPANY: " & strCompany & chr(13) & chr(10)
strBody = strBody & "STATE: " & strState & chr(13) & chr(10)
strBody = strBody & "WEBSITE: " & strWebsite & chr(13) & chr(10)
strBody = strBody & "TYPE OF BUSINESS: " & strTypeofBusiness & chr(13) & chr(10)
strBody = strBody & "PHONE: " & strPhoneNumber & chr(13) & chr(10)
strBody = strBody & "EMAIL: " & strEmailAddress & chr(13) & chr(10)
strBody = strBody & "WHEN SPACE IS NEEDED BY: " & strWhen & chr(13) & chr(10)
strBody = strBody & "SQUARE FOOTAGE NEED: " & strApxSqFt & chr(13) & chr(10)
strBody = strBody & "COMMENTS: " & strComments & chr(13) & chr(10)
strTo = "andy@glasgowrealty.com"
strSubject = "Glasgow Realty: WEB INQUIRY"
Set objMsg= Server.CreateObject("CDO.Message")
With objMsg
.From = "inquiry@glasgowrealty.com"
.To = strTo
.Subject = strSubject
.textBody = strBody
.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
.Send
End With
Set objMsg = Nothing
%>
Thank You <%=strFirstName%>! Your email has been sent.
A representative will get in touch with you soon.
Click here to return to Glasgow Realty!
<% Else %>