Foros del Web - Ver Mensaje Individual - como exportar tablas a excel desde una pagina creada en ASP

ireneo · #35 (**permalink**) 26/11/2008, 11:14

vinTotUniImporte = 0

end if

loop

rsData2.close
%>
<TR VALIGN="middle" BGCOLOR="#1F54E0" align="center">
<td colspan="4" align="right">TOTAL</td>
<td><%=vinSubTotKmRec%></td>
<td><%=FormatNumber(vinSubTotLitros,3)%></td>
<td><%=FormatNumber(vinSubTotRendimiento,2)%></td>
<td><%=FormatCurrency(vinSubTotImporte,2)%></td>
</tr>

</table>
 
 
TOTAL CLIENTE
<table border="0" cellpadding="1" cellspacing="1" width="750">
<TR VALIGN="middle" BGCOLOR="#1F54E0" align="center">
<td width="43">Unidad</td>
<td width="138">Nombre</td>
<td width="59">Km Inicial</td>
<td width="54">Km Final</td>
<td width="69">Km Recorridos</td>
<td width="65">Litros <a href="file://///192.168.1.100/Consulta/consodo03.asp?HTMLTitulo1=TOTAL&HTMLTitulo2=Litros &HTMLTitulo3=Unidades&HTMLGrafica=SubTotal&HTMLTip oConsulta=<%=request.Form("HTMLTipoConsulta")%>&Fe cIni=<%=request.Form("FecIni")%>&FecFin=<%=request .Form("FecFin")%>&CenDistribucion=<%=request.Form( "CenDistribucion")%>&Unidad=<%=request.Form("Unida d")%>&HTMLCenDis=&HTMLTotal=s"><img src="file://///192.168.1.100/Consulta/./imagen/graph07.bmp" width="19" height="19" align="absmiddle" border="0"></a></td>
<td width="97">Rendimiento <a href="file://///192.168.1.100/Consulta/consodo03.asp?HTMLTitulo1=TOTAL&HTMLTitulo2=Rendim iento&HTMLTitulo3=Unidades&HTMLGrafica=SubTotal&HT MLTipoConsulta=<%=request.Form("HTMLTipoConsulta") %>&FecIni=<%=request.Form("FecIni")%>&FecFin=<%=re quest.Form("FecFin")%>&CenDistribucion=<%=request. Form("CenDistribucion")%>&Unidad=<%=request.Form(" Unidad")%>&HTMLCendis=&HTMLTotal=s"><img src="file://///192.168.1.100/Consulta/./imagen/graph07.bmp" width="19" height="19" align="absmiddle" border="0"></a></td>
<td width="56">Importe</td>
</tr>
<TR VALIGN="middle" BGCOLOR="#1F54E0" align="center">
<td colspan="4" align="right">TOTAL</td>
<td><%=vinTotKmRec%></td>
<td><%=FormatNumber(vinTotLitros,3)%></td>
<td><%=FormatNumber(vinTotRendimiento,2)%></td>
<td><%=FormatCurrency(vinTotImporte,2)%></td>
</tr>
</table>
<%
case "2"

vs_Sql = "Select * from clientes_servicios cs, Clientes_Unidades cu where cs.cod_cliente = '" & session("Cod_Cliente") & "' "
if request.form("FecIni") = request.form("FecFin") then
vs_Sql = vs_Sql & "and datepart(year,cs.fecha_inicio) = " & year(request.form("FecIni")) & " and datepart(month,cs.fecha_inicio) = " & day(request.form("FecIni")) & " and datepart(day,cs.fecha_inicio) = " & month(request.form("FecIni")) & " "
else
vs_Sql = vs_Sql & "and cs.fecha_inicio >= '" & request.form("FecIni") & "' "
vs_Sql = vs_Sql & "and cs.fecha_inicio <= '" & request.form("FecFin") & "'"
end if
if Request.Form("Unidad") <> "0" then
vs_Sql = vs_Sql & " and cs.Unidad = " & Request.Form("Unidad") & " "
end if
vs_Sql = vs_Sql & "and cu.cod_cliente = cs.Cod_Cliente "
vs_Sql = vs_Sql & "and cu.Cod_Unidad = cs.Unidad "
vs_sql = vs_Sql & "order by datepart(year,cs.fecha_inicio), datepart(month,cs.fecha_inicio), datepart(day,cs.fecha_inicio), cs.Unidad "
'Response.Write(vs_Sql)
'Response.End

