<% dim UserID,UserName,id UserID=session("UserID") UserName=session("UserName") If UserName<>"" and UserID<>"" Then %>