There are a number of ways to generate useful, random passwords. While these methods will generate variable-length, highly randomized passwords, there is another approach, and quick and dirty approach that requires just a few lines of code!

<%
    For i = 1 To 7 '7 will be the password length
        Randomize
        j = 1 * Rnd
        j = CInt(j)
        If j = 1 Then
            sPassword = sPassword & Chr(CInt((25 * Rnd) + 65))
        Else
            sPassword = sPassword & CInt(9 * Rnd)
        End If
        For j = 1 To 100
            'slow it down so that randomize has time to re-seed
        Next
    Next
%>