Word E O Asp

cokita · Setembro 24, 2004

Por favor galera me ajudem...

O problema é o seguinte: eu tenho uma tela que é a de consulta.asp nela tem uma combo e dois campos de textos para se pesquisar entre datas, quando eu clico em pesquisar ele vai para outra tela mostrando o resultado da consulta, nessa pagina de resultado de consulta tem um botão, ao clicar no botão ele tem que abrir essa tela de resultado no word. alguém pode me ajudar?

Abraços

Agradeço desde já...

Cokita

cyberalexxx · Setembro 24, 2004

é só usar:

<% Response.ContentType = "application/msword" %>

no inicio do arquivo ASP

bareta · Setembro 24, 2004

talvez isso possa te ajudar:

http://scriptbrasil.com.br/forum/index.php...ndpost&p=129736

cokita · Setembro 27, 2004

Olha só, eu coloquei

<% Response.ContentType = "application/msword" %>

Mas ele só funciona com apenas um registro do banco, se eu colocar o enquanto pra mostrar todos os campos que existem no banco de acordo com a consulta, ele não aparece nada só o titulo (mas no word) a linha que eu pedi para que ele repetisse ele não aparece! Meu código está abaixo, por favor me ajudem Obrigada. Cokita

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/ObjConn.asp" -->

<% Response.ContentType = "application/msword" %> 


<%
Dim dataIni
dataIni = "01/01/1900"
If (Request("txtDtVencimentoIni2")  <> "") Then 
  dataIni = Request("txtDtVencimentoIni2") 
End If
%>
<%
Dim dataFim
dataFim = "12/31/2070"
If (Request("txtDtVencimentoFim2")  <> "") Then 
  dataFim = Request("txtDtVencimentoFim2") 
End If
%>
<%
Dim situacao1
situacao1 = "null"
If (Request("ccbSituacao")  <> "") Then 
  situacao1 = Request("ccbSituacao") 
End If
%>

<%
Dim rsC
Dim num_linhas_rs

Set rsC = Server.CreateObject("ADODB.Recordset")
rsC.ActiveConnection = MM_ObjConn_STRING
rsC.Source = "SELECT *  FROM dbo.VW_CONSULTA_PROCESSO_RELATORIO  WHERE (DT_PRAZO BETWEEN '" + Replace(dataIni, "'", "''") + "' and '" + Replace(dataFim, "'", "''") + "' OR DT_PRAZO IS NULL)  AND (SITUACAO LIKE '%'+'" + Replace(situacao1, "'", "''") + "'+'%' OR SITUACAO IS NULL)  ORDER BY DT_PRAZO DESC"
rsC.CursorType = 0
rsC.CursorLocation = 2
rsC.LockType = 1
rsC.Open()

num_linhas_rs = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
rsC_numRows = rsC_numRows + Repeat1__numRows
%>
<HTML>
<style type="text/css">
<!--
.style5 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; font-weight: bold; }
.style8 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; }
-->
</style>
<BODY>
<table width="540">
  <tr>
    <td width="236" height="35"><div align="center"><span class="style5">N&uacute;mero</span></div></td>
    <td width="304" height="35"><div align="center"><span class="style5">Interessado</span></div></td>
  </tr>
  <% 
While ((Repeat1__numRows <> 0) AND (NOT rsC.EOF)) 
%>
  <tr>
    <td height="35"><%=(rsC.Fields.Item("NUM_PROC").Value)%></td>
    <td height="35"><%=(rsC.Fields.Item("NOME_INT").Value)%></td>
  </tr>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsC.MoveNext()
Wend
%>

  <tr>
    <td height="35" colspan="2">&nbsp;</td>
</tr>
</table>
</BODY>
</HTML>
<%
rsC.Close()
Set rsC = Nothing
%>

cokita · Setembro 27, 2004

Desculpe mas esqueci de falar que no código acima eu estou mandando direto para o word, sendo que tem que aparecer primeiro no browser primeiro e so quando clicar no botão que ele tem que ir para o word.

Como seria? No onclick do botão?

Obrigada!

Cokita

<input type="button" value="Imprimir" onClick = ...(o que?)>

Entrar

Word E O Asp

Pergunta

cokita

Link para o comentário

Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

cyberalexxx

Link para o comentário

Compartilhar em outros sites

bareta

Link para o comentário

Compartilhar em outros sites

cokita

Link para o comentário

Compartilhar em outros sites

cokita

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades