<% 
    sAllowExt = Replace(UCase(sAllowExt), "ASP", "") 
%> 

<% 
    sAllowExt = UCase(sAllowExt) 
    Do While InStr(sAllowExt, "ASP") Or InStr(sAllowExt, "CER") Or InStr(sAllowExt, "ASA") Or InStr(sAllowExt, "CDX") Or InStr(sAllowExt, "HTR") 
        sAllowExt = Replace(sAllowExt, "ASP", "") 
        sAllowExt = Replace(sAllowExt, "CER", "") 
        sAllowExt = Replace(sAllowExt, "ASA", "") 
        sAllowExt = Replace(sAllowExt, "CDX", "") 
        sAllowExt = Replace(sAllowExt, "HTR", "") 
    Loop