<%
call ItemUser()

Public Sub ItemUser()
Dim LogVal
LogVal = Session("LogVal")
'Response.Write(LogVal)
select case LogVal
case 1 
           Response.Redirect("gbentries.asp")
case else 
           Response.Redirect("entries.asp")
End select 
End Sub %>