Function IsStringInResponseBody(oResponse, strTarget)
   Dim oRegExp, oMatches
   Dim strBody, bFoundTarget

   bFoundTarget = False

   strBody = oResponse.Body
      
   Set oRegExp = New RegExp
   oRegExp.Pattern = strTarget
   ' run the search
     Set oMatches = oRegExp.Execute(strBody)
     
     If (oMatches.Count >  0 ) Then
        bFoundTarget = True   
     End If
     IsStringInResponseBody = bFoundTarget
End Function

 Set oRequest = Test.CreateRequest
        oRequest.Path = "/search.aspx"
        oRequest.Verb = "POST"
        oRequest.HTTPVersion = "HTTP/1.0"
        oRequest.EncodeBody = False
        set oHeaders = oRequest.Headers
        oHeaders.RemoveAll
        oHeaders.Add "Accept", "image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-icq, application/x-shockwave-flash, */*"
        oHeaders.Add "Referer", "http://www.amt-group.inf/search.aspx"
        oHeaders.Add "Accept-Language", "ru"
        oHeaders.Add "Content-Type", "application/x-www-form-urlencoded"
        oHeaders.Add "UA-CPU", "x86"
        oHeaders.Add "Pragma", "no-cache"
        oHeaders.Add "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322)"
        oHeaders.Add "Host", "www.host.ru"
        
        oRequest.Body = "Ah_Query=&SearchBlock%3Ah_IsSearch=&SearchBl"
        oRequest.Body = oRequest.Body + "ock%3Ah_How=&SearchBlock%3Ah_Where=&SearchBlock%3A"
        oRequest.Body = oRequest.Body + "h_InResult=&SearchBlock%3Ah_InFiles=&SearchBlock%3"
        oRequest.Body = oRequest.Body + "AtxtQuery=amt&SearchBlock%3AddHow=and&SearchBlock%"
        oRequest.Body = oRequest.Body + "3AddWhere=0&SearchBlock%3AchbInFiles=on&SearchBloc"
        oRequest.Body = oRequest.Body + "k%3AbtnSearch.x=17&SearchBlock%3AbtnSearch.y=6"
        Set oResponse = oConnection.Send(oRequest)