Código fuente de 'Cuenta subcadenas en cadena 2.asp'
<html>
<head>
<title>Cuenta subcadenas en cadena 2 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Cuenta subcadenas en cadena 2</font></b>
<body style="font-family: Arial; font-size: 11pt">
</p>
<b>Ejemplo:</b> Cadena="Asp es divertido"<br>
<b>Cadena de búsqueda:</b>"sp"
<b><br>Resultado:</b>
<%
dim Contador
dim LongCadena
dim EnCadena
dim sCadena
Contador = 0
sCadena = "Asp es divertido"
For LongCadena = 1 to len(sCadena)
'the Len() function calculates the length of the string. In this case Len = 10
EnCadena = Instr(LongCadena , sCadena,"sp")
'the Instr() function finds the first occurance of the letter s, starting at LongCadena, but counts from the beginnig of the string.
sCadena= right(sCadena,len(sCadena)-EnCadena)
'the characters that have already been checked must be discarded
If EnCadena <> 0 Then
Contador = Contador + 1
End If
Next
response.write Contador
%>
</body></html>