<%
function Checkin(s) 
s=trim(s) 
s=replace(s," ","&amp;nbsp;") 
s=replace(s,"'","&amp;#39;") 
s=replace(s,"""","&amp;quot;") 
s=replace(s,"&lt;","&amp;lt;") 
s=replace(s,"&gt;","&amp;gt;") 
Checkin=s 
end function 
function CheckAdmin1
	if Session("IsAdmin")<>true or session("IsGroup")<>"super" then response.redirect "error.asp"
end function
function CheckAdmin2
	if Session("IsAdmin")<>true or (session("IsGroup")<>"super" and session("IsGroup")<>"standard") then response.redirect "error.asp"
end function
%>