<%@ LANGUAGE="VBScript" %> <% Dim sEventDate,sEventDateShort Set cnBB = Server.CreateObject("ADODB.Connection") cnBB.Open Application("DBConnect") sqlUpcoming="sp_UpcomingEvents 0" Set rsUPE = Server.CreateObject("ADODB.Recordset") rsUPE.Open sqlUpcoming, cnBB, adOpenStatic sqlTV = "sp_TvSched" Set rsTV = Server.CreateObject("ADODB.Recordset") rsTV.Open sqlTV, cnBB, adOpenStatic EvDescSQL="sp_UpcomingEvents 1" set rsEvDesc=CnBB.Execute(EvDescSQL) %> Ballroom Boxing

 

 

 

 

 

Site Under Construction

Please Check Back Soon

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

<% rsTV.Close Set rsTV = nothing rsUPE.close set rsUPE=nothing cnBB.Close Set cnBB = nothing %> 1