<% 'Abre la conexion con la base de datos a traves de una conexion ODBC Set con = Server.CreateObject("ADODB.Connection") Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("precios.mdb")&";" 'Ejecuta un sentencia SQL de consulta sql = "SELECT * FROM tabla1 ORDER BY id DESC" Set result = con.Execute(sql) observ2= result("observ") %> CODELCO - Salta - Acciones

 

 

 

 

 

 

 

 

Relevamiento de Precios al <%=result("fecha") %>

Canasta Económica  $<%=result("canasta1") %>            Inc. Semanal %:  <% = result("incremento1") %>                      

Canasta Básica $ <% = result("canasta2") %>                Inc. Semanal % :  <% =result("incremento2") %>

Observaciones: <% =AcomodarTXT(observ2) %> <% 'Libera memoria result.Close Set result = Nothing Function AcomodarTXT(txt) txt = Replace (txt, "<", "<") txt = Replace (txt, ">", ">") txt = Replace (txt, vbCrLf, "
") txt = Replace (txt, "''", "'") acomodarTXT = txt End function %>

Archivos Disponibles para Descarga FTP:

Nota: Los archivos se encuentran comprimidos, use winzip para descomprimir. Para observarlos requiere Excel o un software editor de archivos XLS. Pulse sobre el link para iniciar la descarga. Puede solicitar los mismos via email, completando nuestro formulario de contacto.

 

 

 

 


Todos los Derechos Reservados para CODELCO. Copyright 2002. Web site realizada por Montes Ramón Abel