*** foo_allmusic.vbs
--- foo_allmusic.bak
***************
*** 29,50 ****
                      Raw = Request(URL)

                      Set REr = New RegExp
!                     REr.Pattern = "<div id=""review"">[\s\S]*?author"">([\S ]+)</p>[\s\S]*?text"">([\s\S ]+?)</p>"

                      If REr.Test(Raw) = True Then
                          Set R = REr.Execute(Raw)
                          WScript.Echo RemTag(R(0).SubMatches(1)) & vbCrLf & vbCrLf & "Review " & R(0).SubMatches(0)
                          Set R = Nothing
                      Else
!                         Crawl = 1
                      End If

                      Set REr = Nothing
!
!                     If Not Crawl = 1 Then
!                         Exit For
!                     End If
!
                  End If
              End If
          Next
--- 29,46 ----
                      Raw = Request(URL)

                      Set REr = New RegExp
!                     REr.Pattern = "<div id=""review"">[\s\S]*?author"">([\S ]+)</p>[\s\S]*?text"">([\s\S ]+)</p>"

                      If REr.Test(Raw) = True Then
                          Set R = REr.Execute(Raw)
                          WScript.Echo RemTag(R(0).SubMatches(1)) & vbCrLf & vbCrLf & "Review " & R(0).SubMatches(0)
                          Set R = Nothing
                      Else
!                         WScript.Echo "No review was found for: """ & ALBUM & """ by " & match.SubMatches(1)
                      End If

                      Set REr = Nothing
!                     Exit For
                  End If
              End If
          Next