Problema para importar a excel

[th3r0rn]

Hola tengo un problema para importar a excel, me manda mi tabla vacia es decir me manda el excel pero sin los datos que tiene que poner de la bases de datos.
Este problema solo pasa cuando mando la variable 11 de la linea 14
Mi primer archivo donde veo los datos consultados en la DB es este:

Código ASP:

dim conexion,calendar1,calendar2,registros,linea
calendar1=request.form("calendar1")
calendar2=request.form("calendar2")
linea=request.form("linea")
Tubo=request.form("tubo")
 
SET conexion=Server.CreateObject("ADODB.Connection")
conexion.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-Maple01;UID=sa;PWD=messrv;DATABASE=wasp "
SET registros=Server.CreateObject("ADODB.RecordSet")
'registros.open"SELECT peso,tubo from pesos where fecha  between '"&calendar1&"' AND '"&calendar2&"'",conexion
if linea="1" Then
 
registros.open"SELECT p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o where o.codigo = p.codOptima  AND o.tubo LIKE '"&tubo&"'   AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"'order by fecha",conexion
elseif linea=11 then
 
registros.open"SELECT p.peso,p.vaso,p.fecha, o.linea,o.tubo,o.empaque FROM pesos as p, optimas as o where o.codigo = p.codOptima and o.empaque =1 and o.tubo LIKE '%' AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"' order by fecha",conexion
 
else
registros.open"SELECT p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o where o.codigo = p.codOptima and o.linea = '"&linea&"' and o.tubo LIKE '"&tubo&"'  AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"' order by fecha" ,conexion    
end if
do while not registros.eof
 
response.write("<tr>")
response.write("<td>"&registros.fields("linea")&"</td>")
response.write("<td>"&registros.fields("peso")&"</td>")
response.write("<td>"&registros.fields("vaso")&"</td>")
response.write("<td>"&registros.fields("tubo")&"</td>")
response.write("<td>"&registros.fields("fecha")&"</td>")
registros.movenext
 
 
loop
conexion.close
 
 
'SELECT p.peso,p.tubo,p.fecha, o.linea FROM pesos as p, optimas as o where o.codigo = p.codOptima and o.linea = 'L02N'  AND p.fecha Between '2010-05-11 09:42:34.000' AND '2010-05-11 09:42:39.000'
SET conexion2=Server.CreateObject("ADODB.Connection")
conexion2.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MAPLE01;UID=sa;PWD=messrv;DATABASE=wasp "
SET registros2=Server.CreateObject("ADODB.RecordSet")
registros2.open"SELECT AVG(PESO)as peso from pesos where fecha Between '"&calendar1&"' AND '"&calendar2&"'",conexion2 
do while not registros2.eof
response.write("Promedio: "&registros2.fields("peso")&"")
registros2.movenext
loop
conexion2.close
%>
 

el cual envia las variables al otro archivo que exporta los datos a excel mediante esta linea:

Código ASP:

<div align="center"> <a href="Show.asp?calendar1=<%=calendar1%>&calendar2=<%=calendar2%>&linea=<%=linea%>&Tubo=<%=tubo%>"> <img src="http://www.expiretrack.com/images/icon_excel.jpg" alt="Exportar" border="0" /><br>Export </a> </div>
 

El archivo que exporta a excel es este:

Código ASP:

<%
 
'dim conexion,calendar1,calendar2,registros,linea
calendar1=request.QueryString("calendar1")
calendar2=request.QueryString("calendar2")
linea=request.QueryString("linea")
Tubo=request.QueryString("tubo")
'response.write(calendar1)
'response.write(calendar2)
'response.write(tubo)
'response.write(linea)
'response.write(vaso)
'response.end()
SET conexion=Server.CreateObject("ADODB.Connection")
conexion.Open "PROVIDER=SQLOLEDB; DATA SOURCE=VALP-MAPLE01;UID=sa;PWD=messrv;DATABASE=wasp "
SET registros=Server.CreateObject("ADODB.RecordSet")
'registros.open"SELECT peso,tubo from pesos where fecha  between '"&calendar1&"' AND '"&calendar2&"'",conexion
if linea="1" Then
 
registros.open"SELECT p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o where o.codigo = p.codOptima    AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"'order by linea",conexion
 
elseif linea="11" then
 
registros.open"SELECT p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o where o.codigo = p.codOptima  AND o.tubo LIKE '"&tubo&"'   AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"'order by fecha",conexion
 
else
registros.open"SELECT p.peso,p.vaso,p.fecha, o.linea,o.tubo FROM pesos as p, optimas as o where o.codigo = p.codOptima and o.linea = '"&linea&"' and o.tubo LIKE '"&tubo&"'  AND p.fecha Between '"&calendar1&"' AND '"&calendar2&"'" ,conexion    
end if
do while not registros.eof
%>
 
<tr>
<td><%=registros.fields("linea")%></td>
<td><%=registros.fields("peso")%></td>
<td><%=registros.fields("vaso")%></td>
<td><%=registros.fields("tubo")%></td>
<td><%=registros.fields("fecha")%></td>
 
<%
registros.movenext
 
 
loop
conexion.close
 
 
'SELECT p.peso,p.tubo,p.fecha, o.linea FROM pesos as p, optimas as o where o.codigo = p.codOptima and o.linea = 'L02N'  AND p.fecha Between '2010-05-11 09:42:34.000' AND '2010-05-11 09:42:39.000'
 
%>