Ciao a tutti, ho trovato questa funzione x criptare i dati che metto in un file di inclusione funzioni.asp

<%
'======================
'funzione per criptare la password
'======================
intkey = 48
function Cripta(stringa)
dim ctInd
dim chrAnalisi
dim stringa2
For ctInd = 1 To Len(stringa)
chrAnalisi = Mid(stringa, ctInd, 1)
chrAnalisi = Asc(chrAnalisi) + intKey
chrAnalisi = chrAnalisi Mod 256
stringa2 = stringa2 & Chr(chrAnalisi)
Next

end function
%>

Nella pagina che mi deve aggiungere le pwd al database,come faccio per richiamare questa funzione e x fare in modo di scrivermi la pwd criptata nel db?

Io avevo pensato di fare così, ma non mi scrive niente:

'=========
'raccolgo la stringa da criptare
StringaPWD= request("password")

'=========
'chiamo la funzione con parametro la pwd raccolta ora
call Cripta(StringaPWD)

'=========
'faccio l'addnew
rs("password")= stringa2 'stringa2 è la stringa criptata che mi restituisce la funzione precedente


Come posso fare?