<% SQL = "select * from webcfg where selected = 'Y'" Set objConn = CreateObject("ADODB.Connection") objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & session("DBS")) Set rs = objConn.Execute(SQL) currschema = rs("id") schematitle = rs("schematitle") Borders = rs("Borders") pagebgd = rs("pagebgd") tblbgd = rs("tblbgd") txtcolor = rs("txtcolor") bgimage = rs("bgimage") image1 = rs("image1") image2 = rs("image2") cssfile = rs("cssfile") ' do while not rs.EOF ' rs.MoveNext ' Loop rs.close set rs = Nothing objConn.close set objConn = Nothing scrollertext = "" SQL = "select * from sscnews" Set objConn = CreateObject("ADODB.Connection") objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & session("DBS")) Set rs = objConn.Execute(SQL) do while not rs.EOF scrollertext = scrollertext & rs("pntext") scrollertext = scrollertext & "
" rs.MoveNext Loop rs.close set rs = Nothing objConn.close set objConn = Nothing %> Welcome to SuperdogSportsCenter.com
    Schedule of Events
Back a Month
 Thursday, September 09, 2010
Forward a Month
Day View
Week View
Month View
Year View
Goto Today
Event View:
Dachsund Specialty
Date:Saturday, March 20, 2010
Title:Dachsund Specialty
Description:
Times:ALL DAY EVENT

August 2010
 SMTWTFS
W1234567
W891011121314
W15161718192021
W22232425262728
W293031    

September 2010
 SMTWTFS
W   1234
W567891011
W12131415161718
W19202122232425
W2627282930  

October 2010
 SMTWTFS
W     12
W3456789
W10111213141516
W17181920212223
W24252627282930
W31      
 
Powered By: aspWebCalendar from Full Revolution, Inc.
Copyright © 2004-2010 ~ Super Dog Sports Center ~ All Rights Reserved