<% ' Create a command object. This object serves to run our queries Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString = "Provider=SQLOLEDB.1;Data Source=;User ID=parallax;PWD=Enigma!;database=parallaxit;" objConn.Open dim sSQLcount, objRScount sSQLcount = "UPDATE Svisits SET counter = counter + 1" Set objRScount = Server.CreateObject("ADODB.RecordSet") objRScount.Open sSQLcount,objConn Dim objRSvisits, number sSQLvisits = "SELECT * FROM Svisits" Set objRSvisits = Server.CreateObject("ADODB.RecordSet") objRSvisits.Open sSQLvisits,objConn number=objRSvisits("counter") objRSvisits.Close objConn.Close set objConn = nothing %>

Slate in Design is the world's finest wall fountain manufacturer, pioneering the wall fountain you see today since 1995.

All of our products are built with the highest quality materials available. Our standards are second to none.

© 2007 Slate In Design Inc. All rights reserved. All images are property of Slate in Design Ltd.

This site is best viewed at a screen resolution of 1024 x 768 and higher.

 YOU ARE VISITOR # <%=number %>
   Not Logged In::
   <%= Date() %>