<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "1" if (Request("MM_EmptyValue") <> "") then Recordset1__MMColParam = Request("MM_EmptyValue") %> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_AspEstates_STRING Recordset1.Source = "SELECT fhits FROM Counters WHERE autonum = " + Replace(Recordset1__MMColParam, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <% set Command1 = Server.CreateObject("ADODB.Command") Command1.ActiveConnection = MM_AspEstates_STRING Command1.CommandText = "UPDATE Counters SET fhits = fhits + 1 WHERE autonum =1 " Command1.CommandType = 1 Command1.CommandTimeout = 0 Command1.Prepared = true Command1.Execute() %> Welcome to ASP Estates - The demonstration Data driven Estate Agency website

Cick On Image To Enter Website


PLEASE CLICK ON THE GRAPHIC ABOVE TO ENTER

This is a DataBase Driven Website

This site is designed for IE5 and higher.

Best viewed at 800X600 or higher


<% Recordset1.Close() %>