<% 'response.write(Request.ServerVariables("HTTP_REFERER")) if InStr(Request.ServerVariables("HTTP_REFERER"), "alliedcementing.com") = 0 then dim fs,fname,Fileobj FilePath=Server.MapPath("visitors/ip_addresses.txt") ' located in the same directory set fs = Server.CreateObject("Scripting.FileSystemObject") if fs.FileExists(FilePath) then set Fileobj = fs.OpenTextFile(FilePath,8,True) Fileobj.WriteLine("IP ADDRESS: "&Request.ServerVariables("REMOTE_ADDR")&vbcrlf&"HOST NAME: "&Request.ServerVariables("REMOTE_HOST")&vbcrlf&"Browser: "&Request.ServerVariables("HTTP_USER_AGENT")&vbcrlf&vbcrlf) 'Fileobj.WriteLine(Request.ServerVariables("HTTP_USER_AGENT")) 'else ' set Fileobjfolder= fs.CreateFolder("/visitors") ' set Fileobj = fs.CreateTextFile("/visitors/ip_addresses.txt") ' Fileobj.WriteLine(Request.ServerVariables("REMOTE_ADDR")) end if 'Fileobj.Close 'set fname=nothing set fs=nothing end if %> Welcome to Allied Cementing Co., LLC - Cementing and Acidizing Services
HOME
ABOUT US
PRODUCTS & SERVICES
LOCATIONS
CONTACT US
Welcome

Allied Cementing Company provides cementing and acidizing services throughout the mid-continent and northeastern regions. We add unique and significant value by:

  • Partnering with you to solve your specific challenges.
  • Giving you more bang for the buck.
  • Offering more locations in our service regions.
  • Responding quickly to your scheduling needs.
  • Providing the most-experienced workforce, averaging 15+ years of service.
  • Protecting your safety and that of our employees.
  • Preserving the environment through well-proven practices.
  • Doing whatever it takes to ensure your business.
Helpful Links | Privacy Policy