<%@LANGUAGE="VBSCRIPT"%>
<%
Dim RSACTvenues__MMColParam
RSACTvenues__MMColParam = "State"
if (Request("MM_EmptyValue") <> "") then RSACTvenues__MMColParam = Request("MM_EmptyValue")
%>
<%
set RSACTvenues = Server.CreateObject("ADODB.Recordset")
RSACTvenues.ActiveConnection = MM_shopaholiday_STRING
RSACTvenues.Source = "SELECT * FROM Venue WHERE State = '" + Replace(RSACTvenues__MMColParam, "'", "''") + "' ORDER BY Hotel ASC"
RSACTvenues.CursorType = 0
RSACTvenues.CursorLocation = 2
RSACTvenues.LockType = 3
RSACTvenues.Open()
RSACTvenues_numRows = 0
%>
Shopper Holidays on-line
<![CDATA[
<body bgcolor="#FFFFFF" text="#000000">
</body>
]]>
<%
RSACTvenues.Close()
%>