<%@LANGUAGE="VBSCRIPT"%> <% Dim RSregions__MMColParam RSregions__MMColParam = "1" if (Request.QueryString("region") <> "") then RSregions__MMColParam = Request.QueryString("region") %> <% set RSregions = Server.CreateObject("ADODB.Recordset") RSregions.ActiveConnection = MM_caliet_STRING RSregions.Source = "SELECT * FROM region WHERE regionid = " + Replace(RSregions__MMColParam, "'", "''") + "" RSregions.CursorType = 0 RSregions.CursorLocation = 2 RSregions.LockType = 3 RSregions.Open() RSregions_numRows = 0 %> <% Dim RsActivities__MMColParam RsActivities__MMColParam = "1" if (Request("MM_EmptyValue") <> "") then RsActivities__MMColParam = Request("MM_EmptyValue") %> <% set RsActivities = Server.CreateObject("ADODB.Recordset") RsActivities.ActiveConnection = MM_ConActivities_STRING RsActivities.Source = "SELECT * FROM TblActivities WHERE IDfishing = '" + Replace(RsActivities__MMColParam, "'", "''") + "' ORDER BY ActivityName ASC" RsActivities.CursorType = 0 RsActivities.CursorLocation = 2 RsActivities.LockType = 3 RsActivities.Open() RsActivities_numRows = 0 %> <% Dim RsCurrentRegion__MMColParam RsCurrentRegion__MMColParam = "1" if (Request.QueryString("region") <> "") then RsCurrentRegion__MMColParam = Request.QueryString("region") %> <% set RsCurrentRegion = Server.CreateObject("ADODB.Recordset") RsCurrentRegion.ActiveConnection = MM_caliet_STRING RsCurrentRegion.Source = "SELECT * FROM region WHERE regionid = " + Replace(RsCurrentRegion__MMColParam, "'", "''") + "" RsCurrentRegion.CursorType = 0 RsCurrentRegion.CursorLocation = 2 RsCurrentRegion.LockType = 3 RsCurrentRegion.Open() RsCurrentRegion_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 RsActivities_numRows = RsActivities_numRows + Repeat1__numRows %> Fly fishing Scotland, Perthshire river tay fishing, ghillie fish
<% RSregions.Close() %> <% RsActivities.Close() %> <% RsCurrentRegion.Close() %>