<%@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 Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 tipo_proyecto_numRows = tipo_proyecto_numRows + Repeat1__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)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 tipo_proyecto.MoveNext() Wend %>
ESTUDIO
OBRAS
" class="Arial_11_texto_menu"><%=(tipo_proyecto.Fields.Item("TIPO_PRODUCTO_ESP").Value)%>
CONTACTO
<%=correo%>
<% tipo_proyecto.Close() Set tipo_proyecto = Nothing %>