About Us | Contact Us | Services | Listings | Loan Calculator | Price Calculator | Free Market Analysis | Area Schools | Area Information




<% '# Set the values of some variable imageStyle = "s3" serverPath = "//plugins.websitecomplete.com/wsc_images" protocol = "http:" If ucase(Request.ServerVariables("HTTPS")) = "ON" Then protocol="https:" DataSource = "FileDSN=c:\winnt\system32\dsn\plugins.dsn" Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.Open DataSource '# grab all their records to see what they have to offer sqlQuery = "SELECT current_value FROM hitcounter WHERE pluginID = 'bzO2E92s'" Set oRst = DataConn.Execute(sqlQuery) if not oRst.eof then counterNumber = CLng(oRst("current_value")) if Session("Counted") = "" then counterNumber = counterNumber + 1 '#update the current value in the database sqlQuery = "UPDATE hitcounter SET current_value = " & counterNumber & " WHERE pluginID = 'bzO2E92s';" DataConn.Execute(sqlQuery) DataConn.close Set DataConn = nothing Session("Counted") = true end if counterNumber = "0000000000" & counterNumber counterNumber = right(counterNumber,8) counterDisplay = "" howLong = len(counterNumber) for i=1 to howLong thisNumber = mid(counterNumber,i,1) counterDisplay = counterDisplay & "" next counterDisplay = "" & counterDisplay & "" counterDisplay = "" & counterDisplay & "" else counterDisplay = "" end if Set oRst = nothing %><%= counterDisplay %>