<%@LANGUAGE="VBSCRIPT"%> <% Set Counter = Server.CreateObject("ADODB.Recordset") Counter.ActiveConnection = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/ehhosbac-db.mdb") Counter.Source = "SELECT * FROM Counter" Counter.Open() %> <% Hits = Counter("Hits") + 1 ID = Counter("ID") set conn=Server.CreateObject("ADODB.Connection") conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/database/ehhosbac-db.mdb") sql= "UPDATE Counter SET Hits = " & Hits & " WHERE ID = " & ID conn.Execute sql conn.Close %> E.H. Hosbach Plumbing Service, Inc.



E. H. Hosbach Plumbing Service, Inc.

License Numbers

CF - C058003 - State Certified
Medical Gas
LP Gas
Backflow Prevention
1331 S. Dixie Hwy W. #8A
Pompano Beach, FL 33060
Phone: (954) 781-1989
Fax: (954) 781-7564
 
You are visitor number:
<%=Hits%>