como exportar tablas a excel desde una pagina creada en ASP

ireneo · #31 (**permalink**) 26/11/2008, 11:01

despues pongo mi pagina exportar que es esta

ireneo · #32 (**permalink**) 26/11/2008, 11:07

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Gas Económico - Consulta de Odómetro</title>

<%
vs_Sql = "Select * from Clientes where cod_cliente = '" & session("Cod_Cliente") & "'"
Set rsData1 = GEDB.Execute(vs_Sql)
If rsData1.EOF then

Response.Redirect("error.asp?msg1=No existe un cliente asociado a esta cuenta")

Else

vchNombre_Cliente = rsData1("Nombre_Cliente")
'session("usuario") = rsData1("Nom_Usuario")
'session("Password") = rsData1("Password")
'session("Cod_Cliente") = rsData1("Cod_Cliente")
'Response.Redirect("consodo01.asp")

End If

rsData1.close
%>
</head>
<body>
<center>
<img src="./imagen/Logo_Gas_Econ_mico_Rojo.JPG" width="330" height="97">
 
 
<table width="750" border="0" cellpadding="0" cellspacing="0">
<tr align="left">
<td>GAS ECONOMICO METROPOLITANO S.A. DE C.V.</td>
</tr>
<tr align="left">
<td>Reporte de Unidades del dia <%=request.form("FecIni")%> al <%=request.form("FecFin")%></td>
</tr>
<tr align="left">
<td>Cliente: <%=session("Cod_Cliente")%> <%=vchNombre_Cliente%></td>
</tr>
</table>

<%
'Response.Write(Request.Form("HTMLTipoConsulta")&" XXX")
Select case request.form("HTMLTipoConsulta")

case "1"

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
vs_Sql = vs_Sql & "and cu.cod_cliente = cs.Cod_Cliente "
vs_Sql = vs_Sql & "and cu.Cod_Unidad = cs.Unidad "
if Request.Form("CenDistribucion") <> "0" then
vs_Sql = vs_Sql & " and cu.DomicilioTanque = '" & Request.Form("CenDistribucion") & "'"
end if
vs_sql = vs_Sql & "order by cu.DomicilioTanque, cu.Cod_Unidad, cs.fecha_inicio"
'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

vinCenDisAct = 0
vinCenDisAnt = 0

Do while not rsData2.eof
vinUnidadAct = rsData2("Unidad")
vinCenDisAct = rsData2("DomicilioTanque")

if vinUnidadAct <> vinUnidadAnt then
if vchPrimerRegitro = "N" then
if vchColor = "#C6ECF2" then
vchColor = "#FFFFFF"
else
vchColor = "#C6ECF2"
end if
%>

<TR VALIGN="middle" BGCOLOR="<%=vchColor%>" align="center">
<td><%=vstUnidad%></td>
<td><%=vstDescUnidad%></td>
<td><%=vinKmIni%></td>
<td><%=vinKmFin%></td>
<td><%=vinTotUniKmrec%></td>
<td><%=FormatNumber(vinTotUniLitros,3)%></td>
<td><%=FormatNumber(vinTotUniRendimiento,2)%></td>
<td><%=FormatCurrency(vinTotUniImporte,2)%></td>
</tr>

<%
vinTotUniKmrec = 0
vinTotUniLitros = 0
vinTotUniRendimiento = 0
vinTotUniImporte = 0
vinTotUniKmrec = 0
vchPrimerRegCorte = "S"
end if
end if

if vinCenDisAct <> vinCenDisAnt 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>
</tr>
</table>

<%
end if

vchColor = ""
vinKmRec = 0
vinRendimiento = 0

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

<table border="0" cellpadding="1" cellspacing="1" width="750">
<caption><%=rsData2("DomicilioTanque")%></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=<%=rsData2("DomicilioTan que")%>&HTMLTitulo2=Litros&HTMLTitulo3=Unidades&HT MLGrafica=SubTotal&HTMLTipoConsulta=<%=request.For m("HTMLTipoConsulta")%>&FecIni=<%=request.Form("Fe cIni")%>&FecFin=<%=request.Form("FecFin")%>&CenDis tribucion=<%=request.Form("CenDistribucion")%>&Uni dad=<%=request.Form("Unidad")%>&HTMLCenDis=<%=rsDa ta2("DomicilioTanque")%>&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=<%=rsData2("DomicilioTan que")%>&HTMLTitulo2=Rendimiento&HTMLTitulo3=Unidad es&HTMLGrafica=SubTotal&HTMLTipoConsulta=<%=reques t.Form("HTMLTipoConsulta")%>&FecIni=<%=request.For m("FecIni")%>&FecFin=<%=request.Form("FecFin")%>&C enDistribucion=<%=request.Form("CenDistribucion")% >&Unidad=<%=request.Form("Unidad")%>&HTMLCendis=<% =rsData2("DomicilioTanque")%>&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>
</tr>

