%@LANGUAGE="VBSCRIPT"%> <% Dim rs1__MMColParam rs1__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then rs1__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs1 Dim rs1_numRows Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.ActiveConnection = MM_conn_oakcanyon_STRING rs1.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs1__MMColParam, "'", "''") + "" rs1.CursorType = 0 rs1.CursorLocation = 2 rs1.LockType = 1 rs1.Open() rs1_numRows = 0 %> <% Dim rs2__MMColParam rs2__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then rs2__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs2 Dim rs2_numRows Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.ActiveConnection = MM_conn_oakcanyon_STRING rs2.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs2__MMColParam, "'", "''") + "" rs2.CursorType = 0 rs2.CursorLocation = 2 rs2.LockType = 1 rs2.Open() rs2_numRows = 0 %> <% Dim rs3__MMColParam rs3__MMColParam = "3" If (Request("MM_EmptyValue") <> "") Then rs3__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs3 Dim rs3_numRows Set rs3 = Server.CreateObject("ADODB.Recordset") rs3.ActiveConnection = MM_conn_oakcanyon_STRING rs3.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs3__MMColParam, "'", "''") + "" rs3.CursorType = 0 rs3.CursorLocation = 2 rs3.LockType = 1 rs3.Open() rs3_numRows = 0 %> <% Dim rs4__MMColParam rs4__MMColParam = "4" If (Request("MM_EmptyValue") <> "") Then rs4__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs4 Dim rs4_numRows Set rs4 = Server.CreateObject("ADODB.Recordset") rs4.ActiveConnection = MM_conn_oakcanyon_STRING rs4.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs4__MMColParam, "'", "''") + "" rs4.CursorType = 0 rs4.CursorLocation = 2 rs4.LockType = 1 rs4.Open() rs4_numRows = 0 %> <% Dim rs5__MMColParam rs5__MMColParam = "5" If (Request("MM_EmptyValue") <> "") Then rs5__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs5 Dim rs5_numRows Set rs5 = Server.CreateObject("ADODB.Recordset") rs5.ActiveConnection = MM_conn_oakcanyon_STRING rs5.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs5__MMColParam, "'", "''") + "" rs5.CursorType = 0 rs5.CursorLocation = 2 rs5.LockType = 1 rs5.Open() rs5_numRows = 0 %> <% Dim rs6__MMColParam rs6__MMColParam = "6" If (Request("MM_EmptyValue") <> "") Then rs6__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs6 Dim rs6_numRows Set rs6 = Server.CreateObject("ADODB.Recordset") rs6.ActiveConnection = MM_conn_oakcanyon_STRING rs6.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs6__MMColParam, "'", "''") + "" rs6.CursorType = 0 rs6.CursorLocation = 2 rs6.LockType = 1 rs6.Open() rs6_numRows = 0 %> <% Dim rs7__MMColParam rs7__MMColParam = "7" If (Request("MM_EmptyValue") <> "") Then rs7__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs7 Dim rs7_numRows Set rs7 = Server.CreateObject("ADODB.Recordset") rs7.ActiveConnection = MM_conn_oakcanyon_STRING rs7.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs7__MMColParam, "'", "''") + "" rs7.CursorType = 0 rs7.CursorLocation = 2 rs7.LockType = 1 rs7.Open() rs7_numRows = 0 %> <% Dim rs8__MMColParam rs8__MMColParam = "8" If (Request("MM_EmptyValue") <> "") Then rs8__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs8 Dim rs8_numRows Set rs8 = Server.CreateObject("ADODB.Recordset") rs8.ActiveConnection = MM_conn_oakcanyon_STRING rs8.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs8__MMColParam, "'", "''") + "" rs8.CursorType = 0 rs8.CursorLocation = 2 rs8.LockType = 1 rs8.Open() rs8_numRows = 0 %> <% Dim rs9__MMColParam rs9__MMColParam = "9" If (Request("MM_EmptyValue") <> "") Then rs9__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs9 Dim rs9_numRows Set rs9 = Server.CreateObject("ADODB.Recordset") rs9.ActiveConnection = MM_conn_oakcanyon_STRING rs9.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs9__MMColParam, "'", "''") + "" rs9.CursorType = 0 rs9.CursorLocation = 2 rs9.LockType = 1 rs9.Open() rs9_numRows = 0 %> <% Dim rs10__MMColParam rs10__MMColParam = "10" If (Request("MM_EmptyValue") <> "") Then rs10__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs10 Dim rs10_numRows Set rs10 = Server.CreateObject("ADODB.Recordset") rs10.ActiveConnection = MM_conn_oakcanyon_STRING rs10.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs10__MMColParam, "'", "''") + "" rs10.CursorType = 0 rs10.CursorLocation = 2 rs10.LockType = 1 rs10.Open() rs10_numRows = 0 %> <% Dim rs11__MMColParam rs11__MMColParam = "11" If (Request("MM_EmptyValue") <> "") Then rs11__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs11 Dim rs11_numRows Set rs11 = Server.CreateObject("ADODB.Recordset") rs11.ActiveConnection = MM_conn_oakcanyon_STRING rs11.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs11__MMColParam, "'", "''") + "" rs11.CursorType = 0 rs11.CursorLocation = 2 rs11.LockType = 1 rs11.Open() rs11_numRows = 0 %> <% Dim rs12__MMColParam rs12__MMColParam = "12" If (Request("MM_EmptyValue") <> "") Then rs12__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs12 Dim rs12_numRows Set rs12 = Server.CreateObject("ADODB.Recordset") rs12.ActiveConnection = MM_conn_oakcanyon_STRING rs12.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs12__MMColParam, "'", "''") + "" rs12.CursorType = 0 rs12.CursorLocation = 2 rs12.LockType = 1 rs12.Open() rs12_numRows = 0 %> <% Dim rs13__MMColParam rs13__MMColParam = "13" If (Request("MM_EmptyValue") <> "") Then rs13__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs13 Dim rs13_numRows Set rs13 = Server.CreateObject("ADODB.Recordset") rs13.ActiveConnection = MM_conn_oakcanyon_STRING rs13.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs13__MMColParam, "'", "''") + "" rs13.CursorType = 0 rs13.CursorLocation = 2 rs13.LockType = 1 rs13.Open() rs13_numRows = 0 %> <% Dim rs14__MMColParam rs14__MMColParam = "14" If (Request("MM_EmptyValue") <> "") Then rs14__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs14 Dim rs14_numRows Set rs14 = Server.CreateObject("ADODB.Recordset") rs14.ActiveConnection = MM_conn_oakcanyon_STRING rs14.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs14__MMColParam, "'", "''") + "" rs14.CursorType = 0 rs14.CursorLocation = 2 rs14.LockType = 1 rs14.Open() rs14_numRows = 0 %> <% Dim rs15__MMColParam rs15__MMColParam = "15" If (Request("MM_EmptyValue") <> "") Then rs15__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs15 Dim rs15_numRows Set rs15 = Server.CreateObject("ADODB.Recordset") rs15.ActiveConnection = MM_conn_oakcanyon_STRING rs15.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs15__MMColParam, "'", "''") + "" rs15.CursorType = 0 rs15.CursorLocation = 2 rs15.LockType = 1 rs15.Open() rs15_numRows = 0 %> <% Dim rs16__MMColParam rs16__MMColParam = "16" If (Request("MM_EmptyValue") <> "") Then rs16__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs16 Dim rs16_numRows Set rs16 = Server.CreateObject("ADODB.Recordset") rs16.ActiveConnection = MM_conn_oakcanyon_STRING rs16.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs16__MMColParam, "'", "''") + "" rs16.CursorType = 0 rs16.CursorLocation = 2 rs16.LockType = 1 rs16.Open() rs16_numRows = 0 %> <% Dim rs17__MMColParam rs17__MMColParam = "17" If (Request("MM_EmptyValue") <> "") Then rs17__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs17 Dim rs17_numRows Set rs17 = Server.CreateObject("ADODB.Recordset") rs17.ActiveConnection = MM_conn_oakcanyon_STRING rs17.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs17__MMColParam, "'", "''") + "" rs17.CursorType = 0 rs17.CursorLocation = 2 rs17.LockType = 1 rs17.Open() rs17_numRows = 0 %> <% Dim rs18__MMColParam rs18__MMColParam = "18" If (Request("MM_EmptyValue") <> "") Then rs18__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs18 Dim rs18_numRows Set rs18 = Server.CreateObject("ADODB.Recordset") rs18.ActiveConnection = MM_conn_oakcanyon_STRING rs18.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs18__MMColParam, "'", "''") + "" rs18.CursorType = 0 rs18.CursorLocation = 2 rs18.LockType = 1 rs18.Open() rs18_numRows = 0 %> <% Dim rs19__MMColParam rs19__MMColParam = "19" If (Request("MM_EmptyValue") <> "") Then rs19__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs19 Dim rs19_numRows Set rs19 = Server.CreateObject("ADODB.Recordset") rs19.ActiveConnection = MM_conn_oakcanyon_STRING rs19.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs19__MMColParam, "'", "''") + "" rs19.CursorType = 0 rs19.CursorLocation = 2 rs19.LockType = 1 rs19.Open() rs19_numRows = 0 %> <% Dim rs20__MMColParam rs20__MMColParam = "20" If (Request("MM_EmptyValue") <> "") Then rs20__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs20 Dim rs20_numRows Set rs20 = Server.CreateObject("ADODB.Recordset") rs20.ActiveConnection = MM_conn_oakcanyon_STRING rs20.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs20__MMColParam, "'", "''") + "" rs20.CursorType = 0 rs20.CursorLocation = 2 rs20.LockType = 1 rs20.Open() rs20_numRows = 0 %> <% Dim rs21__MMColParam rs21__MMColParam = "21" If (Request("MM_EmptyValue") <> "") Then rs21__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs21 Dim rs21_numRows Set rs21 = Server.CreateObject("ADODB.Recordset") rs21.ActiveConnection = MM_conn_oakcanyon_STRING rs21.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs21__MMColParam, "'", "''") + "" rs21.CursorType = 0 rs21.CursorLocation = 2 rs21.LockType = 1 rs21.Open() rs21_numRows = 0 %> <% Dim rs22__MMColParam rs22__MMColParam = "22" If (Request("MM_EmptyValue") <> "") Then rs22__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs22 Dim rs22_numRows Set rs22 = Server.CreateObject("ADODB.Recordset") rs22.ActiveConnection = MM_conn_oakcanyon_STRING rs22.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs22__MMColParam, "'", "''") + "" rs22.CursorType = 0 rs22.CursorLocation = 2 rs22.LockType = 1 rs22.Open() rs22_numRows = 0 %> <% Dim rs23__MMColParam rs23__MMColParam = "23" If (Request("MM_EmptyValue") <> "") Then rs23__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs23 Dim rs23_numRows Set rs23 = Server.CreateObject("ADODB.Recordset") rs23.ActiveConnection = MM_conn_oakcanyon_STRING rs23.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs23__MMColParam, "'", "''") + "" rs23.CursorType = 0 rs23.CursorLocation = 2 rs23.LockType = 1 rs23.Open() rs23_numRows = 0 %> <% Dim rs24__MMColParam rs24__MMColParam = "24" If (Request("MM_EmptyValue") <> "") Then rs24__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rs24 Dim rs24_numRows Set rs24 = Server.CreateObject("ADODB.Recordset") rs24.ActiveConnection = MM_conn_oakcanyon_STRING rs24.Source = "SELECT mapID, mFullimage FROM QueryMapinfo WHERE mapID = " + Replace(rs24__MMColParam, "'", "''") + "" rs24.CursorType = 0 rs24.CursorLocation = 2 rs24.LockType = 1 rs24.Open() rs24_numRows = 0 %>
![]() |
|||||||||||||||||||||||
![]() |
|||||||||||||||||||||||
|
|||||||||||||||||||||||
![]() |
|||||||||||||||||||||||
|
|
|||||||||||||||||||||||
|
|
|||||||||||||||||||||||
| Home
| Lake Allan Henry Properties | Ranches
| Links | Contact ©Copyright J.M. Basinger Companies Inc. | All rights reserved | Website development by Caviness Advertising |
|||||||||||||||||||||||