Niente, ho aggirato l'ostacolo inserendo una variabile di sessione all'interno della funzione che mi tenga il valore criptato, altrimenti non so come e non so dove me lo perdeva. Scrivo il codice x conoscenza di tutti:

'======================
'funzione per criptare la password
'======================
intkey = 6
function Cripta(strTesto)
dim ctInd
dim chrAnalisi
dim strTesto2
For ctInd = 1 To Len(strTesto)
chrAnalisi = Mid(strTesto, ctInd, 1)
chrAnalisi = Asc(chrAnalisi) + intKey
chrAnalisi = chrAnalisi Mod 256
strTesto2 = strTesto2 & Chr(chrAnalisi)
Next

'======================
'creo la variabile di sessione in cui inserisco la variabile criptata
'======================

session("strTestoCript")=strTesto2
end function
'======================
'richiamo la funzione inserendo come argomento la stringa da criptare
cripta("stringadacriptare")

'======================
'stampo a video la variabile criptata (oppure eseguo le operazioni necessarie con il valore criptato
response.Write(session("strTestoCript"))