ireneo · #33 (**permalink**) 26/11/2008, 11:09

<%

end if

vchPrimerRegitro = "N"
vinCenDisAnt = vinCenDisAct

vinKmRec = Clng(rsData2(11)) - Clng(rsData2("OdometroAnterior"))
vinRendimiento = vinKmRec / rsData2("Volumen")
vinImporte = Ccur(rsData2("Precio") * rsData2("Volumen"))

vinSubTotKmrec = vinSubTotKmRec + vinKmRec
vinSubTotLitros = vinSubTotLitros + rsData2("Volumen")
vinSubTotRendimiento = vinSubTotRendimiento + vinRendimiento
vinSubTotImporte = vinSubTotImporte + vinImporte

'Totales por Unidad
vinTotUniKmrec = vinTotUniKmrec + vinKmRec
vinTotUniLitros = vinTotUniLitros + rsData2("Volumen")
vinTotUniRendimiento = vinTotUniRendimiento + vinRendimiento
vinTotUniImporte = vinTotUniImporte + vinImporte
if vchPrimerRegCorte = "S" then
vstUnidad = rsData2("Unidad")
vstDescUnidad = rsData2("Descripcion")
vinKmIni = rsData2("OdometroAnterior")
vinKmFin = rsData2(11)
vchPrimerRegCorte = "N"
else
vinKmFin = rsData2(11)
end if

'Totales por CenDis
vinTotKmrec = vinTotKmrec + vinKmRec
vinTotLitros = vinTotLitros + rsData2("Volumen")
vinTotRendimiento = vinTotRendimiento + vinRendimiento
vinTotImporte = vinTotImporte + vinImporte

vinUnidadAnt = vinUnidadAct
rsData2.MoveNext

if rsData2.eof then
if vchColor = "#C6ECF2" then
vchColor = "#FFFFFF"
else
vchColor = "#C6ECF2"
end if
%>

<TR VALIGN="middle" BGCOLOR="<%=vchColor%>" align="center">
<td><%=vstUnidad%></td>
<td><%=vstDescUnidad%></td>
<td><%=vinKmIni%></td>
<td><%=vinKmFin%></td>
<td><%=vinTotUniKmrec%></td>
<td><%=FormatNumber(vinTotUniLitros,3)%></td>
<td><%=FormatNumber(vinTotUniRendimiento,2)%></td>
<td><%=FormatCurrency(vinTotUniImporte,2)%></td>
</tr>

<%
vinTotUniKmrec = 0
vinTotUniLitros = 0
vinTotUniRendimiento = 0
vinTotUniImporte = 0

end if

ireneo · #34 (**permalink**) 26/11/2008, 11:13

vchPrimerRegitro = "N"
vinCenDisAnt = vinCenDisAct

vinKmRec = Clng(rsData2(11)) - Clng(rsData2("OdometroAnterior"))
vinRendimiento = vinKmRec / rsData2("Volumen")
vinImporte = Ccur(rsData2("Precio") * rsData2("Volumen"))

vinSubTotKmrec = vinSubTotKmRec + vinKmRec
vinSubTotLitros = vinSubTotLitros + rsData2("Volumen")
vinSubTotRendimiento = vinSubTotRendimiento + vinRendimiento
vinSubTotImporte = vinSubTotImporte + vinImporte

'Totales por Unidad
vinTotUniKmrec = vinTotUniKmrec + vinKmRec
vinTotUniLitros = vinTotUniLitros + rsData2("Volumen")
vinTotUniRendimiento = vinTotUniRendimiento + vinRendimiento
vinTotUniImporte = vinTotUniImporte + vinImporte
if vchPrimerRegCorte = "S" then
vstUnidad = rsData2("Unidad")
vstDescUnidad = rsData2("Descripcion")
vinKmIni = rsData2("OdometroAnterior")
vinKmFin = rsData2(11)
vchPrimerRegCorte = "N"
else
vinKmFin = rsData2(11)
end if

'Totales por CenDis
vinTotKmrec = vinTotKmrec + vinKmRec
vinTotLitros = vinTotLitros + rsData2("Volumen")
vinTotRendimiento = vinTotRendimiento + vinRendimiento
vinTotImporte = vinTotImporte + vinImporte

