<% Function NewShow(DeactivateDate) If Cdate(now) <= Cdate(DeactivateDate) Then Response.Write "" End If End Function %> ThemClones.com Official Website



SHOWS


<% cnOpen Dim rsShows Set rsShows = Server.CreateObject("ADODB.Recordset") rsShows.Open "SELECT * FROM SHOWS ORDER BY ShowDate Desc", cnConnect Do While NOT rsShows.EOF%> <%rsShows.MoveNext Loop cnClose%>
<%=rsShows("ImagePath")%>
   <%=rsShows("ShowName")%> <%=NewShow(Cdate(rsShows("ShowDate"))+1)%>
Date: <%=FormatDateTime(rsShows("ShowDate"),1)%>, <%=FormatDateTime(rsShows("ShowDate"),4)%> hrs
Venue:  <%=rsShows("ShowVenue")%>
     
     

Shows Year 2003 Shows Year 2002 Shows Year 2001

 

© 2000-2006 themclones.com Contact