U.S. Zip Code check (modifiable for international) - ASP

Original - asp Code <% function chkZip(zip) dim isZip zip = trim(zip) set rgObj = new regexp rgObj.global = true rgObj.ignoreCase = true rgObj.pattern = "(\d{5}$|\d{5}-\d{4}$)" isZip = rgObj.test(zip) set rgObj = nothing if len(zip) <> 5 and len(zip) <> 10 then isZip = false if isZip then chkZip = true else chkZip = false end if end function %>

<%
function chkZip(zip)
 
dim isZip
zip = trim(zip)
 
set rgObj = new regexp
rgObj.global = true
rgObj.ignoreCase = true
rgObj.pattern = "(\d{5}$|\d{5}-\d{4}$)"
isZip =  rgObj.test(zip)
set rgObj = nothing
 
if len(zip) <> 5 and len(zip) <> 10 then isZip = false
 
if isZip then
    chkZip = true
else
  chkZip = false
end if
 
end function
%>