delete cookies
Hi,
Thanks for the response. I tried your way but probably i didn't understand it so it didn't work. However, I tried another way and it seems to work fine. The cookie gets deleted. Before what happened was that it only recognised the first username and password entered and if i entered a different username and passwork then it didn't recognise it.
I am not sure that this is what my team leader meant but this is what i did and it seems to work fine:
DIM ACCESS
DIM U_ID
DIM U_PWORD
set rsACCESS = Server.CreateObject("ADODB.Recordset")
rsACCESS.ActiveConnection = MM_connDUclassified_STRING
rsACCESS.Source = "SELECT U_ID,U_PASSWORD, ACCESS FROM USERS WHERE U_ID = '" + CStr(Request.Form("Username")) + "'"
rsACCESS.CursorType = 0
rsACCESS.CursorLocation = 2
rsACCESS.LockType = 3
rsACCESS.Open()
rsACCESS_numRows = 0
access=(rsACCESS.fields.item ("ACCESS").value)
u_id=(rsACCESS.fields.item ("u_id").value)
U_PWORD=(rsACCESS.fields.item ("u_password").value)
'---create user cookie
if ACCESS="user" then
Response.Cookies("adminCOOKIE").Path = "/"
Response.Cookies("adminCOOKIE")=""
Response.Cookies("adminCOOKIE").Expires=date ()-100
Response.Cookies("UserCookie")("Username") =Request.Form("UserName")
Response.Cookies ("UserCookie")("Password")=Request.Form ("Password")
Response.Cookies("UserCookie").Path = "/"
Response.Cookies ("UserCookie").expires = DateAdd("d", Date, 14)
Response.Write(Request.Cookies("UserCookie")("User name"))
Response.Write (Request.Cookies("UserCookie")("Password"))
'---end user cookie
else
'create admin cookie
Response.Cookies("UserCOOKIE")=""
Response.Cookies("UserCookie").Path = "/"
Response.Cookies("UserCookie").Expires=date ()-100
Response.Cookies("adminCOOKIE")("ADMINusername") = Request.Form("UserName")
Response.Cookies ("adminCOOKIE")("ADMINPassword")=Request.Form ("Password")
Response.Cookies("adminCOOKIE").Path = "/"
Response.Cookies ("adminCOOKIE").expires =dateadd("m",20,now())
Response.Write(Request.Cookies("adminCOOKIE")("ADM INusername"))
Response.Write (Request.Cookies("adminCOOKIE")("ADMINPassword"))
'---end admin cookie
' end if
end if
rsACCESS.close
%>
|
