Ir para conteúdo

POWERED BY:

Arquivado

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

selmo

Quebra de linha em Mural de recados

Por , em ASP Clássico

Recommended Posts

selmo    0

selmo
Postado

Pessoal

 

baium scipt de mural e o mesmo não tem quebra de linha o tento parece ser infinio pata a direita

que colocar em meu site mas não sei como resolver isso, segue o cod.

 

<%@Language="VBScript"%>
<%Option Explicit%>
<%Response.Expires = 0%>

<%
	'Fabio Alves
	'fabiocd.pe@bol.com.br
	'Mural de recados
	'26/03/2005
%>

<%
	Dim objConn
	Dim varConn
	Dim varSql
	Dim rsMuralRecados
	Dim i
	
	'Cria a conexão com a base de dados
	Set objConn = Server.CreateObject("ADODB.Connection")
	varConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Dados\BDMuralRecados.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="
	objConn.Open varConn
	
	'Seleciona todos os registros ordenando pelo ID
	varSql = "SELECT * "
	varSql = varSql & "FROM MuralRecados "
	varSql = varSql & "ORDER BY IdRecado DESC "
	
	'Seta a variável e define as propriedas
	Set rsMuralRecados = Server.CreateObject("ADODB.Recordset")
	rsMuralRecados.CursorType = 0
	rsMuralRecados.CursorLocation = 3
	rsMuralRecados.LockType = 3
	rsMuralRecados.PageSize = 7
	rsMuralRecados.CacheSize = 7
	rsMuralRecados.Open varSql, objConn
	
	'Verifica qual página deve ser exibida
	If Request.QueryString("Pagina") <> "" Then
		rsMuralRecados.AbsolutePage = Request.QueryString("Pagina")
	Else
		If Not rsMuralRecados.EOF Then
			rsMuralRecados.AbsolutePage = 1
		End If
	End If
%>

