Jump to content

  2. →
  3. →

Photo

Recados

Started By Mateus Tosta, 07/04/2004, 09:21

  • Faça o login para participar
4 replies to this topic

#1 Mateus Tosta

Mateus Tosta

    Normal

  • Usuários
  • 99 posts
  • Sexo:Não informado

Posted 07/04/2004, 09:21

Olá pessoal,

Bem, eu pedi ajuda aqui sobre o meu mural e graças a algumas ajudas, consegui fazer com que o meu mural exibisse na 1ª pág. um dos recados postados, só que agora eu gostaria de delimitar a quantidade do texto que sairá escrito, por exemplo, vamos supor que o cara vai postar a sua mensagem e coloque lá 200 caracteres, o que eu quero é exibir na home a mensagem do cara só que somente uns 100 caracteres. Como posso delimitar este tamanho?

Abaixo tem o meu código da home, onde tem tbm a parte do recado que será postado.

[code=auto:0]
<!--#include file="recados/common.asp" -->
<%
Session.LCID = 1046

'Buffer the response
Response.Buffer = True

'Dimension variables
Dim strName    'Holds the Users name
Dim strpara    'Holds the Users para
Dim strEmailAddress   'Holds the Users e-mail address
Dim strCountry    'Holds the users country
Dim strHomepage   'Holds the Users homepage
Dim strComments   'Holds the Users comments
Dim dtmEntryDate   'Holds the date the commnets where made
Dim intRecordPositionPageNum  'Holds the record position
Dim intRecordLoopCounter  'Loop counter for displaying the guestbook records
Dim intTotalNumGuestbookEntries 'Holds the total number of records in the database
Dim intTotalNumGuestbookPages  'Holds the total number of pages in the database
Dim intLinkPageNum   'Holds the page number to be linked to

If Request.QueryString("PagePosition") = "" Then
intRecordPositionPageNum = 1
Else
intRecordPositionPageNum = CInt(Request.QueryString("PagePosition"))
End If

strSQL = "SELECT " & strDbTable & "Comments.* FROM " & strDbTable & "Comments ORDER BY Date_stamp DESC;"

rsCommon.CursorType = 3
rsCommon.Open strSQL, adoCon
rsCommon.PageSize = intRecordsPerPage
If NOT rsCommon.EOF Then rsCommon.AbsolutePage = intRecordPositionPageNum
%>

<%
Dim sql,username,rsUser,rsMessages,newcount

username = Request.Cookies("username")

'If the username cookie is set, they must have logged in, so get their details from the database
if username <> "" then
%>
<!--#include file="conn.asp"-->
<%
 sql = "SELECT icon FROM Users WHERE username = '" & username & "'"
 Set rsUser = Server.CreateObject("ADODB.Recordset")
 rsUser.Open sql, conn, 3, 3
 
 sql = "SELECT messageread FROM messages WHERE sendto = '" & username & "'"
 Set rsMessages = Server.CreateObject("ADODB.Recordset")
 rsMessages.Open sql, conn, 3, 3
 
 newcount = 0
 if not rsMessages.EOF then
rsMessages.Movefirst
do until rsMessages.EOF
 if rsMessages("messageread") = False then
  newcount = newcount + 1
 end if
 rsMessages.Movenext
loop
rsMessages.Movefirst
 end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="description" content="VIP SEVEN o site da sa balada">
