Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

OsvaldoB

Um sistema de notícias

Por , em ASP Clássico

Recommended Posts

OsvaldoB    0

OsvaldoB
Postado

Por favor me ajudem.Tenho esse código abaixo, para um sistema de inclusão de notícias.Mas quando eu digito colocando, ele fica um padrão, depois que mando para net e dai vou ver.Ele perde todos os ENTERS para ir para próxima linha e tb não fica justificado.Espero que você's possam me ajudar. segue os códigos abaixo tanto para inclusão como o da visualização.Valeu. GaleraCódigo da Inclusão<%'Recupero os dadosmanchete = (Request("manchete"))fonte = (Request("fonte"))imagem = (Request("imagem"))noticia = (Request("noticia"))IF imagem="" THEN imagem="semimagem.gif"END IF'Faço a conexão com o bdcnpath="DBQ=" & Server.MapPath("noticias.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource'Adiciono no bdsqlString = "INSERT INTO Noticias"&_ "(manchete, fonte, imagem, noticia) VALUES ( '" & manchete & "', '" & fonte & "', '" & imagem & "', '" & noticia & "')" Conn.Execute sqlString%><html><head><title>Notícia adicionada com sucesso.</title></head><body><p> </p><p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Notícia adicionada com sucesso.</font></p><p align="center"><a href="admin.asp"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Clique aqui para volta à administração.</font></a></p><div align="center"></div>Código da visualização.<%cnpath="DBQ=" & Server.MapPath("noticias.mdb")DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource'Abre o RecordsetSet RS = Server.CreateObject( "ADODB.Recordset" )RS.ActiveConnection = connRS.open "SELECT * FROM Noticias"%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#FFFFFF" text="#000000"><table width="29%" border="0" cellspacing="0" cellpadding="0"><% if not rs.eof then while not rs.eof %> <tr> <td> <ul> <li> <p style="line-height: 100%; word-spacing: 0; margin-top: -2; margin-bottom: -2"><font face="Verdana" size="1"><a href="ver.asp?id=<%=rs("id")%>"><%=rs("manchete")%></a><br><br></font></p> </li> </ul> </td> <%rs.Movenextwendend if%> </tr></table><font face=verdana size=2> </font> </body></html>E tb queria diminuir o espaço entre uma linha e outra nessa visualização.Valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

No código para exibição das notícias você faz um replace trocando os "enters" por <br>:Replace(RS("seu_campo"),chr(13),"<BR>")

Compartilhar este post

Link para o post
Compartilhar em outros sites

OsvaldoB    0

OsvaldoB
Postado

No código para exibição das notícias você faz um replace trocando os "enters" por <br>:Replace(RS("seu_campo"),chr(13),"<BR>")

Desculpe mais como assim???tem como você postar o codigo alterado para mim??

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Tente:

<%cnpath="DBQ=" & Server.MapPath("noticias.mdb")

DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath

 

Set Conn = Server.CreateObject("ADODB.Connection")

 

Conn.Open DataSource

 

'Abre o Recordset

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

RS.ActiveConnection = conn

RS.open "SELECT * FROM Noticias"

%>

<html>

<head>

<title>Untitled Document</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body bgcolor="#FFFFFF" text="#000000">

<table width="29%" border="0" cellspacing="0" cellpadding="0">

<%if not rs.eof then

while not rs.eof%>

<tr><td><ul><li>

<p style="line-height: 100%; word-spacing: 0; margin-top: -2; margin-bottom: -2"><font face="Verdana" size="1"><a href="ver.asp?id=<%=rs("id")%>"><%=Replace(rs("manchete"),chr(13),"<BR>")%></a><br></font></p>

</li></ul></td></tr>

<%rs.Movenext

wend

end if%>

</table>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

OsvaldoB    0

OsvaldoB
Postado

Tente:

<%cnpath="DBQ=" & Server.MapPath("noticias.mdb")DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource'Abre o RecordsetSet RS = Server.CreateObject( "ADODB.Recordset" )RS.ActiveConnection = connRS.open "SELECT * FROM Noticias"%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#FFFFFF" text="#000000"><table width="29%" border="0" cellspacing="0" cellpadding="0"><%if not rs.eof thenwhile not rs.eof%> <tr><td><ul><li><p style="line-height: 100%; word-spacing: 0; margin-top: -2; margin-bottom: -2"><font face="Verdana" size="1"><a href="ver.asp?id=<%=rs("id")%>"><%=Replace(rs("manchete"),chr(13),"<BR>")%></a><br></font></p></li></ul></td></tr><%rs.Movenextwendend if%></table></body></html>

