Const a = "klalskjkflaaklsdjalklia"
Dim sPos: sPos = InStr(a, "a")
Dim x: x = 0
Do while sPos>0
x = x + 1
sPos = InStr(sPos+1, a, "a")
Loop
Response.Write x
<%
dim pconter
pconter=0
pstring="hjkhjkhahjkajahahahahahaklha"
for i=1 to len(pstring)
if mid(pstring,i,1)="a" then pconter=pconter+1
next
response.write pconter
%>