<% Option Explicit %> <% Dim objDAL : Set objDAL = new dataAccessObject Dim objFunctions : Set objFunctions = New GeneralFunctionsObject Dim section : section = "shows" Dim subsection : subsection = "" Dim intErrNum Dim strErrDesc Dim strMsg Dim rsEventsCanada, rsEventsUsa, strLocation 'On Error Resume Next Set rsEventsCanada = objDAL.GetShowsAndEvents("Canada") intErrNum = Err.Number strErrDesc = Err.Description 'On Error Goto 0 If intErrNum <> 0 Then objFunctions.HandleErrorEx intErrNum, strErrDesc, "DataAccessLayer.GetShowsAndEvents(Canada)", true End If 'On Error Resume Next Set rsEventsUsa = objDAL.GetShowsAndEvents("USA") intErrNum = Err.Number strErrDesc = Err.Description 'On Error Goto 0 If intErrNum <> 0 Then objFunctions.HandleErrorEx intErrNum, strErrDesc, "DataAccessLayer.GetShowsAndEvents(USA)", true End If %> Rumi Antiques
<% If NOT (rsEventsUsa.BOF AND rsEventsUsa.EOF) Then %> <% Do Until rsEventsUsa.EOF %>
<% If rsEventsUsa("EventImage") <> "" Then %> " border="0" alt="" width="250"> <% End If %>

<%= Replace(rsEventsUsa("EventTitle"),"''","'") %>
<%= Replace(Replace(rsEventsUsa("EventDescription"),"''","'"), chr(10), "
") %>

<% If rsEventsUsa("EventDoc") <> "" Then %>

   " target="_blank">View pdf

<% End If %>

<% rsEventsUsa.MoveNext Loop rsEventsUsa.Close Set rsEventsUsa = Nothing Call objDAL.CloseDBConnection ()%> <% Else %>

No events currently scheduled in Canada or the U.S.A.

<% End If %>