Sign in to follow this  
ROLLL!!!!

Livro De Visitas - Enfim Consegui, Mas...

Recommended Posts

Galera, fiz meu livro de visitas e tudo mais, ainda estou testando ele pelo iis...só que está acontecendo um lance meio "pé no saco" aqui:

Meus comentários estão ficando um do lado do outro....como faço pra que os posts fiquem um embaixo do outro, cmo em todo site que tem esse lance...como faço isso??!

Obrigado!!!

abraços!

:)

Share this post


Link to post
Share on other sites

Então vai, mas é um pouco grande, beleza?

essa é a pág onde visualizamos o comentário..

lá vai entãoo!

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="Connections/config.asp" -->

<%

Dim Visualizar

Dim Visualizar_numRows

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

Visualizar.ActiveConnection = MM_config_STRING

Visualizar.Source = "SELECT * FROM guestbook ORDER BY ID DESC"

Visualizar.CursorType = 0

Visualizar.CursorLocation = 2

Visualizar.LockType = 1

Visualizar.Open()

Visualizar_numRows = 0

%>

<%

Dim Repeat1__numRows

Dim Repeat1__index

Repeat1__numRows = -1

Repeat1__index = 0

Visualizar_numRows = Visualizar_numRows + Repeat1__numRows

%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">

<head>

<title>Untitled Document</title>

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

</head>

<body>

<div align="center">

<%

While ((Repeat1__numRows <> 0) AND (NOT Visualizar.EOF))

%>

<table width="419" height="131" border="0" align="left" cellpadding="0" cellspacing="0">

<tr>

<td width="106" height="27">Nome</td>

<td width="313" valign="top"><div align="right">

<table width="314" height="27" border="0" cellpadding="0" cellspacing="0">

<tr>

<td width="219"><%=(Visualizar.Fields.Item("nome").Value)%></td>

<td width="94"><%=(Visualizar.Fields.Item("data").Value)%></td>

</tr>

</table>

</div></td>

</tr>

<tr>

<td>E-mail</td>

<a href="mailto:<%=(Visualizar.Fields.Item("email").Value)%>">

<td><%=(Visualizar.Fields.Item("email").Value)%></td>

</tr>

<tr>

<td>Site</td>

<a href="<%=(Visualizar.Fields.Item("site").Value)%>">

<td><%=(Visualizar.Fields.Item("site").Value)%></td>

</tr>

<tr>

<td>Coment&aacute;rio</td>

<td><%=(Visualizar.Fields.Item("comentarios").Value)%></td>

</tr>

<tr>

<td>Respostas</td>

<td><div align="left"><%=(Visualizar.Fields.Item("respostas").Value)%></div></td>

</tr>

</table>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

Visualizar.MoveNext()

Wend

%>

</div>

</body>

</html>

<%

Visualizar.Close()

Set Visualizar = Nothing

%>

Share this post


Link to post
Share on other sites

Galera, tava meio que parado nesse assunto aqui, mas tive que voltar...

Coloquei meus posts do meu guestbook dentro de uma tabela pra ver se eles ficariam um embaixo do outro, mas infelizmente não consegui isso ainda e os posts do no guestbook ainda continuam ficando um do lado do outro...

Alguém saberia me dizer qual é o lance que eu vo ter que fazer pra resolver isso?????

Abraçooooo!!!!

:)

Share this post


Link to post
Share on other sites

Coloca a tag <br> no final de cada comentário

vê aqui no código, dexei indicada a linha...

você coloca a quantidade de <br> de acordo com o espaço que quizer entre um post e outro

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/config.asp" -->
<%
Dim Visualizar
Dim Visualizar_numRows

Set Visualizar = Server.CreateObject("ADODB.Recordset")
Visualizar.ActiveConnection = MM_config_STRING
Visualizar.Source = "SELECT * FROM guestbook ORDER BY ID DESC"
Visualizar.CursorType = 0
Visualizar.CursorLocation = 2
Visualizar.LockType = 1
Visualizar.Open()

Visualizar_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Visualizar_numRows = Visualizar_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>

<body>

<div align="center">
<% 
While ((Repeat1__numRows <> 0) AND (NOT Visualizar.EOF)) 
%>
<table width="419" height="131" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td width="106" height="27">Nome</td>
<td width="313" valign="top"><div align="right">
<table width="314" height="27" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="219"><%=(Visualizar.Fields.Item("nome").Value)%></td>
<td width="94"><%=(Visualizar.Fields.Item("data").Value)%></td>
</tr>
</table>
</div></td>
</tr>
<tr>
<td>E-mail</td>
<a href="mailto:<%=(Visualizar.Fields.Item("email").Value)%>">
<td><%=(Visualizar.Fields.Item("email").Value)%></td>
</tr>
<tr>
<td>Site</td>
<a href="<%=(Visualizar.Fields.Item("site").Value)%>">
<td><%=(Visualizar.Fields.Item("site").Value)%></td>
</tr>
<tr>
<td>Coment&aacute;rio</td>
<td><%=(Visualizar.Fields.Item("comentarios").Value)%></td>
</tr>
<tr>
<td>Respostas</td>
<td><div align="left"><%=(Visualizar.Fields.Item("respostas").Value)%></div></td>
</tr>
</table>
<br><br> <!-- ESTA LINHA -->
<% 
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Visualizar.MoveNext()
Wend
%>
</div>
</body>
</html>
<%
Visualizar.Close()
Set Visualizar = Nothing
%>

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this