Case else CALL no() End Select SUB getmain() Response.Write "
" & title & "
" & _ "
" & _ "
" & _ "
" & _ "" & _ "" Response.Write "
" Response.Write "
" Response.Write "" end SUB SUB no() Response.Write "
Sorry you don't have access to this application
" end SUB %>