%@LANGUAGE="VBSCRIPT"%> <% Dim Events__MMColParam Events__MMColParam = "Viking" if (Request("MM_EmptyValue") <> "") then Events__MMColParam = Request("MM_EmptyValue") %> <% set Events = Server.CreateObject("ADODB.Recordset") Events.ActiveConnection = MM_conn_VA_Events_STRING Events.Source = "SELECT Ev_ID, Ev_Name, Ev_City, Ev_State, Ev_Country, Ev_Start_Date, Ev_End_Date FROM Events WHERE Ev_Type = '" + Replace(Events__MMColParam, "'", "''") + "'" Events.CursorType = 0 Events.CursorLocation = 2 Events.LockType = 3 Events.Open() Events_numRows = 0 %>
![]() |
|
||||||||||||||
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
|
Jewelry
| Prints
| Paintings |
Clothes
| Cards
| Glass
| Ceramics
|
![]() |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||