<%@LCID=2058%>
<%
response.redirect "index.asp"
%>
<%
Dim Venta
Dim Cambio
Dim Query
Dim Compra
StrConexion = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.Mappath("database/general.mdb")
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Conexion.Open StrConexion
Query = "SELECT * FROM TIPO_CAMBIO"
Rs.Open Query, Conexion, 3, 3
rs.movelast
Compra = "
Compra
"& Chr(13)
Compra = Compra & "
$ " & FormatNumber(RS("DOLAR_COMPRA"),2) & "
" & Chr(13)
Venta = "
Venta
" & Chr(13)
Venta = Venta & "
$ " & FormatNumber(RS("DOLAR_VENTA"),2) & "
" & Chr(13)
'IF( RS("FUENTE") <> "") THEN
' response.write("
")
' response.write("
Fuente
")
' response.write("
")
' response.write("
")
' response.write("
" & rs("FUENTE") & "
")
' response.write("
")
'END IF
Rs.Close
Set Rs = Nothing
Conexion.close
Set Conexion = Nothing
%>
<%
Dim numestado
Dim fecha
Dim strConexion
Dim RS
Dim Conexion
Dim Consulta
Dim Yucatan
Dim QuintanaRoo
Dim Campeche
Dim Estados(3)
Dim i
Dim j
Dim usuario
Dim uregistrdo
uregistrado = Session("usuario")<>""
If( uregistrado )Then
Usuario = "Bienvenido " & Session("usuario") & " Cerrar Sesion"
Else
Usuario = "Usuario no registrado"
Usuario = Usuario & " Regístrese gratis"
Usuario = Usuario & " Conectar"
End If
Estados(1) = "Yucatán"
Estados(2) = "Quintana Roo"
Estados(3) = "Campeche"
StrConexion = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.mappath("database/noticias.mdb")
Set RS = Server.CreateObject("ADODB.RecordSet")
Set Conexion = Server.CreateObject("ADODB.Connection")
numestado= request.QueryString("estado")
if((numestado="") or (numestado>3)) then
numestado=1
end if
'fecha = request.QueryString("fecha")
'if(fecha="") then
' fecha = Date()
' 'fecha = "18/02/2002"
'end if
fecha = Date()
if(Weekday(fecha)=vbSaturday) then
fecha = Dateadd("w",-1,fecha)
end if
if(Weekday(fecha)=vbSunday) then
fecha = Dateadd("w",-2,fecha)
end if
fecha = Datepart("yyyy",fecha) & "-" & DatePart("m",fecha) & "-" & DatePArt("d",fecha)
%>
