forwardtrends — Thu, 27 Feb 2003 18:18:18 +0000

thats exactly what I was looking for - thanks!

Mark Hensler — Thu, 27 Feb 2003 18:03:23 +0000

I'm guessing you want ASP code, because you had a Dim statement.

This isn't tested, but should give you an idea...

<%

Option Explicit


Function CheckValue(strDigits, intPosition)
    ' INPUTS:
    ' strDigits     - string containing 1's and 0's
    ' intPosition   - zero based index
    '
    ' RETURN:
    ' If the digit at the intPosition offset is a 1, function will return TRUE.
    ' If the digit at the intPosition offset is a 0, function will return FALSE.
    ' 
    
    If Len(strDigits) <= intPosition OR intPosition < 0 Then
        CheckValue = TRUE
        Exit Function
    End If
    
    If Mid(strDigits, intPosition, 1) = "1" Then
        CheckValue = TRUE
    Else
        CheckValue = FALSE
    End If
    
End Function


Dim strDigits as String
Dim i as Integer


Response.Write "<html><body><pre>"

strDigits = "0110001011001"

For i=0 to 12
    arrDigits(i) = CheckValue(strDigits, i)
Next

Response.Write "</pre></body></html>"

%>