For your 2nd Question...
dim iCount
dim iStringLen
dim iInString
dim sString
iCount = 0
sString = "ja4k;j98h.u2sk2;h844di;odbg"
For iStringLen = 1 to len(sString)
'the Len() function calculates the length of the string.
InString = Instr(iStringLen , sString,";")
'the Instr() function finds the first occurance of ; starting at iStringLen, but counts from the beginnig of the string.
sString= right(sString,len(sString)-iInString)
'the characters that have already been checked must be discarded
If iInString <> 0 Then
icount = icount + 1
End If
Next
response.write icount