Sorry, en mi mensaje anterior me falto un apostrofe.
<%
dim liga
liga = "<a href='10.30.180.1/Listados.aspx?emp_prod=" & RS.Fields.Item("COMMERCIAL_NAME").Value
liga = liga & "&estado=" & poblacion & "' target='_blank'>Ver en Portal</a> "
if RS("STATUS_CONTRATO") = "Produccion" then
response.Write (liga)
end if
%>
Saludos