<%@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_tipo") <> "") Then proyectos__MMColParam = Request.QueryString("id_tipo") End If %> <% Dim proyectos Dim proyectos_numRows Set proyectos = Server.CreateObject("ADODB.Recordset") proyectos.ActiveConnection = MM_conn_STRING proyectos.Source = "SELECT * FROM PRODUCTOS WHERE ID_TIPO_PRODUCTO = " + Replace(proyectos__MMColParam, "'", "''") + " 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 %>
ESTUDIO
OBRAS
" class="<%=estilo_aplica%>"><%=(tipo_proyecto.Fields.Item("TIPO_PRODUCTO_ESP").Value)%>
CONTACTO
<%=correo%>
  <% While ((Repeat2__numRows <> 0) AND (NOT proyectos.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 proyectos.MoveNext() Wend %>
&n=<%=(proyectos.Fields.Item("NOMBRE_ESP").Value)%>&f=1" class="Arial_10_proyectos"><%=(proyectos.Fields.Item("NOMBRE_ESP").Value)%>
 
 
<% tipo_proyecto.Close() Set tipo_proyecto = Nothing %> <% proyectos.Close() Set proyectos = Nothing %>