Realmente espaço entre elas diminuiu bastante, mas quando clico para ver a noticia fica assim.Exemplo.Como digitei.Oficialmente, o Ministério da Saúde não vai interferir em prol de uma mudança no Orçamento 2004 da área, segundo declaração dada ontem pelo titular da pasta, Humberto Costa.Segundo ele, o governo fará uma suplementação de verba, se necessário.Dos R$ 29 bilhões programados para o próximo ano, 12% foram destinados para outros programas que não tinham relação direta com o ministério, como o Fome Zero, o que gera protesto de técnicos e militantes do setor. Para eles, o expediente retira dinheiro que deveria ser aplicado em ações e serviços de saúde. Há, no ministério, entendimento de que despesas com alimentação não podem ser computadas como gastos com saúde. "Vamos trabalhar para mudar isso no Congresso", afirma José Ênio Servilha Duarte, presidente do Conselho de Secretários Municipais de Saúde de São Paulo. Amanhã, integrantes da frente parlamentar de saúde, dos conselhos de secretários e representantes de hospitais universitários discutem o Orçamento em Brasília. E dai aparece assimOficialmente, o Ministério da Saúde não vai interferir em prol de uma mudança no Orçamento 2004 da área, segundo declaração dada ontem pelo titular da pasta, Humberto Costa. Segundo ele, o governo fará uma suplementação de verba, se necessário. Dos R$ 29 bilhões programados para o próximo ano, 12% foram destinados para outros programas que não tinham relação direta com o ministério, como o Fome Zero, o que gera protesto de técnicos e militantes do setor. Para eles, o expediente retira dinheiro que deveria ser aplicado em ações e serviços de saúde. Há, no ministério, entendimento de que despesas com alimentação não podem ser computadas como gastos com saúde. "Vamos trabalhar para mudar isso no Congresso", afirma José Ênio Servilha Duarte, presidente do Conselho de Secretários Municipais de Saúde de São Paulo. Amanhã, integrantes da frente parlamentar de saúde, dos conselhos de secretários e representantes de hospitais universitários discutem o Orçamento em Brasília. O código para ver é assim olha..<%cnpath="DBQ=" & Server.MapPath("noticias.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource'Abre o RecordsetSet RS = Server.CreateObject( "ADODB.Recordset" )RS.ActiveConnection = connset rs=conn.execute("select*from Noticias where id="&request.querystring("id")&"")%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#FFFFFF" text="#000000"><table width="45%" border="1" cellspacing="0" cellpadding="0" bordercolor="#333333"> <tr> <td bgcolor="#666666"><font size="4" color="#FFFFFF"><b><%=rs("manchete")%></b></font></td> </tr> <tr> <td bgcolor="#CCCCCC"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <div align="center"><img src="<%=rs("imagem")%>" border=0></div> </td> </tr> <tr> <td><%=rs("noticia")%></td> </tr> </table> </td> </tr> <tr> <td bgcolor="#CCCCCC"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Fonte:<%=rs("fonte")%></font></td> </tr></table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado
<%cnpath="DBQ=" & Server.MapPath("noticias.mdb")

DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath

 

Set Conn = Server.CreateObject("ADODB.Connection")

 

Conn.Open DataSource

 

'Abre o Recordset

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

RS.ActiveConnection = conn

set rs=conn.execute("select*from Noticias where id="&request.querystring("id")&"")%>

<html>

<head>

<title>Untitled Document</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

 

<body bgcolor="#FFFFFF" text="#000000">

<table width="45%" border="1" cellspacing="0" cellpadding="0" bordercolor="#333333">

<tr>

<td bgcolor="#666666"><font size="4" color="#FFFFFF"><b><%=rs("manchete")%></b></font></td>

</tr>

<tr>

<td bgcolor="#CCCCCC">

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td>

<div align="center"><img src="<%=rs("imagem")%>" border=0></div>

</td>

</tr>

<tr>

<td><%=Replace(rs("noticia"),chr(13),"<BR>")%></td>

</tr>

</table>

</td>

</tr>

<tr>

<td bgcolor="#CCCCCC"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Fonte:<%=rs("fonte")%></font></td>

</tr>

</table>

</body>

</html>

Acho que agora vai!

Compartilhar este post

Link para o post
Compartilhar em outros sites

OsvaldoB    0

OsvaldoB
Postado

<%cnpath="DBQ=" & Server.MapPath("noticias.mdb") DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DataSource'Abre o RecordsetSet RS = Server.CreateObject( "ADODB.Recordset" )RS.ActiveConnection = connset rs=conn.execute("select*from Noticias where id="&request.querystring("id")&"")%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#FFFFFF" text="#000000"><table width="45%" border="1" cellspacing="0" cellpadding="0" bordercolor="#333333"><tr> <td bgcolor="#666666"><font size="4" color="#FFFFFF"><b><%=rs("manchete")%></b></font></td></tr><tr> <td bgcolor="#CCCCCC"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td><div align="center"><img src="<%=rs("imagem")%>" border=0></div></td></tr><tr><td><%=Replace(rs("noticia"),chr(13),"<BR>")%></td></tr></table></td></tr><tr><td bgcolor="#CCCCCC"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Fonte:<%=rs("fonte")%></font></td></tr></table></body></html>

Acho que agora vai!
Desculpa te pertubar d novo.Mas como fasso para colocar a fonte em verdana tamanho 1, e o texto justificado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Coloque a Tag <Font>, com sua configuração, antes do <% e feche depois do %>!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito