<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% donde = Request.Form("donde") IF donde = "" THEN donde = "panama" END IF SQLstmt = "SELECT * FROM "&donde&"" Set rs = objconn.Execute(SQLstmt) Set RS3 = objConn.execute("SELECT * FROM fechas WHERE lugar = '"&donde&"'") %>
 
Lista de Precios
<% IF donde = "panama" THEN Response.Write("Para las plantas de Panamá, Vacamonte, Albrook y Tocumen") END IF%><% IF donde = "colon" THEN Response.Write("Para Colón") END IF%><% IF donde = "playas" THEN Response.Write("Para el interior del país (Playas del Pacífico)") END IF%> 
Fecha: <% fechames = Month(rs3("fecha")) IF fechames = 1 THEN mes = "Enero" END IF IF fechames = 2 THEN mes = "Febrero" END IF IF fechames = 3 THEN mes = "Marzo" END IF IF fechames = 4 THEN mes = "Abril" END IF IF fechames = 5 THEN mes = "Mayo" END IF IF fechames = 6 THEN mes = "Junio" END IF IF fechames = 7 THEN mes = "Julio" END IF IF fechames = 8 THEN mes = "Agosto" END IF IF fechames = 9 THEN mes = "Septiembre" END IF IF fechames = 10 THEN mes = "Octubre" END IF IF fechames = 11 THEN mes = "Noviembre" END IF IF fechames = 12 THEN mes = "Diciembre" END IF Response.Write(mes)%> de <%Response.Write(Year(rs3("fecha")))%>  
MEZCLA
  Standard

Fina

Resistencia Normal Bombeo Normal Bombeo
p.s.i. Kg/cm² Código Precio Código Precio Código Precio Código Precio
1500 105
2000 140
2500 175
3000 210
3500 245
4000 280
4500 315
5000 350
5500 385
6000 420
x115 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext %>
x120 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x125 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x130 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x135 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x140 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x145 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x150 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x155 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x160 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
- -
- -
- -
x230 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x235 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x240 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x245 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x250 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x255 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x260 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x315 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext %>
x320 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x325 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x330 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x335 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x340 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x345 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x350 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x355 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x360 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
- -
- -
- -
x430 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x435 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x440 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x445 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x450 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x455 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
x460 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>
 
HORMIGÓN PARA APLICACIONES ESPECIALES
Resistencia Código Precio Comentarios
550 libras/250 kilogramos a flexión x550 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>  
650 libras/295 kilogramos a flexión x650 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%>  
Postensado x850 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%> * Diseño alcanza 175 kg/cm2.@72 horas
Postensado bombeo x950 <% response.write(FormatCurrency(rs("precio"), 2)) rs.MoveNext%> * Diseño alcanza 175 Kg/cm2 @72 horas
STANDARD: Se utiliza como tamaño máximo, la piedra ASTM N°57 (1 pulgada). Resistencia en libras por pulgada cuadrada y kilos por centímetro cuadrado a los 28 días.
FINA: Se utiliza como tamaño máximo, la piedra ASTM N°8 (3/8 de pulgada). Resistencia en libras por pulgada cuadrada y kilos por centímetro cuadrado a los 28 días.
NOTAS
• Los precios son por metro cúbico de concreto y su resistencia es en kilogramos por centímetro cuadrado (Kg/cm2).   
• Estos precios no incluyen el 5% ITBMS. 
• Para los concretos de 385 y 420 kg/cm² se recomienda agregar hielo, sobre todo en días con altas temperaturas. 
• Estos precios cubren entregas dentro del área metropolitana.
• Para proyectos fuera del área metropolitana, se cobrará un recargo de B/.2.00  por cada kilómetro adicional. 
• En cada despacho se concederá una (1) hora para descargar el concreto, tiempo que correrá a partir de  la llegada de la concretera a la obra.  Si la concretera es retenida por tiempo que exceda a dicha hora, el cliente pagará  B/.25.00 por hora o fracción de hora.   
• En los pedidos menores de 4 metros cúbicos se cobrará  recargo de B/. 25.00 por viaje, exceptuando los vaciados de cierre. 
• El despacho se inicia a las 7:00 a.m.  Las entregas de concreto después de las 6:00 p.m. llevarán un recargo por sobretiempo.  
• Los precios de esta lista están sujetos a cambios sin previo aviso. 
• Nuestras ventas al crédito tienen un término regular de 30 días  subsiguientes al  último  día del mes  al  que corresponde la venta.  Se hará un recargo de 1.5% mensual sobre los saldos vencidos en concepto de manejo de cobros e intereses por cuentas que no sean pagadas dentro de los 30 días regulares de crédito.
• CHEQUES A NOMBRE DE: HORMIGON, S.A. 
 
<% objconn.Close Set objconn = nothing Set SQLstmt = nothing %>