<%@ Language=VBScript %>
<%
'
'String2.asp
'
'Author: Nick Heap
'Date: August 10 2003
'Version: 1.0
'Description: A Dynamic web page using ASP
'
'Declare variables
Dim strAlphabet, iPosition
'Instantiates variables
strAlphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
iPosition = CInt(InStr(strAlphabet, "JKL"))
%>
Strings
<%= "The extracted characters are " & Mid(strAlphabet,iPosition,3) %>