<%
			DIM myColorsSQL, objRSColors
			myColorsSQL = "SELECT * FROM Colors Where Active = 'Yes'"
			Set objRSColors = Server.CreateObject("ADODB.Recordset")
			objRSColors.Open myColorsSQL, objConn
			
	If objRSColors.EOF Then
			
	Else
			
			Dim strText
			strText				=	objRSColors("Text")
			
			Dim strBodyBG
			strBodyBG				=	objRSColors("BodyBG")
			
			Dim strLink
			strLink				=	objRSColors("Link")
			
			Dim strVLink
			strVLink				=	objRSColors("VLink")
			
			Dim strALink
			strALink				=	objRSColors("ALink")
			
			Dim strBGImage
			strBGImage				=	objRSColors("BGImage")
			
			Dim strUseBGImage
			strUseBGImage			=	objRSColors("UseBGImage")
			
			Dim strPageBG
			
			If strUseBGImage = "Yes" Then
				strPageBG = "background=" & Chr(034) & "images/" & strBGImage & Chr(034)
			Else
				strPageBG = "bgcolor=" & Chr(034) & "#" & strBodyBG & Chr(034)
			End If
			
			Dim strTableHeaderText
			strTableHeaderText	=	objRSColors("TableHeaderText")
			
			Dim strTableBorder
			strTableBorder		=	objRSColors("TableBorder")
			
			Dim strCellBorder
			strCellBorder			=	objRSColors("CellBorder")
			
			Dim strCellBG
			strCellBG				=	objRSColors("CellBG")
			
			Dim strNavBar
			strNavBar				=	objRSColors("NavBar")
			
			Dim strNavHoover
			strNavHoover			=	objRSColors("NavHoover")
			
			Dim strNavText
			strNavText				=	objRSColors("NavText")
			
			Dim strCatsHeader
			strCatsHeader			=	objRSColors("CatsHeader")
			
			Dim strCatsHeaderText
			strCatsHeaderText		=	objRSColors("CatsHeaderText")
			
			Dim strCatsBorder
			strCatsBorder			=	objRSColors("CatsBorder")
			
			Dim strCatsCell
			strCatsCell			=	objRSColors("CatsCell")
			
			Dim strCatsHoover
			strCatsHoover			=	objRSColors("CatsHoover")
						
			Dim strCatsText
			strCatsText			=	objRSColors("CatsText")
			
			Dim strHR
			strHR					=	objRSColors("HR")
			
			Dim strFormBorders
			strFormBorders		=	objRSColors("FormBorders")
			
			Dim strFormBG
			strFormBG				=	objRSColors("FormBG")
			
			Dim strFormText
			strFormText			=	objRSColors("FormText")
			
			Dim strAltRow
			strAltRow				=	objRSColors("AltRow")
			
			Dim strAltRow2
			strAltRow2				=	objRSColors("AltRow2")
			
			objRSColors.Close
			Set objRSColors = Nothing
	End If
			
%>