O Que Esta Errado Neste Codigo?

renanj · Abril 25, 2004

Acho q tem alguma coisa haver com os ponteiros......

-------------------------------------------------------------------------------------

<%

'Abre a conexão com o banco de dados

Set Conex = Server.CreateObject ("ADODB.Connection")

Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("database/dados.mdb")

'Lista o conteúdo do banco de dados

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

sql = "Select * from mensagens"

listar.open sql, conex, 1,1

'Contamos quantos registros existem no banco

torpedos = listar.Recordcount

%>

<html>

<head>

<title>-_-_-_-_-_-_-   LIVRO DE VISITAS   _-_-_-_-_-</title>

<!--

a:link {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

color: #CCCCCC;

text-decoration: none;

}

a:visited {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

color: #CCCCCC;

text-decoration: none;

}

a:hover {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

color: #CCCCCC;

text-decoration: underline;

}

a:active {

font-family: Verdana, Arial, Helvetica, sans-serif;

font-size: 11px;

color: #CCCCCC;

text-decoration: none;

}

-->

</style>

</head>

function janela(popupfile,winheight,winwidth)

{

open(popupfile,"PopupWindow","resizable=no,height=" + winheight + ",width=" + winwidth + ",scrollbars=no");

}

</script>

<tr>

<a href="javascript:janela('nova_mensagem.asp',400,500)" onClick="">Escrever

Nova

mensagem</a></td>

<p align="center"> <a onClick href="admin/index.asp">Administração</a></td>

</tr>

</table>

<br>

</div>

<br>

<%if listar.eof then%>

</p>

<br>

<font color="#CCCCCC" size="2" face="Verdana, Arial, Helvetica, sans-serif">Não

há mensagens!</font></div>

<br>

<%else%>

<%listar.movelast%>

<%while not listar.eof%>

 <p>

<font color="#CCCCCC" size="1" face="Verdana, Arial, Helvetica, sans-serif">Estamos

com <%response.Write(torpedos)

if torpedos = 1 then response.Write(" torpedo.") else response.Write(" torpedos.") end if%></font></p>

- <%=listar("hora")%>  </font></strong></div></td>

</tr>

</tr>

<tr>

</tr>

<tr>

</font>

<a href="<%=listar("site")%>" target="_blank"><img src="imagens/site.gif" width="19" height="17" border="0"></font></a></div>

</tr>

</table></td>

</tr>

</tr>

<%listar.moveprevious

wend%>

<%listar.close%>

</table>

<font color="#CCCCCC" size="1" face="Verdana, Arial, Helvetica, sans-serif">Estamos

com <%response.Write(torpedos)

if torpedos = 1 then response.Write(" torpedo.") else response.Write(" torpedos.") end if%> </font></div>

<%end if%>

</p>

--------------------------------------------------------- <br>

Os Tico - Tico Fuzilado</font></div>

</body>

</html>

Editado Abril 25, 2004 por renanj

dark0 · Abril 25, 2004

dá algum erro?

antes de quebrar a cabeça procurando no codigo..

Victor · Abril 25, 2004

A endereço virtual do seu banco de dados está certo??

[]'s

Victor

renanj · Abril 25, 2004

Ow, valeu já consegui, era so apontar para o final do arquivo e mandar o ponteiro ir subindo.....

Victor · Abril 25, 2004

Ow, valeu já consegui, era so apontar para o final do arquivo e mandar o ponteiro ir subindo.....

beleza, tenha mais alguma dúvida sobre isso, é só você postar ae, que nós te ajudaremos!!!

[]'s

Victor

Entrar

O Que Esta Errado Neste Codigo?

Pergunta

renanj

Link para o comentário

Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

dark0

Link para o comentário

Compartilhar em outros sites

Victor

Link para o comentário

Compartilhar em outros sites

renanj

Link para o comentário

Compartilhar em outros sites

Victor

Link para o comentário

Compartilhar em outros sites

Estatísticas dos Fóruns

Navegação

Atividades