<%
'index page to authenticate for login and password
'''''Method to set cookie''''''
'param name cookie
'param key cookie key
'param value cookie value
Sub setCookie(name,key,value)
Response.Cookies(name)(key)=value
Response.Cookies(name).Expires = DateAdd("m",1,Date)
End Sub
'''''End Method''''''
'''''function to get cookie''''''
'param name cookie
'param key cookie key
function getCookie(name,key)
getCookie = request.cookies(name)(key)
End function
'''''''''End function''''''
if(request.cookies("user").haskeys) Then 'if cookie exists then
session("id") = CStr(getCookie("user","id")) 'load id
end If
if(not(request.cookies("user").haskeys)) Then 'if cookie not exists
setCookie "user","id",CStr("") 'create cookie
end if
if session("id") <> "" then 'if session id contains some value or user name that it got from cookie
response.clear
response.redirect("adm_passin.asp") 'redirect to password authentication page
response.end
end if
%>
Pumpkin FIAT - Login
<%
Dim error
error = request.querystring("error")
if error="id" Then
response.write ""
response.write " "
Response.write("User id does not exists")
response.write ""
elseif error="pass" Then
response.write ""
response.write " "
response.write("Password Incorrect")
response.write ""
end if
%>
