<%
	function getUserID(cookie)
		getUserID = left(cookie, instr(cookie, "|") - 1)
	end function
	
	function getUserType(cookie)
		getUserType = mid(cookie, instr(cookie, "|") + 1, 10)
	end function
  
	function getUserName(ID)
  %>
  <!--#include file="sql_connect.asp"-->
  <%
		s = "SELECT strUserName From tblUser WHERE UserID = " & ID    
		set rst = cn.execute(s)
		if not rst.eof then
			getUserName = rst("strUserName")
		else
			getUserName = "Unknown"
		end if
		rst.close
	end function
	
	function swapIt(x)
		if x="#D3D7DF" then
     		x="#E2E4E8"
		else
			x="#D3D7DF"
		end if
		swapIt = x
	end function

	function fixquote(val)
		val = replace(val, Chr(34), "'")
		fixquote = replace(val, "'", "''")
	end function
%>