<%
select case request("action")
case "login"
dim user,email
user = request.form("user")
email = request.form("email")
response.cookies("user") = user
response.cookies("user").expires = date +365
response.cookies("email") = email
response.cookies("email").expires = date +365
response.write ""
end select
%>
Untitled