[thelist] Part II: ASP, FSO, Replace

[Michele Foster]

Awesome .. Thanks again Darren,

Here's the revised code .. a couple minor things I had to change from what
you wrote (* lines).

   if inStr(str_Citizenship, ",") > 0 then
      arrCitizen = split(str_Citizenship, ",")
*      for i = 0 to ubound(arrCitizen)
         strCombo = replace(strCombo, "<option value=""" & arrCitizen(i) &
""">","<option selected value=""" & arrCitizen(i) & """>")
      next
   else
*      strCombo = replace(strCombo, "<option value=""" & str_Citizenship &
""">","<option selected value=""" & str_Citizenship & """>")
   end if


Josh,

Thanks for your suggestion .. it was giving me an error ...
Response object, ASP 0106 (0x80020005) An unhandled data type was
encountered.

Which I think had to do with needing to specify the split character ","
instead of the default ";" .. but I didn't test it thoroughly as Darren's
suggestion is more complete.

Thanks again folks .. now to clean up and comment my code .. and build the
rest of the pages. ;)


Mich

----- Original Message -----
From: "darren" <darren at web-bitch.co.uk>

> how about splitting the string you get from the database on the separator
> and loop through the array doing the replace on each value??
>
> something like:
>
>    if inStr(str_Citizenship, ",") > 0 then
>       arrCitizen = split(str_Citizenship, ",")
>       for i = 0 to ubound(arrCitizen, 0)
>          strCombo = replace(strCombo, "<option value=""" & arrCitizen(i) &
""">",
>             "<option selected value=""" & arrCitizen(i) & """>")
>       next
>    else
>       strCombo = replace(strCombo, "<option value=""" & arrCitizen(i) &
""">",
>          "<option selected value=""" & arrCitizen(i) & """>")
>    end if