cómo elegir un valor del select x defecto al cargar página según valor recuperado??

[Tarecito]

holas, creo q me rayé con el titulo
tengo una página con un select de Remitentes, allí estoy recuperando en una variable el codigo del Remitente. Lo q quiero hacer es q al cargar la página el select muestre el remitente según el valor de la variable recuperada. Puede ser q la variable no recupere ningun valor, en ese caso se debria dejar con el valor x defecto q es "Selecciona una opción"
Tengo esto:

<SELECT size=1 name=cod_rem>
<OPTION value=0 selected>Selecciona una opción</OPTION>
<%
Dim sql, rs
sql = "Select detalle_rem from Remitente order by detalle_rem"
Set rs = conexion.Execute(sql)
If Not(rs.EOF) then
rs.MoveFirst
Do While Not(rs.EOF)
Response.Write "<option value='"& rs("cod_rem") &"'>"& rs("detalle_rem") &"</option>" & vbcrlf
rs.MoveNext
Loop
End If
rs.close
%>
</SELECT>

alguien q me de una manito por favor... muchas gracias

[u_goldman]

Algo asi:

Código:

Response.Write "<option value='' selected></option>" & vbcrlf
Do While Not(rs.EOF)
  if rs("cod_rem") = variable then
    strSelected = " selected"
  Else
    strSelected = ""   
  End if
  Response.Write "<option value='"& rs("cod_rem") &"'" & strSelected & ">"& rs("detalle_rem") &"</option>" & vbcrlf
rs.MoveNext
Loop

Salu2,

[Tarecito]

lo tengo asi pero no me selecciona nada, la variable si está rcuperando el valor del rs

<SELECT size=1 name=cod_rem>
<% Dim sql, rs, strselected
sql = "Select cod_rem, detalle_rem from TipoRemitente order by detalle_rem"
Set rs = conexion.Execute(sql)
If Not(rs.EOF) then
rs.MoveFirst
Response.Write "<option value=' ' selected></option>" & vbcrlf
Do While Not(rs.EOF)
if rs("cod_rem") = r then
strselected = "selected"
else
strselected = ""
end if
Response.Write "<option value='"& rs("detalle_rem") &"' &"'" & strSelected & ">"& rs("detalle_rem") &"</option>" & vbcrlf
rs.MoveNext
Loop
End If
rs.close
%>
</SELECT>

[u_goldman]

Que valor tiene r y que tipo de dato es tu campo?
Si es entero, hazle el cast correspondiente a la variable

Si rs(campo) = cint(r) entonces...

[Tarecito]

muchas gracias maestro, era x el cint

[u_goldman]

muchas de nadas, pero maestro no anda por aqui desde hace mucho