vinUnidadAnt = vinUnidadAct
rsData2.MoveNext

if rsData2.eof then
if vchColor = "#C6ECF2" then
vchColor = "#FFFFFF"
else
vchColor = "#C6ECF2"
end if
%>

<TR VALIGN="middle" BGCOLOR="<%=vchColor%>" align="center">
<td><%=vstUnidad%></td>
<td><%=vstDescUnidad%></td>
<td><%=vinKmIni%></td>
<td><%=vinKmFin%></td>
<td><%=vinTotUniKmrec%></td>
<td><%=FormatNumber(vinTotUniLitros,3)%></td>
<td><%=FormatNumber(vinTotUniRendimiento,2)%></td>
<td><%=FormatCurrency(vinTotUniImporte,2)%></td>
</tr>

<%
vinTotUniKmrec = 0
vinTotUniLitros = 0
vinTotUniRendimiento = 0

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"

ireneo · #36 (**permalink**) 26/11/2008, 11:15

face="Arial, Helvetica, sans-serif" size="-2">Servicio</td>
<td width="35">Tarjeta</td>
</tr>
<%

end if

vdaFechaAnt = vdaFechaAct

if vchColor = "#C6ECF2" then
vchColor = "#FFFFFF"
else
vchColor = "#C6ECF2"
end if

vinKmRec = CLng(rsData2(11)) - CLng(rsData2("OdometroAnterior"))
vinRendimiento = vinKmRec / rsData2("Volumen")
vinImporte = Ccur(rsData2("Precio") * rsData2("Volumen"))

vinSubTotKmrec = vinSubTotKmRec + vinKmRec
vinSubTotLitros = vinSubTotLitros + rsData2("Volumen")
vinSubTotRendimiento = vinSubTotRendimiento + vinRendimiento
vinSubTotImporte = vinSubTotImporte + vinImporte

vinTotKmrec = vinTotKmrec + vinKmRec
vinTotLitros = vinTotLitros + rsData2("Volumen")
vinTotRendimiento = vinTotRendimiento + vinRendimiento
vinTotImporte = vinTotImporte + vinImporte

%>

<TR VALIGN="middle" BGCOLOR="<%=vchColor%>" align="center">
<td><%=rsData2("Unidad")%></td>
<td><%=rsData2("Descripcion")%></td>
<td><%=rsData2("OdometroAnterior")%></td>
<td><%=rsData2(11)%></td>
<td><%=vinKmRec%></td>
<td><%=FormatNumber(rsData2("Volumen"),3)%></td>
<td><%=FormatNumber(vinRendimiento,2)%></td>
<td><%=FormatCurrency(vinImporte,2)%></td>
<td><%=FormatDateTime(rsData2("Fecha_Inicio"),4) %></td>
<td><%=rsData2("Servicio")%></td>
<td><%=vstTarjeta%></td>
</tr>
<%
rsData2.MoveNext
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>
<td colspan="3"> </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")%>&HTMLFecha=&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")%>&HTMLFecha=&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>
<td width="60">Hora</td>
<td width="40">Servicio</td>
<td width="35">Tarjeta</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>
<td colspan="3"> </td>
</tr>
</table>
<%
end Select
%>
 
 

</center>
</body>
</html>

ireneo · #37 (**permalink**) 26/11/2008, 16:55

como agrego el boton para exportar

JuanRAPerez · #38 (**permalink**) 27/11/2008, 13:15

maestro: Shiryu_Libra hahah ano parece ser tan claro el código :P

ireneo: ,e gustaría la verdad leer el código que pegas, pero en estos días ando corriendo con el fin de año y pues no creo poder ayudarte te dejo la lógica

+ has un enlace a tu pagina ASP
+en esa pagina ASP reemplaza

response.write "<table>"
response.write "<tr><td>hola mundo X1</td>"
response.write "<td>hola mundo X1</td>"
response.write "<td>hola mundo X1</td></tr>"
response.write "</table>"

por tu codigo asp y html y tendría que jalarte

suerte

Shiryu_Libra · #39 (**permalink**) 27/11/2008, 13:48

Cita:

Iniciado por JuanRAPerez

maestro: Shiryu_Libra hahah ano parece ser tan claro el código :P

o es eso, o ya estan tan confusas las palabras, como las platicas los sabados por las noches despues de una veintena de birrias

JuanRAPerez · #40 (**permalink**) 27/11/2008, 14:00

jejejeje

pues esperemos a ver que pasa