sub + array + error

Har denna lilla sub som skriver ut en listmeny på sidan...

Sub Places(str, str2)
Dim arrPlace, arrPlaceId, arrPlaceName, I

strSql = "SELECT Id, Placename FROM Placetbl WHERE Areaid = " & str2 & " ;"
call selectpost(arrPlace)
  If isarray(arrPlace) Then
  Response.Write "<select name=""Place"" class=""textfield250"">"
    FOR I = 0 TO ubound(arrPlace,2)
    arrPlaceId = arrPlace(0,I)
    arrPlaceName = arrPlace(1,I)
      if not len(str) = 0 then
      if str = arrPlaceId then
      Response.Write "<option value=" & arrPlaceId & " selected>" & arrPlaceName & "</option>"
      else
      Response.Write "<option value=" & arrPlaceId & ">" & arrPlaceName & "</option>"
      end if
      else
      Response.Write "<option value=" & arrPlaceId & ">" & arrPlaceName & "</option>"
      end if
    Next
  Response.Write "</select>"
  Else
  errors = errors & 9
  End If

End Sub

...men jag skulle vilja att om det blir error 9 så ska övrigt innehåll på sidan ej visas förutom ett felmeddelande.
Som det är nu så körs ju all kod ovanför denna sub eftersom error 9 ej har aktiverats förrän subben körs.

Går det att ordna till eller lär jag splitta subben i två delar, en som hämtar posterna och en som visar listmenyn?

Jag splitta den i två delar, blir smidigare så, då kan jag ju också använda listmeny-subben till flera hämtningar. :)