<html>
	<head>
		<title>
			:::... FABIO CD ...::: - Mural Recados
		</title>
        <style type="text/css">
		<!--
			a:active{
				text-decoration: none;
				color: #333333;
			}
			a:hover{
				text-decoration: none;
				color: #000000;
			}
			a:link{
				text-decoration: none;
				color: #333333;
			}
			a:visited{
				text-decoration: none;
				color: #333333;
			}
			.Texto1{
				font-family: Verdana;
				font-size: 10px;
				font-weight: none;
				color: #000000;
				text-decoration: none;
			}
			.Texto2{
				font-family: Verdana;
				font-size: 10px;
				font-weight: bold;
				color: #000000;
				text-decoration: none;
			}
			.Borda1{
				border: 1px solid #999999;
			}
			.Form1{
				border: 1px solid #999999;
				font-family: Verdana;
				font-size: 10px;
				color: #000000;
				text-decoration: none;
				background-color: #F4F4F4;
			}
		-->
		</style>
		<script language="JavaScript">
		<!--
			function Paginacao(varPagina){
				window.location = ("Default.asp?Pagina=" + varPagina);
			}
			
			function NovoRecado(){
				window.open ("NovoRecado.asp", "NovoRecado", "width = 480, height = 240, top = 25, left = 25");
			}
		-->
		</script>
	</head>
	<body>
		<table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center">
			<tr>
				<td align="center" valign="middle">
					<table cellpadding="0" cellspacing="0" border="0" width="500" align="center">
						<%For i = 1 to rsMuralRecados.PagesiZe%>
							<%If rsMuralRecados.EOF = False Then%>
								<tr>
									<td>
										<table border="0" width="100%" background="fundo.gif">
											<tr>
												<td>
													<font class="Texto2">
														Data/Hora Envio:
													</font>
													<font class="Texto1">
														<%=rsMuralRecados.Fields("DataInclusao") & " - " & rsMuralRecados.Fields("HoraInclusao")%>
													</font>
												</td>
											</tr>
											<tr>
												<td>
													<font class="Texto2">
														De:
													</font>
													<font class="Texto1">
														<%=rsMuralRecados.Fields("De")%>
													</font>
												</td>
											</tr>
                                            <tr>
												<td>
                                                    <font class="Texto2">Email:
													</font>
													<font class="Texto1">
														<%=rsMuralRecados.Fields("Email")%>
													</font>
												</td>
                                            </tr>
											<tr>
												<td>
													<font class="Texto2">
														Para:
													</font>
													<font class="Texto1">
														<%=rsMuralRecados.Fields("Para")%>
													</font>
												</td>
											</tr>
											<tr>
												<td>
													<font class="Texto2">
														Mensagem:
													</font>
													<font class="Texto1">
														<%=rsMuralRecados.Fields("Mensagem")%>
													</font>
												</td>
											</tr>
											<%rsMuralRecados.MoveNext%>
											<%If i <> rsMuralRecados.PageSize and NOT rsMuralRecados.EOF Then%>
												<tr>
													<td height="5">
													</td>
												</tr>
												<tr>
													<td height="1" bgcolor="#CCCCCC">
													</td>
												</tr>
												<tr>
													<td height="5">
													</td>
												</tr>
											<%End If%>
										</table>
									</td>
								</tr>
							<%End If%>
						<%Next%>
							<tr>
								<td height="20">
								</td>
							</tr>
							<tr>
								<td height="20">
									<table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center">
										<tr>
											<td>
												<input type="button" name="btnNovoRecado" value="Postar Novo Recado" class="Form1" onClick="JavaScript:NovoRecado();">
											</td>
											<td align="right">
												<%If Request.QueryString("Pagina") = 1 or Request.QueryString("Pagina") = "" Then%>
													<input type="button" name="btnAnterior" value="Anterior" class="Form1" onClick="JavaScript:Paginacao(<%=Request.QueryString("Pagina") - 1%>);" disabled>
												<%Else%>
													<input type="button" name="btnAnterior" value="Anterior" class="Form1" onClick="JavaScript:Paginacao(<%=Request.QueryString("Pagina") - 1%>);">
												<%End If%>
												<%If rsMuralRecados.EOF Then%>
													<input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="JavaScript:Paginacao(<%=Request.QueryString("Pagina") + 1%>);" disabled>
												<%Else%>
													<%If Request.QueryString("Pagina") = "" Then%>
														<input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="JavaScript:Paginacao(<%=Request.QueryString("Pagina") + 2%>);">
													<%Else%>
														<input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="JavaScript:Paginacao(<%=Request.QueryString("Pagina") + 1%>);">
													<%End If%>
												<%End If%>
											</td>
										</tr>
									</table>
								</td>
							</tr>
					</table>
				</td>
			</tr>
		</table>
	</body>
</html>

<%
	rsMuralRecados.Close
	Set rsMuralRecados = Nothing
	objConn.Close
	Set objConn = Nothing
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

selmo    0

selmo
Postado

Pessoal, antes de qualquer resposta me desculpem pela postagem no lugar errado...

eram mais de cinco da matina e eu ainda não tinhã me deitado. Quem posata direiro uma hora dessas? rsrsrs.

Agradeço pela compreensão.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Tópico Movido

 

Origem: Laboratório de scripts (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Destino: ASP

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gilberto Jr    26

Gilberto Jr
Postado

Velho, o que voce pode fazer é limitar a largura da sua div ou tabela ou o que seja, pois quando o texto atingir o tamanho da div ou tabela ele vai pular para a linha de baixo.

 

abraço

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você pode limitar o tamanho do texto na caixa e independente disso adicionar uma quebra de texto no campo, trocando o <enter> por <br>

mas o user terá que dar o enter, caso ele não adicione, use uma função para dra uma quebra automática no texto, existem aslguns exemplos no fórum pode te ajudar, inclusive uma função chamada tres pontinhos

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