function valuser()
c = cstr(Request.Cookies("erisauser"))
If Len(c) <= 0 Then c = " |0"
x = Split(c, "|")
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & " DBQ=" & Server.MapPath("/admin/articles.mdb") & ";"
sql = "SELECT * FROM s_table WHERE email='" & x(0) & "' and pass='" & x(1) & "'"
Set rss = Server.CreateObject("ADODB.Recordset")
rss.Open sql,cn
If rss.EOF then
 valuser = 0
Else
 valuser = rss.Fields(4)
 if valuser = 6 or valuser = 7 then
  valuser = 1
 end if
' if rss.Fields(10) = true then
'  valuser = 0
' end if
End If
end function
Response.ExpiresAbsolute = Now() - 1 
Response.AddHeader "Cache-Control", "must-revalidate" 
Response.AddHeader "Cache-Control", "no-cache"