Double G Protective Coatings

Welcome To Double G Protective Coatings Website

"Remember, quality is not expensive, it is priceless!"

Double G Protective Coatings is located in Shullsburg, WI., serving the Midwestern region. We apply polyurea and other
elastomer coatings in wide variety of applications, both external and internal. Our objective is to provide the highest quality
product and service, while remaining competitive in the various industries we serve.

Some of the more common uses of our product are in marine, agricultural flooring and roofing, secondary containments
and industrial floorings, roofing and walls. We also offer a complete range of light industrial and residential services
covering cement, basement and wall surfaces, decks and other special applications requiring a long lasting and durable
protective coating.

Our coatings are superior to competitive products in many different ways. For instance, our polyurea products are incredibly
strong yet resilient and elastic. Additionally, polyurea resists most chemicals and corrosive conditions.

When it comes to applying a cost-effective product to almost any surface, nothing can match the practicality, durability and
longevity of our protective coatings.

Before you make the final decision to remodel or replace any surface, interior or exterior, call us to see how our products
can give you superior quality for a competitive price. We guarantee the value of our products and service.

Terms & Condition | Privacy Policy

<% dim rs Set rs = Server.CreateObject("ADODB.Recordset") dim cmd set cmd = server.createobject("adodb.command") strConnect = "Driver={Microsoft Access Driver (*.MDB)}; DBQ="& Server.MapPath("hitcounter.mdb") cmd.activeconnection = "Driver={Microsoft Access Driver (*.MDB)}; DBQ=" & Server.MapPath("hitcounter.mdb") strCmd = "insert into tblHitLog values(#" & now & "#,'" & request.servervariables("REMOTE_ADDR") & "','" & request.servervariables("HTTP_USER_AGENT") & "')" cmd.CommandText = strCmd cmd.Execute set cmd = Nothing rs.open "select hitPadding, distinctPadding from tblPadding", strConnect theHitPadding = rs("hitPadding") theDistinctPadding = rs("distinctPadding") rs.close rs.open "select count(*) as theCount from tblHitLog where ipAddress not in(select ipAddress from tblExemptIPS)", strConnect theNumHits = rs("thecount") + theHitPadding rs.close rs.open "select count(*) as distinctHits from(select distinct(ipAddress) from tblHitLog where ipAddress not in(select ipAddress from tblExemptIPS))", strConnect theDistinctHits = rs("distinctHits") + theDistinctPadding response.write "

" & theDistinctHits & " / " & theNumHits & "

" rs.close set rs = Nothing %>