These lines are as follows and works OK for me:
<select name="strSubscription">
<option<% if (lcase(strSubscription)="0") then Response.Write(" selected") %> value="0"><% =fLang(strLangAdmin_Config_Features00340) %></option>
<option<% if (lcase(strSubscription)="1") then Response.Write(" selected") %> value="1"><% =fLang(strLangAdmin_Config_Features00350) %></option>
<option<% if (lcase(strSubscription)="2") then Response.Write(" selected") %> value="2"><% =fLang(strLangAdmin_Config_Features00360) %></option>
<option<% if (lcase(strSubscription)="3") then Response.Write(" selected") %> value="3"><% =fLang(strLangAdmin_Config_Features00370) %></option>
<option<% if (lcase(strSubscription)="4") then Response.Write(" selected") %> value="4"><% =fLang(strLangAdmin_Config_Features00380) %></option>
</select>
Think PinkPost v40b03 Patches<