Representación de Logotipo

Inicio » Ayuntamiento » Perfil del contratante

Perfil del contratante


<% if request.querystring("tipo")="Obras" then sql_where = " AND Tipo='Obras'" %> Obras     <% else %> ?tipo=Obras">Obras     <% end if if request.querystring("tipo")="Servicios" then sql_where = " AND Tipo='Servicios'" %> Servicios     <% else %> ?tipo=Servicios">Servicios     <% end if if request.querystring("tipo")="Suministros" then sql_where = " AND Tipo='Suministros'" %> Suministros     <% else %> ?tipo=Suministros">Suministros     <% end if if request.querystring("tipo")="OtrosC" then sql_where = " AND Tipo='Otros contratos'" %> Otros contratos <% else %> ?tipo=OtrosC">Otros contratos     <% end if %>

<% function valida_out(cadena) if IsEmpty(cadena) or IsNull(cadena) Then valida_out=" " else cadena=Replace(cadena, "<", "<") valida_out=Replace(cadena, ">", ">") end if end function Set miconexion = Server.CreateObject("ADODB.Connection") miconexion.ConnectionString = "DSN=castalla.org.contratacion" miconexion.Open 'Set SqlCommand = Server.CreateObject("ADODB.Command") 'SqlCommand.ActiveConnection = miconexion 'SqlCommand.CommandText = "SELECT * FROM ParticipCiudadana" SQL = "SELECT * FROM Perfil WHERE Visible=1" & sql_where & " ORDER BY [Año] DESC, Expte DESC" Set rstPlanGeneral=Server.CreateObject("ADODB.RecordSet") rstPlanGeneral.Open SQL,miconexion, 1 i=1 While Not rstPlanGeneral.eof if (i mod 2)=1 then %> <% else%> <% end if %> <% rstPlanGeneral.Movenext i=i+1 Wend rstPlanGeneral.Close miconexion.Close %>
Expte. Año Denominación Estado
<% response.write valida_out(rstPlanGeneral("Expte")) %> <% response.write valida_out(rstPlanGeneral("Año")) %> " class="link_contrato"><% response.write valida_out(rstPlanGeneral("Denominacion")) %> <% response.write valida_out(rstPlanGeneral("Estado")) %>
  Volver

Plaça Major, 1 – 03420 Castalla (Alicante) 
Tfno.: 966 560 801 - 966 560 810 - Fax: 965 560 031

[Icono de RSS] [Level A conformance icon, W3C-WAI Web Content Accessibility Guidelines 1.0] [XHTML 1.0 válido]