Impressão

claytonprog · Julho 3, 2006

Galera! To precisando de ajuda. tenho um form onde motro as noticias dai clico na noticia quero que ela apareça em uma pop up para imprimir porém ela só me traz a ultima e não a que eu quero. Aqui estão meus códigos:

---------------------------------------------------------------------------------------------------------------------

form: Noticias Detalhe

function abrir(URL) {

var width = 600;

var height = 450;

var left = 5;

var top = 5;

window.open('imprimir.asp','titulo', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=yes, toolbar=no, location=no, directories=no, menubar=no, resizable=yes, fullscreen=no');

}

</script>

<% AbreConexao

id = request.querystring("id")

SQL = "SELECT * FROM noticias where id_noticia = " & id & " ORDER BY id_noticia DESC"

Set rs = Conexao.Execute(SQL)

While not rs.EOF %>

<img src="<%=rs("foto1")%>" border="3" align="left" hspace="8" vspace="2" width="150" height="110"> <%=rs("data_alt")%>-

<%=Rs("titulo")%>

<%=Rs("texto")%>

<a href="java script:abrir('imprimir.asp?id=<%=id%>');">Clique aqui para imprimir essa notícia!</a>

<% rs.MoveNext

Wend

rs.close

FechaConexao

Set rs = nothing %>

----------------------------------------------------------------------------------------------

form: imprimir.asp

<%

Dados = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("noticias.mdb")

id = request.querystring("id")

sqlstmt = "SELECT * FROM noticias where id_noticia =" & id & " ORDER BY id_noticia"

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

rs.Open sqlstmt, Dados, 3, 3

%>

<%

' Criamos agora uma função que cria as quebras de linha e os parágrafos no texto

Function FormatStr(String)

on Error resume next

String = Replace(String, CHR(13), "")

String = Replace(String, CHR(10) & CHR(10), "   ")

String = Replace(String, CHR(10), "    ")

FormatStr = String

End Function

%>

<html>

<head>

<style>

@page {

@top-left{

content: "";

}

@bottom-center {

content: "";

}

</style>

<title>IMPRESSÃO</title>

</head>

<tr>

<%=rs("Titulo")%></td>

</tr>

<tr>

<%=Formatstr(rs("texto"))%>

Data: (<%=day(rs("data_alt"))%>-<%=month(rs("data_alt"))%>-<%=year(rs("data_alt"))%>)

</td>

</tr>

<tr>

<a href=""">Fechar Janela</a></center>

</td>

</tr>

</table>

</body>

</html>

----------------------------------------------------------------------------------------------

Quem souber por favor me ajudem.

.Andreia. · Julho 3, 2006

Olhando a sua consulta, está certa... então você teria que depurar o codigo até achar o problema. Comece pelo:

sqlstmt = "SELECT * FROM noticias where id_noticia =" & id & " ORDER BY id_noticia"
response.write sqlstmt
response.end
Set rs = Server.CreateObject("ADODB.Recordset")

Jogue no banco pra ver o que retorna

Entrar

Impressão

Pergunta

claytonprog

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

.Andreia.

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades