<%@LANGUAGE="VBSCRIPT"%> <% foto=1 If (Request.QueryString("f") <> "") Then foto = Request.QueryString("f") End If %> <% tipo=1 If (Request.QueryString("tipo") <> "") Then tipo = Request.QueryString("tipo") End If %> <% id=1 If (Request.QueryString("id") <> "") Then id = Request.QueryString("id") End If %> <% 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 PRODUCTOS WHERE ID_PRODUCTO="&id&" AND BAJA=0 ORDER BY ORDEN_LISTA ASC" tipo_proyecto.CursorType = 3 tipo_proyecto.CursorLocation = 2 tipo_proyecto.LockType = 1 tipo_proyecto.Open() tipo_proyecto_numRows = 0 %> <%=titulo%>
 
ES | EN
<% num_proy=tipo_proyecto("NUM_PRODUCTO") num_fotos=tipo_proyecto("NUM_FOTOS") %>


<%=tipo_proyecto("NOMBRE_ESP")%>

<% descripcion=tipo_proyecto("DESCRIPCION_ESP") If (descripcion <> "") Then descripcion = Replace (descripcion, vbCrLf, "
") response.write descripcion end if %>
<%=tipo_proyecto(" src="imgs_proyectos/fcobos_fgpro<%=num_proy%>_<%=foto%>.jpg" width="665" height="620">
" class="Arial_10_proyectos">REGRESAR
 
 
IR A ESTUDIOS TERRITORIALES DE PATRIMONIO
IR A PLANES DIRECTORES
 
<% For i = 1 to num_fotos Step 1 'use i as a counter %> &n=<%=tipo_proyecto("NOMBRE_ESP")%>&f=<%=i%>"><%=tipo_proyecto(" src="imgs_proyectos/fcobos_fgpro<%=num_proy%>_<%=i%>.jpg" width="40" height="40" <%If Cstr(foto)=Cstr(i) Then %>style="border: 1px solid grey;" <%End If %>> <% Next %>
<% tipo_proyecto.Close() Set tipo_proyecto = Nothing %>