%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) %>
|
<%=FechaHoy(sIdioma)%>
|