%@LANGUAGE="VBSCRIPT"%> <% Dim rsAds__MMColParam rsAds__MMColParam = "Business" If (Request("MM_EmptyValue") <> "") Then rsAds__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsAds Dim rsAds_numRows Set rsAds = Server.CreateObject("ADODB.Recordset") rsAds.ActiveConnection = MM_connrol_STRING rsAds.Source = "SELECT * FROM tblDynamicAds WHERE ContentSection = '" + Replace(rsAds__MMColParam, "'", "''") + "'" rsAds.CursorType = 0 rsAds.CursorLocation = 2 rsAds.LockType = 1 rsAds.Open() rsAds_numRows = 0 %>
![]() Ross-on-Wye Community Website
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||