me imagino que en alguna variable debes tener el id del pais, o algun campo único que identifique al país, bien, aprovecha esa variable.
Código:
<td><select NAME="Pais" size="1" >
<% Do While Not RP.Eof
If rs("id_pais") = Variable_ID_pais Then %>
<option selected="selected" value="<%=rs("Pais")%>" ><%=PCase(RP("Nombre"))%></option>
<% Else%>
<option value="<%=rs("Pais")%>" ><%=PCase(RP("Nombre"))%></option>
<% End If
RP.MoveNext
Loop %>
</select></td>
De esta forma deberia de funcionar lo que quieres, pero hago un stop para hacer incapie en la observación de Al Zuwaga, y tiene muchisima razón, estas realizando malas practicas de programacion que mas adelante podrian traerte muchos dolores de cabeza....saludos