<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Email info request
<% 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 %>
Please use the form below to email us anytime.
All inquiries are usually responded to by the next business day.

First Name:
Last Name:
Company:
State:
Website:
Type of Business:
Phone Number:
Email:
When is space needed?
Apx Sq Ft needed
Comments:
<% End If %>