<meta name="keywords" content="vip, promoções, artigos, vipseven, humor, notícias, fotos, eventos, shows, festas, mensagens, gatas, diversão, chat, batepapo, Dj, festa">
<title>:: www.vipseven.com.br ::</title>
<meta name="generator" content="Microsoft FrontPage 5.0">
<link rel="STYLESHEET" type="text/css" href="sistema2.css">
<style>
td, p{font-family: arial,verdana; font-size: 12px; color: black}
.menu{font-family: ms sans serif, verdana,tahoma, verdana; font-size:11px; color:black;}
.planos{font-family: arial,ms sans serif, verdana,tahoma, verdana; font-size:12px; color:black;}
.campo{ font-family: verdana; font-size: 11px; color: black; background-color: #E5E5E5; border-width:1px;}
.botao {background-color: #E2E2E2; color: black; border-color: white; border-width: 1px; font-family: verdana; font-size: 11px;}
select{ font-family: verdana; font-size: 11px; color: black; background-color: #E5E5E5;}
a:link{text-decoration: none; color: black;}
a:visited{text-decoration: none; color: black;}
a:hover{text-decoration: underline;}
p.pesqDom{margin-left: 4px; margin-right: 0px; margin-top: 0px; margin-bottom: 0px; font-family:tahoma; font-size:11px;}
p.avisos{margin-left: 3px; margin-right: 3px; margin-top: 4px; margin-bottom: 4px;}
.caracteristicas{margin-left: 0px; margin-right: 0px; margin-top: 4px; margin-bottom: 4px;}
</style>
<script language="JavaScript" src="funcoes.js" type="text/javascript"></script>
<style>
a {  text-decoration: none}
a:hover {  text-decoration: underline}
a:active {  text-decoration: none}
a:visited {  text-decoration: none}
</STYLE>
<script language="JavaScript1.3">

if (window.Event)
document.captureEvents(Event.MOUSEUP);

function nocontextmenu()
{
event.cancelBubble = true
event.returnValue = false;

return false;
}

function norightclick(e)
{
if (window.Event)
{
if (e.which == 2 || e.which == 3)
return false;
}
else
if (event.button == 2 || event.button == 3)
{
event.cancelBubble = true
event.returnValue = false;
return false;
}

}
if (document.layers) {
document.captureEvents(Event.MOUSEDOWN);
}
document.oncontextmenu = nocontextmenu;
document.onmousedown = norightclick;
document.onmouseup = norightclick;
//-->
</script>

<script language="JavaScript">
<!--
// Copyright (c) 1996 JavaScript On Line
// http://www.geocities.com/SiliconValley/Pines/6535

hoje = new Date()
dia = hoje.getDate()
dias = hoje.getDay()
mes = hoje.getMonth()
ano = hoje.getYear()

if (dia < 10)
 dia = "0" + dia
if (ano < 2000)
               ano = "19" + ano

function CriaArray (n) {

this.length = n }


NomeDia = new CriaArray(7)
NomeDia[0] = "Domingo"
NomeDia[1] = "Segunda-feira"
NomeDia[2] = "Terça-feira"
NomeDia[3] = "Quarta-feira"
NomeDia[4] = "Quinta-feira"
NomeDia[5] = "Sexta-feira"
NomeDia[6] = "Sábado"

//

NomeMes = new CriaArray(12)
NomeMes[0] = "Janeiro"
NomeMes[1] = "Fevereiro"
NomeMes[2] = "Março"
NomeMes[3] = "Abril"
NomeMes[4] = "Maio"
NomeMes[5] = "Junho"
NomeMes[6] = "Julho"
NomeMes[7] = "Agosto"
NomeMes[8] = "Setembro"
NomeMes[9] = "Outubro"
NomeMes[10] = "Novembro"
NomeMes[11] = "Dezembro"

function WriteDate() {

document.write ("" + NomeDia[dias] + ", " + dia + " de " + NomeMes[mes] + " de " + ano + "")
}
//-->
</script>
<script language="JavaScript">
<!--
function na_open_window(name, url, left, top, width, height, toolbar, menubar, statusbar, scrollbar, resizable)
{
 toolbar_str = toolbar ? 'yes' : 'no';
 menubar_str = menubar ? 'yes' : 'no';
 statusbar_str = statusbar ? 'yes' : 'no';
 scrollbar_str = scrollbar ? 'yes' : 'no';
 resizable_str = resizable ? 'yes' : 'no';
 window.open(url, name, 'left='+left+',top='+top+',width='+width+',height='+height+',toolbar='+toolbar_str+',menubar='+menubar_str+',status='+statusbar_str+',scrollbars='+scrollbar_str+',resizable='+resizable_str);
}

// -->
</script>
<STYLE TYPE="text/css">
<!-- /* $WEFT -- Created by: Mateus Tosta (mateustosta@yahoo.com.br) on 26/03/04 -- */
 @font-face {
   font-family: Times New Roman;
   font-style:  normal;
   font-weight: normal;
   src: url(TIMESNE1.eot);
 }
 @font-face {
   font-family: BankGothic Md BT;
   font-style:  normal;
   font-weight: normal;
   src: url(BANKGOT1.eot);
 }
-->
</STYLE>

</head>
<body bgcolor="white" text="black" link="blue" vlink="purple" alink="red" align="center" leftmargin="0" marginwidth="0" topmargin="0" marginheight="0" onload="init();">
<script language="JavaScript" src="sistema1.js"></SCRIPT>
<script language="JavaScript" SRC="sistema3.js"></SCRIPT>
<!-- Popup inicio da página -->
<!-- Popup fim da página -->
<p>
<div align="center">
 <center>
<table style="border-collapse:collapse;" cellspacing="0" width="786" height="429" border="0">
   <tr>
       <td width="99" height="427" rowspan="9" bgcolor="red" style="border-right: 1px solid #FFFFFF; border-top: 1px solid #FFFFFF; ">
           <br>
       </td>
       <td width="729" height="75" colspan="5" bgcolor="black" style="border-left:1px solid white; border-right:1px none white; border-top:1px solid white; border-bottom:1px solid white; ">
           <!--#include file="logotipo.htm"-->
       </td>
       <td width="1" height="75"></td>
   </tr>
   <tr>
       <td width="729" colspan="5" bgcolor="black" style="border-bottom:1px solid #FFFFFF; " height="17">  
           <p>&nbsp;<b><font size=1 face=Verdana color="#FFFFFF">
<script language="JavaScript">WriteDate();</script>
&nbsp;&nbsp;&nbsp;&nbsp;
<a href="index.asp"><img src="top_home[1].gif" border=0 width="69" height="10"></a>
<a href="clicks.asp?url=menufotos.htm"><img src="top_fotos[1].gif" border=0 width="81" height="10"></a>
<a href="clicks.asp?url=recados/default.asp"><img src="top_recados[1].gif" border=0 width="106" height="10"></a>
<a href="signupform.asp" target="_blank"><img src="top_cadastro[1].gif" width="104" height="10" border="0"></a>
<a href="contato.htm"><img src="top_contato[1].gif" border=0 width="104" height="10"></a>
</p>
</td>
       <td width="1" height="16" style="border-bottom: 1px solid #FFFFFF"></td>
   </tr>
   <tr>
       <td width="233" bgcolor="black" style="border-top:1px solid #FFFFFF; border-right-style:none; padding-left:4; padding-right:4" height="1">
<table width="180" cellpadding=3 cellspacing=0 border=1 bordercolor="#000000" align="center">
<%'If they're not logged in, then display a login box
if username = "" then%>

<tr>
 <form name="login" action="signin.asp" method="post">
 <input type="hidden" name="page" value="index.asp">
 <td align="center" bgcolor="black">
 <font face="Verdana,helvetica" size=1 color="#A8A8E8"><b>Login :&nbsp;</b></font><font face="arial,helvetica" size=1><b> <input type="text" name="username" size="13" style="font-size: 8pt; font-family: Tahoma, Verdana Arial, Helvetica, sans-serif;"><br>
 </b></font><font face="Verdana,helvetica" size=1 color="#A8A8E8"><b>Senha :</b></font><font face="arial,helvetica" size=1><b> <input type="password" name="password" size="11" style="font-size: 8pt; font-family: Arial, Helvetica, sans-serif;"><br>
 </b></font><a href="javascript:na_open_window('win', 'senha.htm', 0, 0, 400, 320, 0, 0, 0, 0, 0)" target="_self"><b><font face="Verdana,helvetica" size=1 color="#A8A8E8">Perdi a senha</font></b></a><font face="Verdana,helvetica" size=1 color="#A8A8E8"><b> &nbsp;
                           &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></font><font face="Verdana,helvetica" size=1><b>
 </b></font><b><input type="image" name="ok" src="figuras/ok.gif" width="18" height="15"><br></b>
 </td>
 </form>
</tr>
<%'If they are, show a mini profile box plus a sign out link
else%>
<tr>
 <td bgcolor="black">
 
 <font face="arial,helvetica" size=1><b><img src="icons/<%=rsUser("icon")%>.gif" width=50 height=50 align="right">
 </b></font><font face="Verdana,helvetica" size="2" color="white"><b>Bem Vindo</b></font><font face="arial,helvetica" size=1><b><font size=2 color="white"> <%=username%>.</font><br>
 </b></font><a href="profile.asp"><b><font face="Verdana,helvetica" size=1 color="#A8A8E8">Ver/Editar Dados</font></b></a><font face="Verdana,helvetica" size=1 color="#A8A8E8"><b><br>
 </b></font><a href="inbox.asp"><b><font face="Verdana,helvetica" size=1 color="#A8A8E8">Meu Inbox (nova
                   <%=newcount%>)</font></b></a><font face="Verdana,helvetica" size=1 color="#A8A8E8"><b><br>
 </b></font><a href="users.asp"><b><font face="Verdana,helvetica" size=1 color="#A8A8E8">Ver Lista de usuários</font></b></a><font face="Verdana,helvetica" size=1 color="#A8A8E8"><b><br></b></font><a href="signout.asp"><b><font face="Verdana,helvetica" size=1 color="#A8A8E8">Sair</font></b></a>
 </td>
</tr>
<%
rsUser.close
set rsUser = nothing
rsMessages.close
set rsMessages = nothing
conn.close
set conn = nothing
end if
%>
</table>
     </td>
       <td width="6" height="1" bgcolor="black" style="border-bottom:1px solid #FFFFFF; border-top:1px solid #FFFFFF; border-left-style:none; border-right-style:none; padding-left:4; padding-right:4">
           <p>&nbsp;</p>
       </td>
       <td width="487" height="1" colspan="3" bgcolor="black" style="border-left:1px none white; border-right:1px none white; border-top:1px solid white; border-bottom:1px solid white; ">
<p style="border-collapse:collapse;" align="center">
    <script LANGUAGE="JavaScript" TYPE="text/javascript" SRC="http://banner.wmonline.com.br/java.php?username=vipseven"></SCRIPT>
    </p>
         </td>
       <td width="1" height="1"></td>
   </tr>
   <tr>
       <td width="233" bgcolor="black" style="border-top:1px solid #FFFFFF; padding-left:4; padding-right:4" height="161">
           <table cellSpacing="0" cellPadding="0" width="230" border="0">
<tr>
 <td colSpan="3" style="font-family: arial,verdana; font-size: 12px; color: black">
                       <p><br>
                       <img src="agendavip.gif" width="230" height="27" border="0"></p>
</td>
</tr>
<tr>
 <td height="142" background="welcome_r2_c1[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
 <td vAlign="top" background="images/welcome_r2_c2.gif" style="font-family: arial,verdana; font-size: 12px; color: black">
<p align="justify" style="margin-top: 0; margin-bottom: 0">
<img src="seta.gif" width="12" height="8" border="0"><b><font face="BankGothic Md BT" size="2" color="white">
COBERTURAS / FOTOS<br>
                 </font></b>
<img src="seta.gif" width="12" height="8" border="0"><b><font face="BankGothic Md BT" size="2" color="white">
AGENDADOS<br>
</font></b><img src="seta.gif" width="12" height="8" border="0"><b><font face="BankGothic Md BT" size="2" color="white">
EQUIPE<br>
                 </font></b>
<img src="seta.gif" width="12" height="8" border="0"><b><font face="BankGothic Md BT" size="2" color="white">
BATE-PAPO<br>
                 </font></b>
<img src="seta.gif" width="12" height="8" border="0"><b><font face="BankGothic Md BT" size="2" color="white">
CADASTRO<br>
                 </font></b>
<img src="seta.gif" width="12" height="8" border="0"><b><font face="BankGothic Md BT" size="2" color="white">
ARTIGOS<br>
                 </font></b>
<img src="seta.gif" width="12" height="8" border="0"><b><font face="BankGothic Md BT" size="2" color="white">
RECADOS<br>
                 </font></b>
<img src="seta.gif" width="12" height="8" border="0"><b><font face="BankGothic Md BT" size="2" color="white">
HUMOR<br>
                 </font></b>
<img src="seta.gif" width="12" height="8" border="0"><b><font face="BankGothic Md BT" size="2" color="white">
BANDAS<br>
                 </font></b>
<img src="seta.gif" width="12" height="8" border="0"><b><font face="BankGothic Md BT" size="2" color="white">
TEATRO<br>
                 </font></b>
<img src="seta.gif" width="12" height="8" border="0"><b><font face="BankGothic Md BT" size="2" color="white"> FAÇA
SUA FESTA<br>
                 </font></b>
<img src="seta.gif" width="12" height="8" border="0"><b><font face="BankGothic Md BT" size="2" color="white">
MÚSICAS<br>
</font></b><img src="seta.gif" width="12" height="8" border="0"><b><font face="BankGothic Md BT" size="2" color="white">
ANUNCIE<br>
</font></b><img src="seta.gif" width="12" height="8" border="0"><b><font face="BankGothic Md BT" size="2" color="white">
PARCEIROS<br>
                 </font></b>
<img src="seta.gif" width="12" height="8" border="0"><b><font face="BankGothic Md BT" size="2" color="white">
CONTATO</font></b></td>
 <td background="welcome_r2_c3[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
</tr>
<tr>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c1[1].gif" width="8" border="0" name="welcome_r3_c1"></td>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c2.gif" width="210" border="0" name="welcome_r3_c2"></td>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c3[1].gif" width="12" border="0" name="welcome_r3_c3[1].gif"></td>
</tr>
</table>
       </td>
       <td width="6" height="161" bgcolor="black" style="border-top:1px solid #FFFFFF; padding-left: 4; padding-right: 4; ">
           <p>&nbsp;</p>
  <p>&nbsp;</p>
       </td>
       <td width="235" height="161" bgcolor="black">  
<table cellSpacing="0" cellPadding="0" width="230" border="0">
<tr>
 <td colSpan="3" style="font-family: arial,verdana; font-size: 12px; color: black">
                       <p><br>
                       <img src="agendavip.gif" width="230" height="27" border="0"></p>
</td>
</tr>
<tr>
 <td height="142" background="welcome_r2_c1[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
 <td vAlign="top" background="images/welcome_r2_c2.gif" style="font-family: arial,verdana; font-size: 12px; color: black">
<center>
<p>
<img src="figuras/foto.gif" width="148" height="100" border="0">
<table border="0" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="59">
 <tr>
   <td width="72%" style="font-family: arial,verdana; font-size: 12px; color: black" height="15">
   <b><font color="#FFFFFF" face="BankGothic Md BT" size="2">Chico da Viola</font></b></td>
   <td width="28%" align="right" style="font-family: arial,verdana; font-size: 12px; color: black" height="15">
   <b><font color="#FF0000" face="BankGothic Md BT" size="2">27/03</font></b></td>
 </tr>
 <tr>
   <td width="72%" style="font-family: arial,verdana; font-size: 12px; color: black" height="15">
   <b><font color="#FFFFFF" face="BankGothic Md BT" size="2">Charlie Brown</font></b></td>
   <td width="28%" align="right" style="font-family: arial,verdana; font-size: 12px; color: black" height="15">
   <b><font color="#FF0000" face="BankGothic Md BT" size="2">13/03</font></b></td>
 </tr>
 <tr>
   <td width="72%" style="font-family: arial,verdana; font-size: 12px; color: black" height="12">
   <b><font color="#FFFFFF" face="BankGothic Md BT" size="2">Jammil</font></b></td>
   <td width="28%" align="right" style="font-family: arial,verdana; font-size: 12px; color: black" height="12">
   <b><font color="#FF0000" face="BankGothic Md BT" size="2">12/03</font></b></td>
 </tr>
 <tr>
   <td width="72%" style="font-family: arial,verdana; font-size: 12px; color: black" height="13">
   <b><font color="#FFFFFF" face="BankGothic Md BT" size="2">Festa Colar</font></b></td>
   <td width="28%" align="right" style="font-family: arial,verdana; font-size: 12px; color: black" height="13">
   <b><font color="#FF0000" face="BankGothic Md BT" size="2">25/02</font></b></td>
 </tr>
</table>
</center>
 <a href="clicks.asp?url=agendados.htm">
 <img src="+_red.jpg" width="32" height="33" border="0" align="right"></a><br>
<br>
 </td>
 <td background="welcome_r2_c3[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
</tr>
<tr>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c1[1].gif" width="8" border="0" name="welcome_r3_c1"></td>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c2.gif" width="210" border="0" name="welcome_r3_c2"></td>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c3[1].gif" width="12" border="0" name="welcome_r3_c3[1].gif"></td>
</tr>
</table>
       </td>
       <td width="5" height="161" bgcolor="black">  
           <p>&nbsp;</p>
       </td>
       <td width="243" height="161" bgcolor="black">      <table cellSpacing="0" cellPadding="0" width="230" border="0">
<tr>
 <td colSpan="3" style="font-family: arial,verdana; font-size: 12px; color: black">
                       <p><br>
                       <img src="agendavip.gif" width="230" height="27" border="0"></p>
</td>
</tr>
<tr>
 <td height="142" background="welcome_r2_c1[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
 <td vAlign="top" background="images/welcome_r2_c2.gif" style="font-family: arial,verdana; font-size: 12px; color: black">
<center>
<p>
<img src="figuras/axe.gif" width="170" height="88" border="0"><br>
<font face="BankGothic Md BT" size="3" color="red">:: 02 e 03/04 ::<br>
<br></font>
<font face="BankGothic Md BT" size="2" color="red"><b>Cidade: </b></font>
<font face="BankGothic Md BT" size="2" color=yellow>Belo Horizonte / MG<br></font>
<font face="BankGothic Md BT" size="2" color="red"><b>Local: </b></font>
<font face="BankGothic Md BT" size="2" color="yellow">Estádio Independência<br>
</font>
<font face="BankGothic Md BT" size="2" color="red"><b>Convites: </b></font>
<font face="BankGothic Md BT" size="2" color="yellow">Limão de Gravata<br>
<br>
</font>
<a href="javascript:na_open_window('win', 'info.htm', 0, 0, 624, 520, 0, 0, 0, 1, 0)"><font face="BankGothic Md BT" size="2" color="white"><b><u>mais informações</u></b></font></a>
<br>
<br>
</p>
</center>
 </td>
 <td background="welcome_r2_c3[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
</tr>
<tr>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c1[1].gif" width="8" border="0" name="welcome_r3_c1"></td>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c2.gif" width="210" border="0" name="welcome_r3_c2"></td>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c3[1].gif" width="12" border="0" name="welcome_r3_c3[1].gif"></td>
</tr>
</table>
       </td>
       <td width="1" rowspan="6" height="558"></td>
   </tr>
   <tr>
       <td width="233" bgcolor="black" style="padding-left:4; padding-right:4; border-left-style:none; border-bottom-style:none" height="1">
           &nbsp;</td>
       <td width="6" height="1" bgcolor="black" style="padding-left: 4; padding-right: 4; border-top-color:#FFFFFF">
           &nbsp;</td>
       <td width="235" height="1" bgcolor="black">  
&nbsp;</td>
       <td width="5" height="1" bgcolor="black">  
           &nbsp;</td>
       <td width="243" height="1" bgcolor="black">      &nbsp;</td>
   </tr>
   <tr>
       <td width="233" bgcolor="black" style="padding-left:4; padding-right:4; border-left-color:#FFFFFF; border-top-color:#FFFFFF; border-bottom-color:#FFFFFF" height="155">
           <table cellSpacing="0" cellPadding="0" width="230" border="0">
<tr>
 <td colSpan="3" style="font-family: arial,verdana; font-size: 12px; color: black">
                       <p><img src="agendavip.gif" width="230" height="27" border="0"></p>
</td>
</tr>
<tr>
 <td height="142" background="welcome_r2_c1[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
 <td vAlign="top" background="images/welcome_r2_c2.gif" style="font-family: arial,verdana; font-size: 12px; color: black">
<center>
<p>
<font face="BankGothic Md BT" color="#FFFFFF" size="2"><b>:: Área de Recados ::<br>
Porte aqui o seu recado!</b></font></p>
<%

'For....Next Loop to display records from the guestbook database
For intRecordLoopCounter = 1 to 1

 'If there are no guestbook records left to display then exit loop
 If rsCommon.EOF Then Exit For
       
       'Read in the values form the database
       strName = rsCommon("Name")
  strPara = rsCommon("Para")
       strCountry = rsCommon("Country")
       strEmailAddress = rsCommon("EMail")
       dtmEntryDate = CDate(rsCommon("Date_stamp"))
       strHomepage = rsCommon("Homepage")
       strComments = rsCommon("Comments")
     
               
       'If there is no homepage entry to display the display no URL given
      If strHomepage = "http://" then
       strHomepage = "no URL given"
     
      'Else turn the URL stored in the strHomepage variable into a hyperlink
      Else
       strHomepage = "<a href=""" & strHomepage & """ target=""_blank"">" & strHomepage & "</a>"
      End If
       
       
       'Write the HTML to the web browser to display the guestbook entries
       %>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="83%" id="AutoNumber5" background="recado.gif">
 <tr>
   <td width="100%" height="142">
       <font color="#FF0000" size="2"><b> &nbsp;&nbsp;&nbsp;&nbsp; De: </b></font><font color="#000000" face="Verdana" size="1"><% Response.Write(strName)%></font>
 <br><font color="#ff0000" size="2"><b> &nbsp;&nbsp;&nbsp;&nbsp; Para: </b></font><font color="#000000" face="Verdana" size="1"><% Response.Write(strPara) %></font>
       <br><font color="#ff0000" size="2"><b> &nbsp;&nbsp;&nbsp;&nbsp; Enviado: </b></font><font color="#000000" face="Verdana" size="1"><% = strComments %></font>
   </td>
 </tr>
</table>
<%      
       
       'Move to the next record in the database
    rsCommon.MoveNext

'Loop back round    
Next

'Display an HTML table with links to the other entries in the guestbook

'If there are more pages to display then add a title to the other pages
If intRecordPositionPageNum > 1 or NOT rsCommon.EOF Then
Response.Write vbCrLf & "  "
End If

'If the guestbook page number is higher than page 1 then display a back link    
If intRecordPositionPageNum > 1 Then
Response.Write vbCrLf & ("<a href=""default.asp?PagePosition=" &  intRecordPositionPageNum - 1  & """ target=""_self"">&lt;&lt;&nbsp;Anterior</a>")      
End If      

'If there are more pages to display then display links to all the pages
If intRecordPositionPageNum > 1 or NOT rsCommon.EOF Then

'Display a link for each page in the guestbook      
For intLinkPageNum = 1 to intTotalNumGuestbookPages

 'If there is more than 7 pages display ... last page and exit the loop
  If intLinkPageNum > 15 Then
   If intTotalNumGuestbookPages = intRecordPositionPageNum Then Response.Write(" ..." & intTotalNumGuestbookPages) Else Response.Write(" ...<a href=""default.asp?PagePosition=" &  intTotalNumGuestbookPages  & """ target=""_self"">" & intTotalNumGuestbookPages & "</a>")
   
   'Exit Loop
   Exit For
  'Else display the normal link code
  Else
   'If the page to be linked to is the page displayed then don't make it a hyper-link
  If intLinkPageNum = intRecordPositionPageNum Then Response.Write(" " & intLinkPageNum) Else Response.Write("&nbsp;<a href=""default.asp?PagePosition=" &  intLinkPageNum  & """ target=""_self"">" & intLinkPageNum & "</a>")
  End If
Next
End If

'Finsh HTML the table
%>
  <%

'Reset Server Variables
rsCommon.Close
Set rsCommon = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<b>
<a href="RECADOS/sign.asp" target="_self"><font face="BankGothic Md BT" size="2" color=yellow>:: Escrever ::</font></a><br>
<a href="RECADOS/default.asp"><font face="BankGothic Md BT" size="2" color=yellow>:: Ler ::</font></a></b>
</center>
 </td>
 <td background="welcome_r2_c3[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
</tr>
<tr>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c1[1].gif" width="8" border="0" name="welcome_r3_c1"></td>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c2.gif" width="210" border="0" name="welcome_r3_c2"></td>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c3[1].gif" width="12" border="0" name="welcome_r3_c3[1].gif"></td>
</tr>
</table>
       </td>
       <td width="6" height="155" bgcolor="black" style="padding-left: 4; padding-right: 4; border-left-style:none; ">
           &nbsp;</td>
       <td width="235" height="155" bgcolor="black">  
<table cellSpacing="0" cellPadding="0" width="230" border="0">
<tr>
 <td colSpan="3" style="font-family: arial,verdana; font-size: 12px; color: black">
                       <p><img src="agendavip.gif" width="230" height="27" border="0"></p>
</td>
</tr>
<tr>
 <td height="142" background="welcome_r2_c1[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
 <td vAlign="top" background="images/welcome_r2_c2.gif" style="font-family: arial,verdana; font-size: 12px; color: black">
<center>
<p>
     <font face="BankGothic Md BT" size="3" color="red">Faça novas amizades no
mais novo e agitado bate-papo da cidade de Sete Lagoas e região.</font></p>
<form method="POST" action="--WEBBOT-SELF--">
 <!--webbot bot="SaveResults" u-file="../_private/form_results.csv" s-format="TEXT/CSV" s-label-fields="TRUE" startspan --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--webbot bot="SaveResults" endspan i-checksum="43374" --><p>
 <font face="BankGothic Md BT" size="2" color="red"><b>LOGIN: </b>
     </font><font face="BankGothic Md BT">
 <input type="text" name="T1" size="14"></font></p>
</form>
<p>
<font face="BankGothic Md BT" size="2" color="yellow"><br>
Aguarde alguns segundos o
carregamento total do bate-papo VIP e aproveite para conhecer várias pessoas!<br>
     &nbsp;</font></p>
</center>
 </td>
 <td background="welcome_r2_c3[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
</tr>
<tr>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c1[1].gif" width="8" border="0" name="welcome_r3_c1"></td>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c2.gif" width="210" border="0" name="welcome_r3_c2"></td>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c3[1].gif" width="12" border="0" name="welcome_r3_c3[1].gif"></td>
</tr>
</table>
       </td>
       <td width="5" height="155" bgcolor="black">  
           &nbsp;</td>
       <td width="243" height="155" bgcolor="black">      <table cellSpacing="0" cellPadding="0" width="230" border="0">
<tr>
 <td colSpan="3" style="font-family: arial,verdana; font-size: 12px; color: black">
                       <p><img src="agendavip.gif" width="230" height="27" border="0"></p>
</td>
</tr>
<tr>
 <td height="142" background="welcome_r2_c1[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
 <td vAlign="top" background="images/welcome_r2_c2.gif" style="font-family: arial,verdana; font-size: 12px; color: black">
<center>
<p>
<img src="figuras/axe.gif" width="170" height="88" border="0"><br>
<font face="BankGothic Md BT" size="3" color="red">:: 02 e 03/04 ::<br>
<br></font>
<font face="BankGothic Md BT" size="2" color="red"><b>Cidade: </b></font>
<font face="BankGothic Md BT" size="2" color=yellow>Belo Horizonte / MG<br></font>
<font face="BankGothic Md BT" size="2" color="red"><b>Local: </b></font>
<font face="BankGothic Md BT" size="2" color="yellow">Estádio Independência<br>
</font>
<font face="BankGothic Md BT" size="2" color="red"><b>Convites: </b></font>
<font face="BankGothic Md BT" size="2" color="yellow">Limão de Gravata<br>
<br>
</font>
<a href="javascript:na_open_window('win', 'info.htm', 0, 0, 624, 520, 0, 0, 0, 1, 0)"><font face="BankGothic Md BT" size="2" color="white"><b><u>mais informações</u></b></font></a><br>
<br>
</p>
</center>
 </td>
 <td background="welcome_r2_c3[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
</tr>
<tr>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c1[1].gif" width="8" border="0" name="welcome_r3_c1"></td>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c2.gif" width="210" border="0" name="welcome_r3_c2"></td>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c3[1].gif" width="12" border="0" name="welcome_r3_c3[1].gif"></td>
</tr>
</table>
       </td>
   </tr>
   <tr>
       <td width="233" bgcolor="black" style="border-style:none; padding-left:4; padding-right:4" height="1">
           &nbsp;</td>
       <td width="6" height="1" bgcolor="black" style="padding-left: 4; padding-right: 4; border-left-style:none">
           &nbsp;</td>
       <td width="235" height="1" bgcolor="black">  
&nbsp;</td>
       <td width="5" height="1" bgcolor="black">  
           &nbsp;</td>
       <td width="243" height="1" bgcolor="black">      &nbsp;</td>
   </tr>
   <tr>
       <td width="233" bgcolor="black" style="border-left:1px solid #FFFFFF; border-right-style:none; padding-left:4; padding-right:4" height="173">
           <table cellSpacing="0" cellPadding="0" width="230" border="0">
<tr>
 <td colSpan="3" style="font-family: arial,verdana; font-size: 12px; color: black">
                       <p><img src="agendavip.gif" width="230" height="27" border="0"></p>
</td>
</tr>
<tr>
 <td height="142" background="welcome_r2_c1[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
 <td vAlign="top" background="images/welcome_r2_c2.gif" style="font-family: arial,verdana; font-size: 12px; color: black">
<center>
<p>
<b>
<font face="BankGothic Md BT" size="3" color="red">O que você achou do show do
Jammil no Parque de Exposições JK?</font></b></p>
<form method="POST" action="--WEBBOT-SELF--">
 <!--webbot bot="SaveResults" u-file="../_private/form_results.csv" s-format="TEXT/CSV" s-label-fields="TRUE" startspan --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="1"><!--webbot bot="SaveResults" endspan i-checksum="43406" --><p align="justify">
 <font size="3">
 <input type="radio" value="V5" name="R1"></font><b><font face="BankGothic Md BT" size="3" color="#FFFF00">
 Ótimo<br>
 </font>
 </b><font size="3"><input type="radio" value="V6" name="R1"></font><b><font face="BankGothic Md BT" size="3" color="yellow">
 Bom</font></b><font size="3"><br>
 <input type="radio" value="V7" name="R1"> </font> <b>
<font face="BankGothic Md BT" size="3" color="yellow">Razoável</font></b><font size="3"><br>
 <input type="radio" value="V8" checked name="R1"> </font> <b>
<font face="BankGothic Md BT" size="3" color="yellow">Ruim</font></b></p>
</form>
<p><b>
<font face="BankGothic Md BT" size="2" color="yellow">:: Parcial</font><font color="#FFFF00" size="2" face="BankGothic Md BT">
::&nbsp;&nbsp;&nbsp;
:: Votar ::<br>
&nbsp;</font></b></center>
 </td>
 <td background="welcome_r2_c3[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
</tr>
<tr>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c1[1].gif" width="8" border="0" name="welcome_r3_c1"></td>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c2.gif" width="210" border="0" name="welcome_r3_c2"></td>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c3[1].gif" width="12" border="0" name="welcome_r3_c3[1].gif"></td>
</tr>
</table>
       </td>
       <td width="6" height="173" bgcolor="black" style="padding-left: 4; padding-right: 4; border-left-style:none; border-top-color:#FFFFFF; border-bottom-style:none">
           &nbsp;</td>
       <td width="235" height="173" bgcolor="black">  
<table cellSpacing="0" cellPadding="0" width="230" border="0">
<tr>
 <td colSpan="3" style="font-family: arial,verdana; font-size: 12px; color: black">
                       <p><img src="agendavip.gif" width="230" height="27" border="0"></p>
</td>
</tr>
<tr>
 <td height="142" background="welcome_r2_c1[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
 <td vAlign="top" background="images/welcome_r2_c2.gif" style="font-family: arial,verdana; font-size: 12px; color: black">
<center><img src="figuras/gatasnasbaladas.gif" width="164" height="54" border="0"></center>
<div align="right"><a class=white_red><font color='#FF0000' face='Verdana' size="2">www.vipseven.com.br</font></a></div>
<center><br>
<a href="clicks.asp?url=gatasvip.htm"><img src="figuras/gatas.gif" width="150" height="113" border="0"></a><br>
&nbsp;</center>
 </td>
 <td background="welcome_r2_c3[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
</tr>
<tr>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c1[1].gif" width="8" border="0" name="welcome_r3_c1"></td>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c2.gif" width="210" border="0" name="welcome_r3_c2"></td>
 <td style="font-family: arial,verdana; font-size: 12px; color: black"><img height="9" src="welcome_r3_c3[1].gif" width="12" border="0" name="welcome_r3_c3[1].gif"></td>
</tr>
</table>
       </td>
       <td width="5" height="173" bgcolor="black">  
           &nbsp;</td>
       <td width="243" height="173" bgcolor="black">      <table cellSpacing="0" cellPadding="0" width="230" border="0">
<tr>
 <td colSpan="3" style="font-family: arial,verdana; font-size: 12px; color: black">
                       <p><img src="agendavip.gif" width="230" height="27" border="0"></p>
</td>
</tr>
<tr>
 <td height="142" background="welcome_r2_c1[1].gif" style="font-family: arial,verdana; font-size: 12px; color: black">&nbsp;</td>
 <td vAlign="top" background="images/welcome_r2_c2.gif" style="font-family: arial,verdana; font-size: 12px; color: black">
<table height='100%' cellSpacing='0' cellPadding='0' width='100%' style="border-collapse:collapse;"><tr>
 <td vAlign='top' width="11" height='100%' style="border:1px solid black; font-family:arial,verdana; font-size:12px; color:black">&nbsp;</td>
 <td width="95%&
Ninja
Websis - arte & tecnologia
VIP Seven

#2 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 07/04/2004, 09:30

para delimitar uma quantidade de caracteres é só voce usar o left ele corta o seu caracter da esquerda pra direita ex:

response.write left(texto, 100)

www.andrewsmedina.com.br

#3 Mateus Tosta

Mateus Tosta

    Normal

  • Usuários
  • 99 posts
  • Sexo:Não informado

Posted 07/04/2004, 09:41

Caro Cybermix, agora entendi, mas posso aplicar este Left em qualquer local ou tenho que aplicá-lo no campo da mensagem?
Ninja
Websis - arte & tecnologia
VIP Seven

#4 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 07/04/2004, 10:06

voce aplica na hora em que for exibir qualquer texto, pode ser campo de mensagem, uma variavel do tipo texto, etc
www.andrewsmedina.com.br

#5 Mateus Tosta

Mateus Tosta

    Normal

  • Usuários
  • 99 posts
  • Sexo:Não informado

Posted 07/04/2004, 10:27

Ok, entendi! Vlw!
Ninja
Websis - arte & tecnologia
VIP Seven
Voltar para ASP


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq