Mostrar espacios en un select desde db

[Uefor]

Lo cierto es que el select es un poco más lioso que ese pero al efecto...

Aquí lo transquivo:

Código:

<select name=idBuzo SIZE="1" CLASS="fc_dateHover" 
onChange="location.href(incl_buzos.asp?idBuzo=' + formulario.idBuzo.options[formulario.idBuzo.selectedIndex].value)">
              
            <%
Set Conn = Server.CreateObject("ADODB.Connection")
espacios = Trim(Replace(Request.Form("Nombre"), "'", "''"))
Conn.Open = MM_cnx_salidas_STRING

 
SQL_socio="SELECT Nombre, idBuzo FROM Socios ORDER BY Nombre ASC"
set RS_socio=createobject("ADODB.Recordset")
RS_socio.open SQL_socio,conn

do while not RS_socio.eof
Nombre = RS_socio("Nombre")
idBuzo = RS_socio("idBuzo")
p = request.querystring("Nombre")
if p <> "" then
	if p = Nombre then
	response.write  "<option value="&idBuzo&" selected>"&Nombre&"</option>"
	elseif p <> Nombre then
	response.write  "<option value="&idBuzo&">"&Nombre&"</option>"
	end if
else
response.write  "<option value="&idBuzo&">"&Nombre&"</option>"
end if

RS_socio.movenext
	loop
RS_socio.close
Set RS_socio = Nothing
%>
          </select>