<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Data" %>
<%@ Page Language="vb" Debug="true"%>
<html>
<head>
<title>Ahora</title>
<script runat="server">
Sub Page_Load(obj as object, e as eventargs)
dim fecha_ahora as date = now.date
fch_actual.text = fecha_ahora
Dim objConn As New OleDbConnection (ConfigurationSettings.appSettings("fact"))
Dim sSQL as string
sSQL = "select DECODE(TO_DATE(SYSDATE,'DD-MM-YY'), A.FCH_1, A.DESTINATARIO1,A.FCH_2, A.DESTINATARIO2,A.FCH_3, A.DESTINATARIO3,A.FCH_4, A.DESTINATARIO4,NULL)as Destinatario,DECODE(TO_DATE(SYSDATE,'DD-MM-YY'), A.FCH_1, A.FCH_1,A.FCH_2, A.FCH_2,A.FCH_3, A.FCH_3,A.FCH_4, A.FCH_4,NULL)as Fecha,a.fase as fase from stft A where (a.fch_1 = to_date(sysdate,'dd-mm-yy') or a.fch_2 = to_date(sysdate,'dd-mm-yy') OR a.fch_3 = to_date(sysdate,'dd-mm-yy') OR a.fch_4 = to_date(sysdate,'dd-mm-yy')) order by 1"
'response.Write(ssql)
Dim objcomm As New OleDbCommand (sSQL, objConn)
objConn.open
Dim ds As New DataSet
objcomm.Fill(ds)
' Seleccione la vista de datos y vincúlela al control del servidor
Repeater1.DataSource = ds
Repeater1.DataBind()
End sub
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css">
<!--
body,td,th {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 9px;
}
-->
</style></head>
<body>
<h2 align="center">Destinatarios de Facturas</h2>
<br>
<asp:Label ID="fch_actual" runat="server"/>
<br>
<ASP:Repeater id="Repeater1" runat="server" >
<HeaderTemplate>
<table>
<tr>
<td><b>Destinatario</b></td>
<td><b>Fecha</b></td>
<td><b>Fase</b></td>
</tr>
</HeaderTemplate>
<ItemTemplate>
<tr>
<td> <%# Container.DataItem("destinatario") %></td>
<td> <%# Container.DataItem("fecha") %> </td>
<td> <%# Container.DataItem("fase") %> </td>
</tr>
</ItemTemplate>
<FooterTemplate>
</table>
</FooterTemplate>
</ASP:Repeater>
</body>
</html>