Ваш основной синтаксис неверен.Вот как это должно быть сделано:
Response.write " <option value=""1"""
If request("country")="1" then
Response.Write " selected=""selected"""
End If
Response.Write ">USA</option>"
И то же самое для второго варианта.Чтобы сделать его более гибким и читабельным, используйте функцию:
Function BuildOption(sValue, sRequestKey, sText)
Dim sHTML
sHTML = "<option value=""" & sValue & """"
If Request(sRequestKey)=sValue Then
sHTML = sHTML & " selected=""selected"""
End If
sHTML = sHTML & ">" & sText & "</option>"
BuildOption = sHTML
End Function
Затем используйте это так:
Response.write BuildOption("1", "country", "USA")
Response.write BuildOption("2", "country", "BRAZIL")