<!-- #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'"
			selRight = "select p.pagenm, v.varname, v.varvalue from webpage_variables v inner join webpages p on v.pageid = p.pageid where 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" and rs("varname") = "4dcc" then Session("var_4dcc_home") = rs("varvalue")
					if rs("pagenm") = "programs.asp"  and rs("varname") = "4dcc" then Session("var_4dcc_prog") = rs("varvalue")
					if rs("pagenm") = "programs.asp"  and rs("varname") = "feebdec" then Session("var_feebdec_prog") = rs("varvalue")
					if rs("pagenm") = "programs.asp"  and rs("varname") = "feeg3" then Session("var_feeg3_prog") = rs("varvalue")
					if rs("pagenm") = "programs.asp"  and rs("varname") = "feeg5" then Session("var_feeg5_prog") = rs("varvalue")
					if rs("pagenm") = "programs.asp"  and rs("varname") = "feeg10" then Session("var_feeg10_prog") = rs("varvalue")
					if rs("pagenm") = "programs.asp"  and rs("varname") = "feeg2_3" then Session("var_feeg2_3_prog") = rs("varvalue")
					if rs("pagenm") = "programs.asp"  and rs("varname") = "feeg2_5" then Session("var_feeg2_5_prog") = rs("varvalue")
					if rs("pagenm") = "programs.asp"  and rs("varname") = "feeg2_10" then Session("var_feeg2_10_prog") = rs("varvalue")

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

				Session("var_4dcc_home") = ""
				Session("var_4dcc_prog") = ""
				Session("var_feebdec_prog") = ""
				Session("var_feeg3_prog") = ""
				Session("var_feeg5_prog") = ""
				Session("var_feeg10_prog") = ""
				Session("var_feeg2_3_prog") = ""
				Session("var_feeg2_5_prog") = ""
				Session("var_feeg2_10_prog") = ""

			end if
			
			rs.close
	
		'end if
		
	set rs=nothing
	con.close
	set con = nothing
%>