<%
Dim strTemp
Dim iStrt
Dim intTimeStarted
Dim phaz(10)
Dim p1, p2, p3, p4, p5, p6, p7
Dim y1, y2, y3, y4, y5, y6, y7
Dim o1, o2, o3, o4, o5, o6, o7
Dim intTotal

strTemp = Request("phchoice")
iStrt   = Request("multiple")

If Len(Trim(strTemp)) <> 7 Or Not IsNumeric(strTemp) Then
    Response.Write "*** Not seven numbers or not numeric input - Try again. ***"
Else

    intTimeStarted = Timer()

    ' Characters associated with each #
    phaz(0) = "0000"
    phaz(1) = "1111"
    phaz(2) = "2ABC"
    phaz(3) = "3DEF"
    phaz(4) = "4GHI"
    phaz(5) = "5JKL"
    phaz(6) = "6MNO"
    phaz(7) = "7PRS"
    phaz(8) = "8TUV"
    phaz(9) = "9WXY"

    p1 = Mid(strTemp, 1, 1)
    p2 = Mid(strTemp, 2, 1)
    p3 = Mid(strTemp, 3, 1)
    p4 = Mid(strTemp, 4, 1)
    p5 = Mid(strTemp, 5, 1)
    p6 = Mid(strTemp, 6, 1)
    p7 = Mid(strTemp, 7, 1)

    For y1 = iStrt To 4: If p1 < 2 Then y1 = 4
    For y2 = iStrt To 4: If p2 < 2 Then y2 = 4
    For y3 = iStrt To 4: If p3 < 2 Then y3 = 4
    For y4 = iStrt To 4: If p4 < 2 Then y4 = 4
    For y5 = iStrt To 4: If p5 < 2 Then y5 = 4
    For y6 = iStrt To 4: If p6 < 2 Then y6 = 4
    For y7 = iStrt To 4: If p7 < 2 Then y7 = 4

        o1 = Mid(phaz(p1), y1, 1)
        o2 = Mid(phaz(p2), y2, 1)
        o3 = Mid(phaz(p3), y3, 1)
        o4 = Mid(phaz(p4), y4, 1)
        o5 = Mid(phaz(p5), y5, 1)
        o6 = Mid(phaz(p6), y6, 1)
        o7 = Mid(phaz(p7), y7, 1)

        Response.Write o1 & o2 & o3 & o4 & o5 & o6 & o7 & ", " ' "<br>"
        intTotal = intTotal + 1
    Next '7
    Next '6
    Next '5
    Next '4
    Next '3
    Next '2
    Next '1

    Response.Write "Done!"

    Response.Write "<p>Total records: " & intTotal & " (in " & Timer - intTimeStarted & " seconds)</p>"

End If
%>