<% PageName = "gigs" %> <% dim l_pp, l_count, rsCount, rsGigs sql = "SELECT count(*) FROM T_GIGS WHERE GIG_DATE >= "& s2sqldate(now()) 'Response.Write sql set rsCount = conn.execute(sql) l_count = s2n(rsCount(0).value) set rsCount = nothing l_pg = s2n(req("l_pg")) if s2n(l_pp) <= 0 then l_pp = 20 if l_pg <= 0 then l_pg = 1 l_pages = round(l_count / l_pp + 0.499999) 'Response.Write l_count & " " & l_pp if l_pages=0 then l_pages=1 if l_pg>l_pages then l_pg=1 sql = "SELECT GIG_ID, GIG_TITLE, GIG_DATE, GIG_MORE_INFO, VENUE_CITY, VENUE_STATE, VENUE_NAME AS GIG_VENUE FROM T_GIGS LEFT JOIN T_VENUE ON GIG_VENUE = VENUE_ID WHERE GIG_DATE >= "& s2sqldate(now()) & " ORDER BY GIG_DATE" 'Response.Write sql set rsGigs = conn.execute(sql) GIG_ID = s2n(Request.QueryString("GIG_ID")) %>
<%dim i i = 0 if not rsGigs.EOF then rsGigs.move((l_pg-1)*l_pp) do while not rsGigs.EOF i = i + 1 if i > l_pp then exit do %> <%rsGigs.movenext()%> <%loop %>
Date & Time Performance Name Venue Click for Details
&l_pg=<%=l_pg%>"><%=FormatDateTime(rsGigs("GIG_DATE").value, 2)%>,
<% Dim IndicatorStr IndicatorStr = FormatDateTime(rsGigs("GIG_DATE").value, 0) Dim IndicatorArr IndicatorArr = Split(IndicatorStr) Dim HourArr HourArr = Split(IndicatorArr(1), ":") %> <%=HourArr(0)%>:<%=HourArr(1)%> <%=IndicatorArr(2)%>
&l_pg=<%=l_pg%>"><%=atrim(rsGigs("GIG_TITLE").value)%> &l_pg=<%=l_pg%>"><%=atrim(rsGigs("GIG_VENUE").value)%> &l_pg=<%=l_pg%>">Click for details
<% if l_pages > 1 then%>
 <%if l_pg -1 => 1 then %>back<%end if%>  <%if l_pg + 1 <= l_pages then%>Next<%end if%>
<%end if%>
<% if GIG_ID <> 0 then sql = "SELECT *,VENUE_NAME as GIG_VENUE_NAME, VENUE_CITY, VENUE_ADDRESS_LINE_2, VENUE_STATE, VENUE_ADDRESS, VENUE_WEBSITE FROM T_GIGS LEFT JOIN T_VENUE ON GIG_VENUE = VENUE_ID WHERE GIG_ID="& GIG_ID set rs = conn.execute(sql) if not rs.eof then%> <%=atrim(rs("GIG_DATE").value) %> <%=atrim(rs("VENUE_CITY").value) %>, <%=atrim(rs("VENUE_STATE").value) %>

Who:
<%=atrim(rs("GIG_TITLE").value) %>
<%=atrim(rs("GIG_DESCRIPTION").value) %>

Where:
<%=atrim(rs("GIG_VENUE_NAME").value) %>
<%=atrim(rs("VENUE_ADDRESS").value) %>
<% if rs("VENUE_ADDRESS_LINE_2").value <> "" then %> <%=atrim(rs("VENUE_ADDRESS_LINE_2").value) %>
<% end if %> <%=atrim(rs("VENUE_CITY").value) %>, <%=atrim(rs("VENUE_STATE").value) %>
<% if rs("VENUE_WEBSITE").value <> "" then %> "><%=atrim(rs("VENUE_WEBSITE").value) %>
<% end if %> <% if rs("VENUE_EMAIL").value <> "" then %> "><%=atrim(rs("VENUE_EMAIL").value) %>
<% end if %> <% if rs("VENUE_DESCRIPTION").value <> "" then %> <%=atrim(rs("VENUE_DESCRIPTION").value) %>
<% end if %>
<%=Replace(atrim(rs("GIG_MORE_INFO").value), "\r\n", "
") %>
<% end if else %>
" border="0">
<%end if%>