como mantengo un valor despues de una recarga de la pagina

[virla]

Ok entiendo pero eso lo estube biendo pero no tengo nada que le pueda estar pasando solo los valores que deberia, pero aca te dejo el codigo para que lo veas mas o menos hace una llamada a una function que es la que decodifica la clave

Código:

set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/xxxxxx.mdb")
if Request.querystring("salir")="" then
 myUser=Request.querystring("username")
 myPass =EncodeStr(Request.querystring("password"))
 sql = "SELECT * FROM TBL_USUARIOS WHERE USU_USERNAME='" & LCase(myUser) & "' and USU_USERPWD='" & LCase(myPass) & "'"
 set rs = Con.Execute(sql)
  If rs.BOF And rs.EOF Then
   rs.Close
   Set rs = Nothing
   Response.Write("2")
  else
   if rs("USU_USERNAME")=myUser and rs("USU_USERPWD")=myPass then
    Session("usuario")=rs("USU_USERNAME")
    Response.Write("1")
   else
    Response.Write("0")
   end if
  end if
else
 myUser=Request.querystring("username")
 sql = "SELECT * FROM TBL_USUARIOS WHERE USU_USERNAME='" & LCase(myUser) & "'"
 set rs = Con.Execute(sql)
 Session("usuario") = ""
 Session.Abandon
 Response.Write("1")
end if