<% 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
 February 2012
Forward a Month
Day View
Week View
Month View
Year View
Goto Today
SundayMondayTuesdayWednesdayThursdayFridaySaturday
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
26  
27  
28  
29  
 
Powered By: aspWebCalendar from Full Revolution, Inc.
Copyright © 2004-2012 ~ Super Dog Sports Center ~ All Rights Reserved