<%
  meldimisnimi="juku"
  meldimisparool="kala"
  function meldimissobivus
   if session("sisenetud")=1 then
     meldimissobivus=true
     exit function
   else
     if request.form("kasutajanimi")=meldimisnimi and _
        request.form("parool")=meldimisparool then
       session("sisenetud")=1
       meldimissobivus=true
       exit function
     end if
   end if
   meldimissobivus=false
  end function

  sub meldimine
    if meldimissobivus()=false then
      response.redirect("meldimine_avaleht.asp")
      response.end
    end if
  end sub

  meldimine
%>