Function ResponseCookies(Key,Value,Expires)

 Response.Cookies(Key) = ""&Value&""
 Response.Cookies(Key).Path = DomainPath
 if int(Expires)>0 then Response.Cookies(Key).Expires = date+Expires

End Function

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

  If request("auto_login")="1" then
   Expires=9999
  Else
   Expires=0
  End If
 
  ResponseCookies "UserID",rs("nId"),Expires
  ResponseCookies "sUName",rs("sUName"),Expires
  ResponseCookies "sUPass",rs("sUPass"),Expires
  ResponseCookies "auto_login",request("auto_login"),Expires

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

sUName=Request.Cookies("sUName")
 sUPass=Request.Cookies("sUPass")
 auto_login=Request.Cookies("auto_login")