Ahhh... pasa que nombreText es un input text que está en la misma página del script! Por eso no recoge nada, puesto no se ha efectuado ningún submit.
Yo no sé qué hace exactamete tu código ni qué debería hacer, pero veamos si al menos esto funciona:
Código:
<select size="5" name="Tipo" onchange="nombreText.value">
<%
strSQL = "SELECT * FROM Precios"
if Request("nombreText") <> "" then
strSQL = strSQL & " Where Id=" & Request.Form("nombreText")
end if
Set RS = oConn.Execute(strSQL)
while not Rs.EOF
%>
<option value="<%=rs("Id")%>"> <%=rs("Tipo_Producto")%></option>
<%
Rs.movenext
wend
Rs.close
%></select>
Lo que está en rojo es lo que modifiqué. Probalo y comentanos