Hi!
This ASP code portion works ,but as u can see that there is repeatition of the same code thrice.The blocked portion is where I tried to modularise the code but ended in an error 0x800A03EA.Please help me if u can
<%
dim strLocale,intPipePos,sLocName,strLocales

strLocale=trim(rs.fields("Locales"))
if ucase(strLocale)="ALL" then
    strLocales="ENG|KOR|JAP"
else
    intPipePos=instr(strlocale,"|")
    if intPipePos>0 then
      strLocale=left(strLocale,intPipePos-1)
      'FindLocale(strLocale)
       rs1.Open "SELECT * FROM Locale WHERE LocaleID='" & strLocale & "'",Con,adOpenKeyset ,adLockReadOnly ,adCmdText
      sLocName=ucase(rs1.Fields("LocaleName"))

      select case sLocName
        case "ENGLISH"
             strLocales="ENG"
        case "KOREAN"
             strLocales= "KOR"
        case "JAPANESE"
             strLocales= "JAP"
      end select
      rs1.close
      strLocales=strLocales & "|"
      strLocale=right(strLocale,(len(strLocale)-intPipePos))
      'FindLocale(strLocale)
      rs1.Open "SELECT * FROM Locale WHERE LocaleID='" & strLocale & "'",Con,adOpenKeyset ,adLockReadOnly ,adCmdText
      sLocName=ucase(rs1.Fields("LocaleName"))

      select case sLocName
        case "ENGLISH"
             strLocales= strLocales & "ENG"
        case "KOREAN"
             strLocales= strLocales & "KOR"
        case "JAPANESE"
             strLocales= strLocales & "JAP"
      end select
      rs1.close
    else
      'FindLocale(strLocale)
      rs1.Open "SELECT * FROM Locale WHERE LocaleID='" & strLocale & "'",Con,adOpenKeyset ,adLockReadOnly ,adCmdText
      sLocName=ucase(rs1.Fields("LocaleName"))

      select case sLocName
        case "ENGLISH"
             strLocales="ENG"
        case "KOREAN"
             strLocales= "KOR"
        case "JAPANESE"
             strLocales= "JAP"
      end select
      rs1.close
    end if
end if
'sub FindLocale(byval sLocaleID)
'Response.Write (sLocaleID)
'rs1.Open "SELECT * FROM Locale WHERE LocaleID='" & sLocaleID & "'",Con,adOpenKeyset ,adLockReadOnly ,adCmdText
'sLocName=ucase(rs1.Fields("LocaleName"))
'if strLocales<>"" then
 'strLocales=strlocales & "|"
'end if
'select case sLocName
'case "ENGLISH"
 ' strLocales=strLocales & "ENG"
'case "KOREAN"
  ' strLocales=strLocales & "KOR"
'case "JAPANESE"
     'strLocales=strLocales & "JAP"
'end select
'rs1.close
'end sub
%>
Thanks in advance
Regards
Radhika