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
OleDbDataAdapter (sSQL, objConn)
objConn.open
Dim ds As New DataSet
objcomm.Fill(ds)
A ver si así funciona
PD: tienes el código asi de desordenado en la pagina o s q ha salido asi aqui??