Extracting Values From A Variable

<%

Sub LoadThePage(strPageText, strInputURL)
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", strInputURL, False
objXMLHTTP.Send
strPageText = objXMLHTTP.responseText
Set objXMLHTTP = Nothing
End Sub
 
Sub PullStrings(strSearchString, strEndStringChars)
'This entire sub routine could be on two lines, but for illustration purposes it is broken up
 Dim strStartPos
 Dim strEndPos
 Dim strLength
 
 strStartPos = 0
 strEndPos = 0
 strLength = 0
 strStartPos = instr(strPageText,strSearchString)
 strEndPos = instr(strStartPos, strPageText, strEndStringChars)
 strLength = strEndPos - strStartPos
 'Pluck the string out of the page text
 response.write mid(strPageText,strStartPos,strLength) & "<br/>"

 
End Sub
 
'************* Mainline Code ****************
Dim strPageText
Dim strSearchString 
Dim strEndStringChars
Dim strInputURL
strInputURL = "http://neotrix/pages/page.htm"
LoadThePage strPageText, strInputURL

for i = 1 to 20
PullStrings "[mycode]", "[/mycode]"
next
'************* END Mainline Code ************

%>
[/quote]
Now the problem i'm facing, is that it only matches for the first [mycode] and [/mycode] in the page that i have read, how ever there are 20 areas in that page of such text, but this matches for the first line only, how can i make it extract all the parts of page that begin and end with [code] and

<%
Sub LoadThePage(strPageText, strInputURL)
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", strInputURL, False
objXMLHTTP.Send
strPageText = objXMLHTTP.responseText
Set objXMLHTTP = Nothing
End Sub
 
Sub PullStrings(strSearchString, strEndStringChars)
'This entire sub routine could be on two lines, but for illustration purposes it is broken up
 strLength = 0
 strStartPos = instr(strStartPos, strPageText,strSearchString)
 strEndPos = instr(strStartPos, strPageText, strEndStringChars)
 strLength = strEndPos - strStartPos
 'Pluck the string out of the page text
 response.write mid(strPageText,strStartPos,strLength) & "<br/>"
 strStartPos = strEndPos + 1
 
 
End Sub
 
'************* Mainline Code ****************
Dim strPageText
Dim strSearchString 
Dim strEndStringChars
Dim strInputURL
strInputURL = "http://neotrix/pages/page.htm"
LoadThePage strPageText, strInputURL
 Dim strStartPos
 Dim strEndPos
 Dim strLength
 
 strStartPos = 0
 strEndPos = 0
for i = 1 to 20
PullStrings "[mycode]", "[/mycode]"
next
'************* END Mainline Code ************

%>

 

Microsoft VBScript runtime error '800a0005' 
Invalid procedure call or argument: 'instr' 
/testing/pakmuziq.asp, line 19