<%=titulo%>

<%@LANGUAGE="VBSCRIPT"%> <% Dim tipo_proyecto Dim tipo_proyecto_numRows Set tipo_proyecto = Server.CreateObject("ADODB.Recordset") tipo_proyecto.ActiveConnection = MM_conn_STRING tipo_proyecto.Source = "SELECT * FROM TIPO_PRODUCTO WHERE OCULTAR=0 ORDER BY ORDEN ASC" tipo_proyecto.CursorType = 3 tipo_proyecto.CursorLocation = 2 tipo_proyecto.LockType = 1 tipo_proyecto.Open() tipo_proyecto_numRows = 0 %> <% Dim proyectos__MMColParam proyectos__MMColParam = "1" If (Request.QueryString("id") <> "") Then proyectos__MMColParam = Request.QueryString("id") End If %> <% Dim proyectos Dim proyectos_numRows Set proyectos = Server.CreateObject("ADODB.Recordset") proyectos.ActiveConnection = MM_conn_STRING proyectos.Source = "SELECT a.*, b.* FROM PRODUCTOS as a, PROVINCIA as b WHERE ID_PRODUCTO = " + Replace(proyectos__MMColParam, "'", "''") + " AND a.ID_PROVINCIA=b.ID_PROVINCIA ORDER BY ORDEN_LISTA ASC" proyectos.CursorType = 0 proyectos.CursorLocation = 2 proyectos.LockType = 1 proyectos.Open() proyectos_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 tipo_proyecto_numRows = tipo_proyecto_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 proyectos_numRows = proyectos_numRows + Repeat2__numRows %> <% tipo_proyecto_total = tipo_proyecto.RecordCount dif_y=15 total_tipos=tipo_proyecto_total altura=230-(dif_y*total_tipos) %> <%=titulo%>

<% While ((Repeat1__numRows <> 0) AND (NOT tipo_proyecto.EOF)) %> <% if (tipo_proyecto("ID_TIPO_PRODUCTO")=proyectos("ID_TIPO_PRODUCTO")) then estilo_aplica="Arial_11_menu_on" else estilo_aplica="Arial_11_texto_menu" end if %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 tipo_proyecto.MoveNext() Wend %>

" class="<%=estilo_aplica%>"><%=(tipo_proyecto.Fields.Item("TIPO_PRODUCTO_ESP").Value)%>

<% total_minis=proyectos("NUM_FOTOS") quinamini=int(Request.QueryString("f")) ' i=1 While (i<=total_minis) ' if (i=quinamini) then %>

<% else %> &f=<%=i%>">

<% end if %>

<% i=i+1 Wend %> <% if (total_minis>1) then %>

<% end if %>

<% num_proy=proyectos("NUM_PRODUCTO") %>


	<%=(proyectos.Fields.Item("NOMBRE_ESP").Value)%> PROMOTOR: <%=(proyectos.Fields.Item("PROMOTOR").Value)%> SITUACIÓN: <%=(proyectos.Fields.Item("SITUACION_ESP").Value)%> (<%=(proyectos.Fields.Item("PROVINCIA").Value)%>)		<% descripcion=proyectos("DESCRIPCION_ESP") If (descripcion <> "") Then descripcion = Replace (descripcion, vbCrLf, " ") response.write descripcion end if %>

<% tipo_proyecto.Close() Set tipo_proyecto = Nothing %> <% proyectos.Close() Set proyectos = Nothing %>