1 reply to this topic

[watequate]

Fala pessoal do forum,

baixei um script pronto de mural de recados e estou com dificuldade na hora de adiciona lo no meu site.

Gostaria de coloca lo dentro de uma tabela do meu layout, mas esta acontecendo o seguinte erro: Aparece apenas um recado e qnd clico para aparecer o proximo, ele da erro.

Deem uma olhada: Mural

Esse script soh tem dois arkivos Default e novorecado e mais o db.

Espero que me ajudem.

Abaixo os 2 arkivos.

default.asp

<%@Language="vb script: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="java script:Paginacao(<%=Request.QueryString("Pagina") - 1%>);" disabled>
<%Else%>
<input type="button" name="btnAnterior" value="Anterior" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") - 1%>);">
<%End If%>
<%If rsMuralRecados.EOF Then%>
<input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") + 1%>);" disabled>
<%Else%>
<%If Request.QueryString("Pagina") = "" Then%>
<input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") + 2%>);">
<%Else%>
<input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="java script: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
%>


Novorecado.asp

<%@Language="vb script:document.formIncluir.txtDe.focus();">
<table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center">
<tr>
<td>
<table border="0" align="center">
<form name="formIncluir" method="post" action="NovoRecado.asp">
<tr>
<td>
<font class="Texto2">
De:
</font>
</td>
<td>
<input type="text" name="txtDe" maxlength="35" size="35" class="Form1">
</td>
</tr>
<tr>
<td>
<font class="Texto2">
E-mail:
</font>
</td>
<td>
<input type="text" name="txtEmail" maxlength="35" size="35" class="Form1">
</td>
</tr>
<tr>
<td>
<font class="Texto2">
Para:
</font>
</td>
<td>
<input type="text" name="txtPara" maxlength="35" size="35" class="Form1">
</td>
</tr>
<tr>
<td>
<font class="Texto2">
Mensagem:
<br><br><br><br><br><br>
</font>
</td>
<td>
<textarea name="areaMensagem" class="Form1" cols="34" rows="5"></textarea>
</td>
<td width="5">
</td>
<td>
<table cellpadding="0" cellspacing="0" border="0">
<%For i = 1 to 3%>
<tr>
<%For ii = 1 to 5%>
<%varCont = varCont + 1%>
<td><a href="#"><img src="Imagens/Carinhas/<%=varCont%>.gif" border="0" onClick="java script:Carinhas(formIncluir, <%=varCont%>);"></a></td>
<%If ii <> 5 Then%>
<td width="5">
</td>
<%End If%>
<%Next%>
</tr>
<%If i <> 3 Then%>
<tr>
<td height="5">
</td>
</tr>
<%End If%>
<%Next%>
</table>
</td>
</tr>
<tr>
<td>
</td>
<td>
<input type="button" name="btnColar" value="Colar" class="Form1" onClick="java script:Incluir(formIncluir);">
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</body>
</html>

[Agente Linhares]

creio q vc deva ter inserido o layout incorretamente.

nao adianta, pra fazer esse tp de coisa vc tem q saber um bocado de asp pra saber onde colocar cada item ou code do msmo.

se nao tem muita familiariardade c/ ele, tente dar uma estudada e isso será tarefa simples pra vc.

DICA: use inserir seu code dentro do bbcode