%@LANGUAGE="VBSCRIPT"%> <% Dim rs25__MMColParam rs25__MMColParam = "25" If (Request("MM_EmptyValue") <> "") Then rs25__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs25 Dim rs25_numRows Set rs25 = Server.CreateObject("ADODB.Recordset") rs25.ActiveConnection = MM_conn_oakcanyon_STRING rs25.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs25__MMColParam, "'", "''") + "" rs25.CursorType = 0 rs25.CursorLocation = 2 rs25.LockType = 1 rs25.Open() rs25_numRows = 0 %> <% Dim rs26__MMColParam rs26__MMColParam = "26" If (Request("MM_EmptyValue") <> "") Then rs26__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs26 Dim rs26_numRows Set rs26 = Server.CreateObject("ADODB.Recordset") rs26.ActiveConnection = MM_conn_oakcanyon_STRING rs26.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs26__MMColParam, "'", "''") + "" rs26.CursorType = 0 rs26.CursorLocation = 2 rs26.LockType = 1 rs26.Open() rs26_numRows = 0 %> <% Dim rs27__MMColParam rs27__MMColParam = "27" If (Request("MM_EmptyValue") <> "") Then rs27__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs27 Dim rs27_numRows Set rs27 = Server.CreateObject("ADODB.Recordset") rs27.ActiveConnection = MM_conn_oakcanyon_STRING rs27.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs27__MMColParam, "'", "''") + "" rs27.CursorType = 0 rs27.CursorLocation = 2 rs27.LockType = 1 rs27.Open() rs27_numRows = 0 %> <% Dim rs28__MMColParam rs28__MMColParam = "28" If (Request("MM_EmptyValue") <> "") Then rs28__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs28 Dim rs28_numRows Set rs28 = Server.CreateObject("ADODB.Recordset") rs28.ActiveConnection = MM_conn_oakcanyon_STRING rs28.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs28__MMColParam, "'", "''") + "" rs28.CursorType = 0 rs28.CursorLocation = 2 rs28.LockType = 1 rs28.Open() rs28_numRows = 0 %> <% Dim rs29__MMColParam rs29__MMColParam = "29" If (Request("MM_EmptyValue") <> "") Then rs29__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs29 Dim rs29_numRows Set rs29 = Server.CreateObject("ADODB.Recordset") rs29.ActiveConnection = MM_conn_oakcanyon_STRING rs29.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs29__MMColParam, "'", "''") + "" rs29.CursorType = 0 rs29.CursorLocation = 2 rs29.LockType = 1 rs29.Open() rs29_numRows = 0 %> <% Dim rs30__MMColParam rs30__MMColParam = "30" If (Request("MM_EmptyValue") <> "") Then rs30__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs30 Dim rs30_numRows Set rs30 = Server.CreateObject("ADODB.Recordset") rs30.ActiveConnection = MM_conn_oakcanyon_STRING rs30.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs30__MMColParam, "'", "''") + "" rs30.CursorType = 0 rs30.CursorLocation = 2 rs30.LockType = 1 rs30.Open() rs30_numRows = 0 %> <% Dim rs31__MMColParam rs31__MMColParam = "31" If (Request("MM_EmptyValue") <> "") Then rs31__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs31 Dim rs31_numRows Set rs31 = Server.CreateObject("ADODB.Recordset") rs31.ActiveConnection = MM_conn_oakcanyon_STRING rs31.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs31__MMColParam, "'", "''") + "" rs31.CursorType = 0 rs31.CursorLocation = 2 rs31.LockType = 1 rs31.Open() rs31_numRows = 0 %> <% Dim rs32__MMColParam rs32__MMColParam = "32" If (Request("MM_EmptyValue") <> "") Then rs32__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs32 Dim rs32_numRows Set rs32 = Server.CreateObject("ADODB.Recordset") rs32.ActiveConnection = MM_conn_oakcanyon_STRING rs32.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs32__MMColParam, "'", "''") + "" rs32.CursorType = 0 rs32.CursorLocation = 2 rs32.LockType = 1 rs32.Open() rs32_numRows = 0 %> <% Dim rs33__MMColParam rs33__MMColParam = "33" If (Request("MM_EmptyValue") <> "") Then rs33__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs33 Dim rs33_numRows Set rs33 = Server.CreateObject("ADODB.Recordset") rs33.ActiveConnection = MM_conn_oakcanyon_STRING rs33.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs33__MMColParam, "'", "''") + "" rs33.CursorType = 0 rs33.CursorLocation = 2 rs33.LockType = 1 rs33.Open() rs33_numRows = 0 %> <% Dim rs34__MMColParam rs34__MMColParam = "34" If (Request("MM_EmptyValue") <> "") Then rs34__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs34 Dim rs34_numRows Set rs34 = Server.CreateObject("ADODB.Recordset") rs34.ActiveConnection = MM_conn_oakcanyon_STRING rs34.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs34__MMColParam, "'", "''") + "" rs34.CursorType = 0 rs34.CursorLocation = 2 rs34.LockType = 1 rs34.Open() rs34_numRows = 0 %> <% Dim rs35__MMColParam rs35__MMColParam = "35" If (Request("MM_EmptyValue") <> "") Then rs35__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs35 Dim rs35_numRows Set rs35 = Server.CreateObject("ADODB.Recordset") rs35.ActiveConnection = MM_conn_oakcanyon_STRING rs35.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs35__MMColParam, "'", "''") + "" rs35.CursorType = 0 rs35.CursorLocation = 2 rs35.LockType = 1 rs35.Open() rs35_numRows = 0 %> <% Dim rs36__MMColParam rs36__MMColParam = "36" If (Request("MM_EmptyValue") <> "") Then rs36__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs36 Dim rs36_numRows Set rs36 = Server.CreateObject("ADODB.Recordset") rs36.ActiveConnection = MM_conn_oakcanyon_STRING rs36.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs36__MMColParam, "'", "''") + "" rs36.CursorType = 0 rs36.CursorLocation = 2 rs36.LockType = 1 rs36.Open() rs36_numRows = 0 %> <% Dim rs37__MMColParam rs37__MMColParam = "37" If (Request("MM_EmptyValue") <> "") Then rs37__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs37 Dim rs37_numRows Set rs37 = Server.CreateObject("ADODB.Recordset") rs37.ActiveConnection = MM_conn_oakcanyon_STRING rs37.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs37__MMColParam, "'", "''") + "" rs37.CursorType = 0 rs37.CursorLocation = 2 rs37.LockType = 1 rs37.Open() rs37_numRows = 0 %> <% Dim rs38__MMColParam rs38__MMColParam = "38" If (Request("MM_EmptyValue") <> "") Then rs38__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs38 Dim rs38_numRows Set rs38 = Server.CreateObject("ADODB.Recordset") rs38.ActiveConnection = MM_conn_oakcanyon_STRING rs38.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs38__MMColParam, "'", "''") + "" rs38.CursorType = 0 rs38.CursorLocation = 2 rs38.LockType = 1 rs38.Open() rs38_numRows = 0 %> <% Dim rs39__MMColParam rs39__MMColParam = "39" If (Request("MM_EmptyValue") <> "") Then rs39__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs39 Dim rs39_numRows Set rs39 = Server.CreateObject("ADODB.Recordset") rs39.ActiveConnection = MM_conn_oakcanyon_STRING rs39.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs39__MMColParam, "'", "''") + "" rs39.CursorType = 0 rs39.CursorLocation = 2 rs39.LockType = 1 rs39.Open() rs39_numRows = 0 %> <% Dim rs40__MMColParam rs40__MMColParam = "40" If (Request("MM_EmptyValue") <> "") Then rs40__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs40 Dim rs40_numRows Set rs40 = Server.CreateObject("ADODB.Recordset") rs40.ActiveConnection = MM_conn_oakcanyon_STRING rs40.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs40__MMColParam, "'", "''") + "" rs40.CursorType = 0 rs40.CursorLocation = 2 rs40.LockType = 1 rs40.Open() rs40_numRows = 0 %> <% Dim rs41__MMColParam rs41__MMColParam = "41" If (Request("MM_EmptyValue") <> "") Then rs41__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs41 Dim rs41_numRows Set rs41 = Server.CreateObject("ADODB.Recordset") rs41.ActiveConnection = MM_conn_oakcanyon_STRING rs41.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs41__MMColParam, "'", "''") + "" rs41.CursorType = 0 rs41.CursorLocation = 2 rs41.LockType = 1 rs41.Open() rs41_numRows = 0 %> <% Dim rs42__MMColParam rs42__MMColParam = "42" If (Request("MM_EmptyValue") <> "") Then rs42__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs42 Dim rs42_numRows Set rs42 = Server.CreateObject("ADODB.Recordset") rs42.ActiveConnection = MM_conn_oakcanyon_STRING rs42.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs42__MMColParam, "'", "''") + "" rs42.CursorType = 0 rs42.CursorLocation = 2 rs42.LockType = 1 rs42.Open() rs42_numRows = 0 %> <% Dim rs43__MMColParam rs43__MMColParam = "43" If (Request("MM_EmptyValue") <> "") Then rs43__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs43 Dim rs43_numRows Set rs43 = Server.CreateObject("ADODB.Recordset") rs43.ActiveConnection = MM_conn_oakcanyon_STRING rs43.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs43__MMColParam, "'", "''") + "" rs43.CursorType = 0 rs43.CursorLocation = 2 rs43.LockType = 1 rs43.Open() rs43_numRows = 0 %> <% Dim rs44__MMColParam rs44__MMColParam = "44" If (Request("MM_EmptyValue") <> "") Then rs44__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs44 Dim rs44_numRows Set rs44 = Server.CreateObject("ADODB.Recordset") rs44.ActiveConnection = MM_conn_oakcanyon_STRING rs44.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs44__MMColParam, "'", "''") + "" rs44.CursorType = 0 rs44.CursorLocation = 2 rs44.LockType = 1 rs44.Open() rs44_numRows = 0 %> <% Dim rs45__MMColParam rs45__MMColParam = "45" If (Request("MM_EmptyValue") <> "") Then rs45__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs45 Dim rs45_numRows Set rs45 = Server.CreateObject("ADODB.Recordset") rs45.ActiveConnection = MM_conn_oakcanyon_STRING rs45.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs45__MMColParam, "'", "''") + "" rs45.CursorType = 0 rs45.CursorLocation = 2 rs45.LockType = 1 rs45.Open() rs45_numRows = 0 %> <% Dim rs46__MMColParam rs46__MMColParam = "46" If (Request("MM_EmptyValue") <> "") Then rs46__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs46 Dim rs46_numRows Set rs46 = Server.CreateObject("ADODB.Recordset") rs46.ActiveConnection = MM_conn_oakcanyon_STRING rs46.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs46__MMColParam, "'", "''") + "" rs46.CursorType = 0 rs46.CursorLocation = 2 rs46.LockType = 1 rs46.Open() rs46_numRows = 0 %> <% Dim rs47__MMColParam rs47__MMColParam = "47" If (Request("MM_EmptyValue") <> "") Then rs47__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs47 Dim rs47_numRows Set rs47 = Server.CreateObject("ADODB.Recordset") rs47.ActiveConnection = MM_conn_oakcanyon_STRING rs47.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs47__MMColParam, "'", "''") + "" rs47.CursorType = 0 rs47.CursorLocation = 2 rs47.LockType = 1 rs47.Open() rs47_numRows = 0 %> <% Dim rs48__MMColParam rs48__MMColParam = "48" If (Request("MM_EmptyValue") <> "") Then rs48__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs48 Dim rs48_numRows Set rs48 = Server.CreateObject("ADODB.Recordset") rs48.ActiveConnection = MM_conn_oakcanyon_STRING rs48.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs48__MMColParam, "'", "''") + "" rs48.CursorType = 0 rs48.CursorLocation = 2 rs48.LockType = 1 rs48.Open() rs48_numRows = 0 %> <% Dim rs49__MMColParam rs49__MMColParam = "49" If (Request("MM_EmptyValue") <> "") Then rs49__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs49 Dim rs49_numRows Set rs49 = Server.CreateObject("ADODB.Recordset") rs49.ActiveConnection = MM_conn_oakcanyon_STRING rs49.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs49__MMColParam, "'", "''") + "" rs49.CursorType = 0 rs49.CursorLocation = 2 rs49.LockType = 1 rs49.Open() rs49_numRows = 0 %> <% Dim rs50__MMColParam rs50__MMColParam = "50" If (Request("MM_EmptyValue") <> "") Then rs50__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs50 Dim rs50_numRows Set rs50 = Server.CreateObject("ADODB.Recordset") rs50.ActiveConnection = MM_conn_oakcanyon_STRING rs50.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs50__MMColParam, "'", "''") + "" rs50.CursorType = 0 rs50.CursorLocation = 2 rs50.LockType = 1 rs50.Open() rs50_numRows = 0 %> <% Dim rs51__MMColParam rs51__MMColParam = "51" If (Request("MM_EmptyValue") <> "") Then rs51__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs51 Dim rs51_numRows Set rs51 = Server.CreateObject("ADODB.Recordset") rs51.ActiveConnection = MM_conn_oakcanyon_STRING rs51.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs51__MMColParam, "'", "''") + "" rs51.CursorType = 0 rs51.CursorLocation = 2 rs51.LockType = 1 rs51.Open() rs51_numRows = 0 %> <% Dim rs52__MMColParam rs52__MMColParam = "52" If (Request("MM_EmptyValue") <> "") Then rs52__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs52 Dim rs52_numRows Set rs52 = Server.CreateObject("ADODB.Recordset") rs52.ActiveConnection = MM_conn_oakcanyon_STRING rs52.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs52__MMColParam, "'", "''") + "" rs52.CursorType = 0 rs52.CursorLocation = 2 rs52.LockType = 1 rs52.Open() rs52_numRows = 0 %> <% Dim rs53__MMColParam rs53__MMColParam = "53" If (Request("MM_EmptyValue") <> "") Then rs53__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs53 Dim rs53_numRows Set rs53 = Server.CreateObject("ADODB.Recordset") rs53.ActiveConnection = MM_conn_oakcanyon_STRING rs53.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs53__MMColParam, "'", "''") + "" rs53.CursorType = 0 rs53.CursorLocation = 2 rs53.LockType = 1 rs53.Open() rs53_numRows = 0 %> <% Dim rs54__MMColParam rs54__MMColParam = "54" If (Request("MM_EmptyValue") <> "") Then rs54__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs54 Dim rs54_numRows Set rs54 = Server.CreateObject("ADODB.Recordset") rs54.ActiveConnection = MM_conn_oakcanyon_STRING rs54.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs54__MMColParam, "'", "''") + "" rs54.CursorType = 0 rs54.CursorLocation = 2 rs54.LockType = 1 rs54.Open() rs54_numRows = 0 %>
![]() |
||||||||||||||||||||||||||
![]() |
||||||||||||||||||||||||||
|
||||||||||||||||||||||||||
![]() |
||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||
| Home
| Lake Allan Henry Properties | Ranches
| Links | Contact ©Copyright J.M. Basinger Companies Inc. | All rights reserved | Website development by Caviness Advertising |
||||||||||||||||||||||||||