Originariamente inviato da lufo5
ricorsiva de chè? è una funzione con uno stupidissimo cilo for-next
quando metti il nome della funzione *a destra* del segno di uguale, asp potrebbe essere tentato di richiamare (in maniera ricorsiva) la funzione stessa...

forse non dara' errore, ma io comunque userei una variabile d'appoggio, cosi' (passerei anche la lunghezza, tanto per farla un po' piu' flessibile...)

codice:
Function creaKey(vLungh) 

  Dim sWork, xx
  Randomize
  For xx = 1 To vLungh
    sWork = sWork & Chr(Int((126 - 48 + 1) * Rnd + 48))
  Next 
  CreaKey = sWork

End Function