<!-- #include File = "adovbs.inc"-->
<!-- #include File = "connect.asp"-->

<%
		'if Session("var_4dcc_home") = "" or Session("var_4dcc_prog") = ""  then 
			selRight = "select p.pagenm, v.varvalue from webpage_variables v inner join webpages p on v.pageid = p.pageid where v.varname = '4dcc' and v.display = 'Y' and p.display='Y'"

			rs.open selRight, con, 3,3
		
			if not rs.eof then
				do while not rs.eof
					if rs("pagenm") = "index.asp" then Session("var_4dcc_home") = rs("varvalue")
					if rs("pagenm") = "programs.asp" then Session("var_4dcc_prog") = rs("varvalue")

'					response.write Session("var_4dcc_home")
					rs.movenext
				loop
			else

				Session("var_4dcc_home") = ""
				Session("var_4dcc_prog") = ""
			end if
			
			rs.close
	
		'end if
		
	set rs=nothing
	con.close
	set con = nothing
%>