Set rsData2 = GEDB.Execute(vs_Sql)
If rsData2.Eof then
rsData2.close
Response.Redirect("error.asp?msg1=No hay informacin para mostrar")
End If

vchColor = ""
vinKmRec = 0
vinRendimiento = 0
vchPrimerRegitro = "S" 'S-Si es Primer registro, N-No es primer registro

'variables de totales
vinSubTotKmrec = 0
vinSubTotLitros = 0
vinSubTotRendimient = 0
vinSubTotImporte = 0
vinTotKmrec = 0
vinTotLitros = 0
vinTotRendimiento = 0
vinTotImporte = 0

vdaFechaAct = 0
vdaFechaAnt = 0

Do while not rsData2.eof
vdaFechaAct = FormatDateTime(rsData2("Fecha_inicio"),2)
'si el numero de la unidad es igual al numero de transpoder o
'el numero de transponder es nulo, entonces no usa tarjeta
if (trim(rsData2("cod_cliente")) = trim(rsData2("Num_Transponder"))) or (trim(rsData2("Unidad")) = trim(rsData2("Num_Transponder"))) then
vstTarjeta = "No"
else
vstTarjeta = "Si"
end if

if vdaFechaAct <> vdaFechaAnt then
if vchPrimerRegistro = "N" then
%>
<TR VALIGN="middle" BGCOLOR="#1F54E0" align="center">
<td colspan="4" align="right">TOTAL</td>
<td><%=vinSubTotKmRec%></td>
<td><%=FormatNumber(vinSubTotLitros,3)%></td>
<td><%=FormatNumber(vinSubTotRendimiento,2)%></td>
<td><%=FormatCurrency(vinSubTotImporte,2)%></td>
<td colspan="3"> </td>
</tr>
</table>

<%
end if

vchColor = ""
vinKmRec = 0
vinRendimiento = 0

'variables de totales
vinSubTotKmrec = 0
vinSubTotLitros = 0
vinSubTotRendimiento = 0
vinSubTotImporte = 0
vchPrimerRegistro = "N"
%>
 

<table border="0" cellpadding="1" cellspacing="1" width="750">
<caption align=left>Fecha: <%=FormatDateTime(rsData2("Fecha_Inicio"),1)%></caption>
<TR VALIGN="middle" BGCOLOR="#1F54E0" align="center">
<td width="43">Unidad</td>
<td width="138">Nombre</td>
<td width="59">Km Inicial</td>
<td width="54">Km Final</td>
<td width="69">Km Recorridos</td>
<td width="65">Litros <a href="file://///192.168.1.100/Consulta/consodo03.asp?HTMLTitulo1=<%=FormatDateTime(rsData 2("Fecha_Inicio"),1)%>&HTMLTitulo2=Litros&HTMLTitu lo3=Unidades&HTMLGrafica=SubTotal&HTMLTipoConsulta =<%=request.Form("HTMLTipoConsulta")%>&FecIni=<%=r equest.Form("FecIni")%>&FecFin=<%=request.Form("Fe cFin")%>&CenDistribucion=<%=request.Form("CenDistr ibucion")%>&Unidad=<%=request.Form("Unidad")%>&HTM LFecha=<%=FormatDateTime(rsData2("Fecha_Inicio"),2 )%>&HTMLTotal=n"><img src="file://///192.168.1.100/Consulta/./imagen/graph07.bmp" width="19" height="19" align="absmiddle" border="0"></a></td>
<td width="97">Rendimiento <a href="file://///192.168.1.100/Consulta/consodo03.asp?HTMLTitulo1=<%=FormatDateTime(rsData 2("Fecha_Inicio"),1)%>&HTMLTitulo2=Rendimiento&HTM LTitulo3=Unidades&HTMLGrafica=SubTotal&HTMLTipoCon sulta=<%=request.Form("HTMLTipoConsulta")%>&FecIni =<%=request.Form("FecIni")%>&FecFin=<%=request.For m("FecFin")%>&CenDistribucion=<%=request.Form("Cen Distribucion")%>&Unidad=<%=request.Form("Unidad")% >&HTMLFecha=<%=FormatDateTime(rsData2("Fecha_Inici o"),2)%>&HTMLTotal=n"><img src="file://///192.168.1.100/Consulta/./imagen/graph07.bmp" width="19" height="19" align="absmiddle" border="0"></a></td>
<td width="56">Importe</td>
<td width="60">Hora</td>
<td width="40"><font color="#FFFFFF"