<%Option Explicit%>
<%
Response.Buffer = True
Dim sIdioma
Dim objConexion
Dim rsListas
Dim rsIndices
sIdioma = "SPA"
Set objConexion = Server.CreateObject("ADODB.Connection")
objConexion.Open "DSN=Portal;uid=internet;pwd=intern4t"
Set rsListas = Server.CreateObject("ADODB.Recordset")
Set rsIndices = Server.CreateObject("ADODB.Recordset")
Call rsIndices.Open("Select * from Cotizaciones where Fecha = (Select max(Fecha) from Cotizaciones)", objConexion, _
adOpenKeyset, adLockReadOnly, adCmdText)
%>
Red TIPS , La Comunidad Latinoamericana de Comercio Electrónico para PYMES
