Quebra de linha em Mural de recados
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
%>
Discussão (4)
Carregando comentários...