ASP + Excel

[MAPSantos 0]

Oi Comunidade,Sei que a' mtos topicos sobre este tema ... mas tou com uma duvida, tenho uma bd access e ta' retornando os valores para uma pagina asp dependendo da procura do usuario.quero exportar o resultado da pesquisa para um excel.neste caso o resultado e' apresentado numa pagina de teste.asp e quando o usuario carrega em um botao ele passa para o testexls.asp. Neste testexls.asp (que e' o que gera o xls) tenho o seguinte código:<%Response.ContentType = "application/vnd.ms-excel"%><table border="1"> <tr> <th>ID</th> <th>Nº Cliente </th> <th>Nome Cliente </th> <th>Estado Cliente </th> <th>Passado Por </th> <th>Departamento</th> </tr> <tr> <td><%response.Write rsCheckUser("id)%></td> <td><%response.Write rsCheckUser("num_cl")%></td> <td><%response.Write rsCheckUser("nome_cl")%></td> <td><%response.Write rsCheckUser("estado_cl")%></td> <td><%response.Write rsCheckUser("passado")%></td> <td><%response.Write rsCheckUser("area")%></td> </tr></table>O problema é que o valor de rsCheckUser é da outra página anterior, qual a forma de eu conseguir guardar valores que forma feitos na pesquisa e passar para esta nova página?

[MAPSantos 0]

tou usando este codigo

<%

 

If Request.querystring("mode") = "report" then

 

Set rsCheckUser = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM ESPECIAIS WHERE "

 

if (strInputEstadoCl = "0") and (strInputArea = "0") and (strInputResptvcabo = "0") then

strSQL = strSQL + " id > 0 "

end if

 

if (strInputEstadoCl <> "0") then

strSQL = strSQL + " estado_cl = '" & strInputEstadoCl & "'"

selecionado = true

end if

 

if (strInputArea <> "0") then

if (selecionado) then

strSQL = strSQL + " AND area = '" & strInputArea & "'"

else

strSQL = strSQL + " area = '" & strInputArea & "'"

selecionado = true

end if

end if

 

if (strInputResptvcabo <> "0") then

if (selecionado) then

strSQL = strSQL + " AND resp_tvcabo = '" & strInputRespTvcabo & "'"

else

strSQL = strSQL + " resp_tvcabo = '" & strInputRespTvcabo & "'"

selecionado = true

end if

end if

 

strSQL = strSQL + "ORDER BY id"

 

rsCheckUser.Open strSQL, adoCon2

%>

 

para fazer a pesquisa e o retorno na pagina ASP

 

e dpx criei um form

 

<form name="exp_report" method="post" action="clespcontrolxls.asp">

<div align="right">

<input type="submit" name="Submit2" value="Report">

</div>

</form>

 

em que eu dpx quero que ele monte o mmo resultado nesta nova pagina !!

 

qual a forma que aconselha e como ?? http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[MAPSantos 0]

e' isso mmo. eu faço a pesquisa ( com o codigo que mostrei anteriormente) e quero que ao carregar num botao ele faça a exportacao da pesquisa para um excel.

[MAPSantos 0]

na consulta ele retorna varios campos .... e dependendo da pesquisa retorna varios valores.n percebi mto bem esse form :S e n ta' funcionando ta' dando erro<% rs.movenextwend%> aqui, se eu colocar o form dpx de fechar a pesquisa, se eu colocar antes do end if da pesquisa da' erro<% while not rsCheckUser.eof %>aqui!

[MAPSantos 0]

pois, minha dificuldade e' mmo essa! vou tentar explicar a minha dificuldade ...

 

este e' o codigo que uso para fazer a pesquisa na BD e mostra ao usuarios os resultados:

 

<%strInputEstadoCl = Request.Form("estado_cl")strInputArea = Request.Form("area")strInputRespcabo = Request.Form("resp_cabo")%>			</p>			<form name="form" method="post" action="clespcontrol.asp?mode=report">			<table width="97%" border="0" align="center">			  <tr>				<td width="37%" class="style6">Estado Cliente: </td>				<td width="30%" class="style6">Area:</td>				<td width="30%" class="style6">Responsável TV Cabo: </td>			  </tr>			  <tr>				<td><span class="style4">				  <select name="estado_cl" size="1" id="estado_cl">					<option value="0" selected>Faça a sua escolha</option>					<option value="Aberto">Aberto</option>					<option value="Pendente - Resp. Cabo">Pendente - Resp.Cabo</option>					<option value="Pendente - Resp. Cl">Pendente - Resp. Cl</option>					<option value="Em feedback">Em feedback</option>					<option value="Fechado">Fechado</option>				  </select>				</span></td>				<td><span class="style4">				  <select name="area" size="1" id="area">					<option value="0">Faça a sua escolha</option>					<option value="DCC/Adm">DCC/Adm</option>					<option value="DCC">DCC</option>					<option value="DCC/Activações">DCC/Activações</option>					<option value="DCC/IG">DCC/IG</option>					<option value="DNI">DNI</option>						  </select>				</span></td>				<td><span class="style4">				  <select name="resp_tvcabo" size="1" id="resp_tvcabo">					<option value="0">Faça a sua escolha</option>					<option value="RF">RF</option>					<option value="RG">RG</option>					<option value="RB">RB</option>						  </select>				</span></td>			  </tr>			  <tr>				<td></td>				<td> </td>				<td><span style="padding-right:20px"> <br>				  <input type="submit" name="Submit" value="Efectuar Pesquisa">				</span></td>			  </tr>			</table>			</form>			<p><%If Request.querystring("mode") = "report" thenSet rsCheckUser = Server.CreateObject("ADODB.Recordset")strSQL = "SELECT * FROM ESPECIAIS WHERE "if (strInputEstadoCl = "0") and (strInputArea = "0") and (strInputRespcabo = "0") thenstrSQL = strSQL + " id > 0 "end ifif (strInputEstadoCl <> "0") thenstrSQL = strSQL + " estado_cl = '" & strInputEstadoCl & "'"selecionado = trueend ifif (strInputArea <> "0") thenif (selecionado) thenstrSQL = strSQL + " AND area = '" & strInputArea & "'"elsestrSQL = strSQL + " area = '" & strInputArea & "'"selecionado = trueend ifend ifif (strInputResptvcabo <> "0") thenif (selecionado) thenstrSQL = strSQL + " AND resp_cabo = '" & strInputRespcabo & "'"elsestrSQL = strSQL + " resp_cabo = '" & strInputRespcabo & "'"selecionado = trueend ifend ifstrSQL = strSQL + "ORDER BY id"rsCheckUser.Open strSQL, adoCon2%>			  				  </p>			<table width="97%" border="0" cellspacing="1">				  <tr>					<td class="style6"><div align="center">ID</div></td>					<td class="style6"><div align="center">Nº Cl </div></td>					<td class="style6"><div align="center">Nome Cliente </div></td>					<td class="style6"><div align="center">Estado Cliente </div></td>					<td class="style6"><div align="center">Passado por </div></td>					<td class="style6"><div align="center">Departamento </div></td>					</tr><%Do While NOT rsCheckUser.EOF%>				  <tr>					<td bgcolor="#FFFFFF" class="style8"><div align="center">					<%Response.Write ("<a href=clespsearch.asp?mode=view&id=")					Response.Write (rsCheckUser("id"))					Response.Write (">")					Response.Write (rsCheckUser("id"))					Response.Write ("</a>")	%>					</div></td>					<td bgcolor="#FFFFFF" class="style8"><div align="center"><%response.Write rsCheckUser("num_cl")%></div></td>					<td bgcolor="#FFFFFF" class="style8"><div align="center"><%response.Write rsCheckUser("nome_cl")%></div></td>					<td bgcolor="#FFFFFF" class="style8"><div align="center">					  <%response.Write rsCheckUser("estado_cl")%>					</div></td>					<td bgcolor="#FFFFFF" class="style8"><div align="center">					  <%response.Write rsCheckUser("resp_cabo")%>					</div></td>					<td bgcolor="#FFFFFF" class="style8"><div align="center">					  <%response.Write rsCheckUser("area")%>					</div>					<div align="center"></div>					  <div align="center"></div></td>					</tr>					  <%rsCheckUser.movenextLooprsCheckUser.CloseSet rsCheckUser = Nothing%></table><%End If%>

e quero adicionar um botao que faça a exportacao da pesquisa para um novo ficheiro clespcontrolxls.asp em que ai usaria o

 

<%

Response.ContentType = "application/vnd.ms-excel"

%>

 

para a exportação para o excel