<%sub select_mes%>
<%end sub%>
<%sub select_anio(byval inicio,fin,defa )%>
<%for i=inicio to fin
if i = defa then %>
<%else %>
<%end if
next %>
<% end sub %>
<%
Set fuente = server.createobject("ADODB.Connection")
fuente.Open "DSN=REPLICA;UID=intrauser;PWD=INTRATI;DATABASE=REPLICA;"
fecha = date()
mes=datepart("m",fecha)
dia= DatePart("d", fecha)
annio=DatePart("yyyy", fecha)
fecha= mes & "/" & dia & "/" & annio
fecha_esp= date()
encontro = 0
%>
<% do while encontro = 0
LEER ="Select * from tipo_cambio_diario where fecha = '" & fecha &"' and moneda = '02' and tipo_cambio = 2" %>
<%set RS=fuente.execute(LEER)%>
<%IF Not RS.EOF then %>
<%' Encontró el tipo de cambio del día en curso
encontro = 1%>
<%else%>
<%'No se encontró el tipo de cambio de ese dia, se buscará el del día anterior más proximo
'fecha = dateadd ("d",-1,fecha_esp)
fecha = dateadd ("d",-1,fecha)
mes=datepart("m",fecha)
dia= DatePart("d", fecha)
annio=DatePart("yyyy", fecha)
fecha= mes & "/" & dia & "/" & annio
fecha_esp= date()
%>
<%end if
loop %>
Exchange Rate at <%=FORMATFECHA(fecha_esp)%>
<%if date()<="01/12/2006" then%>
<%else%>
<%=formatnumber(RS("apertura_compra"),5)%>
<%end if%>
<%
function DespliegueMes(Mes)
Dim NombreMes()
Redim NombreMes(12)
NombreMes(1) = "1"
NombreMes(2) = "2"
NombreMes(3) = "3"
NombreMes(4) = "4"
NombreMes(5) = "5"
NombreMes(6) = "6"
NombreMes(7) = "7"
NombreMes(8) = "8"
NombreMes(9) = "9"
NombreMes(10) = "10"
NombreMes(11) = "11"
NombreMes(12) = "12"
DespliegueMes = NombreMes(Mes)
End function
function DespliegueDia(Dia)
Dim NombreDia()
Redim NombreDia(7)
NombreDia(1) = "sunday"
NombreDia(2) = "monday"
NombreDia(3) = "tuesday"
NombreDia(4) = "wednesday"
NombreDia(5) = "thursday"
NombreDia(6) = "friday"
NombreDia(7) = "saturday"
DespliegueDia = NombreDia(Dia)
End function
Function FORMATFECHA(fecha_esp)
FORMATFECHA = DespliegueDia (WeekDay(fecha_esp)) & " " & right("00" & dESPLIeGUEmES(mONTH(fecha_esp)),2) & "/" & right("00" & dAY(fecha_esp),2) & "/" & yEAR(fecha_esp)
end Function
%>