<%@ LANGUAGE="VBSCRIPT" %>
<%
Option Explicit
Response.Buffer = true
Response.Expires=0
Dim appPath
Dim strUserAgent
Dim strBrowser
Dim strEmailBody
Dim strName
Dim strCompany
Dim strAddress1
Dim strAddress2
Dim strCity
Dim strState
Dim strZip
Dim strPhone
Dim strEmail
Dim boolSolutions
Dim boolServices
Dim boolProcucts
Dim strSolutions
Dim strServices
Dim strProcucts
Dim strAdditionalInfo
call Main
Sub Main()
'***********************************************
GetFormVars
CreateServerObjects
BrowserSniffer
OutPage
Cleanup
End Sub
'***********************************************
Sub GetFormVars()
'***********************************************
' gather form variables
strName = Request.Form("txtName")
strCompany = Request.Form("txtCompany")
strAddress1 = Request.Form("txtAddress1")
strAddress2 = Request.Form("txtAddress2")
strCity = Request.Form("txtCity")
strState = Request.Form("txtState")
strZip = Request.Form("txtZip")
strPhone = Request.Form("txtPhone")
strEmail = Request.Form("txtEmail")
End Sub
'***********************************************
Sub CreateServerObjects()
'***********************************************
' nothing to do
End Sub
'***********************************************
Sub BrowserSniffer()
'***********************************************
strUserAgent = Request.ServerVariables("HTTP_User_Agent")
if inStr(1, strUserAgent, "MSIE") <> 0 then
strBrowser = "MSIE"
else
strBrowser = "Netscape"
end if
End Sub
'***********************************************
Sub OutPage()
'***********************************************
if strName <> "" then
EmailBody
SendMail
Response.Redirect("confirm.htm")
end if
%>
Contact Arbee Associates for Contract Office Furniture and Facilities Services
Please fill out the following form to contact
an associate at Arbee.
