Si el dato se guarda en la base de datos , te recomiendo esto:
Código:
<select name="Mi_Select">
<%
'Si Estas en Access
Dim Conexion
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(./Tu_Base.mdb")
StrSql = "SELECT CampoAChekear FROM Tu_Tabla"
set RS = Server.CreateObject("ADODB.Recordset")
RS.Open strSql, Conexion, 3
IF Variable = RS("CampoAChekear") Then
strSelect = "select" 'Igual
Else
strSelect = "" 'Vacio
End IF
For I = 1 To 200
Response.Write "<option " & strSelect & " value=""" & I & """>" & I & "</option>"
Next
%>
</select>
Fijate si te sirve esto.... fue lo primero que se me ocurrio
