[Resolvido] Menu de artigos com foto para home... mas fica em bra

Arlene Paula · Janeiro 29, 2009

Oi pessoal, sou eu de novo!!

Jah postei um problema parecido e tentei tomar as mesmas providências, mas agora não funcionou e as vezes dá um problema diferente.

Seguinte:

é uma pequena página que preciso mostrar uma chamada de um texto e uma figura de 40x40px. Na index, vai ter um iframe onde vai essa página. Essa página vai mostrar 3 artigos que tiverem a data mais atual. Deu pra entender? SEria +- isso:

Imagem Postada

eu criei, com base numa que já tinha criado, uma página chamada artigoshome.asp, onde tem um RS q está assim:

Imagem Postada

Só que eu não sei se está certo.

Como vcs viram na home, onde eu circulei, preciso que apareça a imagem e a chamada do artigo, mas na página q criei, na hora q eu executo, ela fica em branco. Não tem texto branco nem nda!

Eis a página artigoshome.asp:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/conn.asp" -->
<%
Dim rsartigos__MMColParam
rsartigos__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then 
  rsartigos__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsartigos
Dim rsartigos_numRows

Set rsartigos = Server.CreateObject("ADODB.Recordset")
rsartigos.ActiveConnection = MM_conn_STRING
rsartigos.Source = "SELECT * FROM tblArtigos WHERE Data = '" + Replace(rsartigos__MMColParam, "'", "''") + "' ORDER BY CodArtigo DESC"
rsartigos.CursorType = 0
rsartigos.CursorLocation = 2
rsartigos.LockType = 1
rsartigos.Open()

rsartigos_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 3
Repeat1__index = 0
rsartigos_numRows = rsartigos_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>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<style type="text/css">
<!--
.style1 {
	font-size: 8px;
	color: #FFFFFF;
}
-->
</style></head>

<body>
<% 
While ((Repeat1__numRows <> 0) AND (NOT rsartigos.EOF)) 
%>
  <table width="255" border="0" cellspacing="0" cellpadding="0">
	<tr>
	  <td width="40"><a href="noticiaview.asp?CodArtigo=<%=(rsartigos.Fields.Item("CodArtigo").Value)%>" target="_parent"><img src="<%=rsartigos("Foto").Value%>" width="40" height="40" border="0" /></a></td>
	  <td width="107"><a href="noticiaview.asp?CodArtigo=<%=(rsartigos.Fields.Item("CodArtigo").Value)%>" target="_parent"><%=(rsartigos.Fields.Item("Chamada").Value)%></a></td>
	  <td width="108"><%=(rsartigos.Fields.Item("Data").Value)%></td>
	</tr>
	<tr>
	  <td colspan="3"><span class="style1">aa</span></td>
	</tr>
  </table>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsartigos.MoveNext()
Wend
%>
</body>
</html>
<%
rsartigos.Close()
Set rsartigos = Nothing
%>

Ah sim... o repeat region eu coloquei p ele mostrar só 3 artigos mais novos... mas como eu disse, nao sei se tah certo.

Eai... alguém consegue me ajudar?

hgb7 · Janeiro 29, 2009

Testou no Firefox?

Arlene Paula · Janeiro 29, 2009

Não sei se tem q configurar algo p FF, mas deu esse erro:

Tipo de erro:

ADODB.Recordset (0x800A0E7A)

Provedor não encontrado. É possível que ele não esteja instalado corretamente.

/comdeus2007/ATN/artigoshome.asp, line 15

Eu sou bem leiga em ASP ainda... então se tiver q fzr alguma coisa p corrigir, explique bem claro tah rsrsrs!!

Valeu!

hgb7 · Janeiro 29, 2009

http://forum.imasters.com.br/lofiversi...hp/t277613.html

Espero que ajude :)

Ted k' · Janeiro 29, 2009

o ODBC do banco, você instalou?

Está usando qual banco?

se tiver usando o O Windows 2003 64 bits pode ter problemas pois não tem ADO, ai tem que transformar o IIS em 32 bits

Arlene Paula · Janeiro 29, 2009

Esse ODBC no caso, não é p fzr akela conexão com o arquivo conn.asp??

To usando Access 2003, no windows xp SP2

No conn.asp tenho isso:

<%

' FileName="Connection_ado_conn_string.htm"

' Type="ADO"

' DesigntimeType="ADO"

' HTTP="false"

' Catalog=""

' Schema=""

Dim MM_conn_STRING

MM_conn_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\comdeus2007\dados\bdcomdeus.mdb"

%>

Não seria isso?

é isso aki ou não?

<%

Dim rsartigos

Dim rsartigos_numRows

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

rsartigos.ActiveConnection = MM_conn_STRING

rsartigos.Source = "SELECT * FROM tblArtigos WHERE Data = '" + Replace(rsartigos__MMColParam, "'", "''") + "' ORDER BY CodArtigo DESC"

rsartigos.CursorType = 0

rsartigos.CursorLocation = 2

rsartigos.LockType = 1

rsartigos.Open()

rsartigos_numRows = 0

%>

Arlene Paula · Janeiro 29, 2009

quando eu tiro o repeat region, dá esse erro:

Tipo de erro:

ADODB.Field (0x800A0BCD)

BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

/comdeus2007/ATN/artigoshome.asp, line 40

Na linha 40:

<td width="40"><a href="noticiaview.asp?CodArtigo=<%=(rsartigos.Fields.Item("CodArtigo").Value)%>" target="_parent"><img src="<%=rsartigos("Foto").Value%>" width="40" height="40" border="0" /></a></td>

o q ha?

Loko da Web · Janeiro 29, 2009

Entre o while e wend coloque dessa forma:

<%
If rs.EOF Then
%>
nada encontrado
<%
Else
While ((Repeat1__numRows <> 0) AND (NOT rsartigos.EOF)) 
%>
  <table width="255" border="0" cellspacing="0" cellpadding="0">
	<tr>
	  <td width="40"><a href="noticiaview.asp?CodArtigo=<%=(rsartigos.Fields.Item("CodArtigo").Value)%>" target="_parent"><img src="<%=rsartigos("Foto").Value%>" width="40" height="40" border="0" /></a></td>
	  <td width="107"><a href="noticiaview.asp?CodArtigo=<%=(rsartigos.Fields.Item("CodArtigo").Value)%>" target="_parent"><%=(rsartigos.Fields.Item("Chamada").Value)%></a></td>
	  <td width="108"><%=(rsartigos.Fields.Item("Data").Value)%></td>
	</tr>
	<tr>
	  <td colspan="3"><span class="style1">aa</span></td>
	</tr>
  </table>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsartigos.MoveNext()
Wend
end if
%>

Arlene Paula · Janeiro 29, 2009

Tah certo assim?

<body>

<%

If rs.EOF Then

%>

nada encontrado

<%

Else

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

%>

<tr>

<td width="40"><a href="noticiaview.asp?CodArtigo=<%=(rsartigos.Fields.Item("CodArtigo").Value)%>" target="_parent"><img src="<%=(rsartigos.Fields.Item("Foto").Value)%>" width="40" height="40" border="0" /></a></td>

<td width="107"><a href="noticiaview.asp?CodArtigo=<%=(rsartigos.Fields.Item("CodArtigo").Value)%>" target="_parent"><%=(rsartigos.Fields.Item("Chamada").Value)%></a></td>

</tr>

<tr>

</tr>

</table>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

rsartigos.MoveNext()

Wend

end if

%>

</body>

Qdo executo, dá o erro:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/comdeus2007/ATN/artigoshome.asp, line 48

Na linha 48:

If rs.EOF Then

só isso!

O que falta, e onde falta?

Loko da Web · Janeiro 29, 2009

Tah certo assim?

<body>

<%

If rs.EOF Then

%>

nada encontrado

<%

Else

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

%>

<table width="255" border="0" cellspacing="0" cellpadding="0">

<tr>

<td width="40"><a href="noticiaview.asp?CodArtigo=<%=(rsartigos.Fields.Item("CodArtigo").Value)%>" target="_parent"><img src="<%=(rsartigos.Fields.Item("Foto").Value)%>" width="40" height="40" border="0" /></a></td>

<td width="107"><a href="noticiaview.asp?CodArtigo=<%=(rsartigos.Fields.Item("CodArtigo").Value)%>" target="_parent"><%=(rsartigos.Fields.Item("Chamada").Value)%></a></td>

<td width="108"><%=(rsartigos.Fields.Item("Data").Value)%></td>

</tr>

<tr>

<td colspan="3"><span class="style1">aa</span></td>

</tr>

</table>

<%

Repeat1__index=Repeat1__index+1

Repeat1__numRows=Repeat1__numRows-1

rsartigos.MoveNext()

Wend

end if

%>

</body>

Qdo executo, dá o erro:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/comdeus2007/ATN/artigoshome.asp, line 48

Na linha 48:

If rs.EOF Then

só isso!

O que falta, e onde falta?

Agora que eu notei que esta setado como rsartigos

<% 
If rsartigos.EOF Then
%>
nada encontrado
<%
Else
While ((Repeat1__numRows <> 0) AND (NOT rsartigos.EOF)) 
%>
  <table width="255" border="0" cellspacing="0" cellpadding="0">
	<tr>
	  <td width="40"><a href="noticiaview.asp?CodArtigo=<%=(rsartigos.Fields.Item("CodArtigo").Value)%>" target="_parent"><img src="<%=(rsartigos.Fields.Item("Foto").Value)%>" width="40" height="40" border="0" /></a></td>
	  <td width="107"><a href="noticiaview.asp?CodArtigo=<%=(rsartigos.Fields.Item("CodArtigo").Value)%>" target="_parent"><%=(rsartigos.Fields.Item("Chamada").Value)%></a></td>
	  <td width="108"><%=(rsartigos.Fields.Item("Data").Value)%></td>
	</tr>
	<tr>
	  <td colspan="3"><span class="style1">aa</span></td>
	</tr>
  </table>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsartigos.MoveNext()
Wend
end if
%>
</body>

Arlene Paula · Janeiro 29, 2009

AAAAAAAEEEEEEEEEEHHHH!! Valeu Loko!! Apaereceu a mensagem!

Mas o problema é que tem coisa na tabela sim... jah tem cadastros lah:

Imagem Postada

Por que não quer aparecer?

Loko da Web · Janeiro 29, 2009

Pra testarmos, faça o seguinte

troque esse

rsartigos.Source = "SELECT * FROM tblArtigos WHERE Data = '" + Replace(rsartigos__MMColParam, "'", "''") + "' ORDER BY CodArtigo DESC"

por esse

rsartigos.Source = "SELECT * FROM tblArtigos  ORDER BY CodArtigo DESC"

Fiz isso só pra ver se aparece alguma coisa !!!!!!

Arlene Paula · Janeiro 29, 2009

Noooooooooossa Loko, você é mto loco msm hein rsrsrsrs!!

Apareceu sim, os links e as chamadas... só as imagens que não... apareceu só um "x" vermelho, como da outra vez...

você tem idéia do q dá p fzr?? Tentei fzr o q você me falou p fzr num outro post q coloquei, mas não deu certo. Se você tiver alguma idéia, posta aí q eu agradeço mto!!

Obrigada pela paciência!!

Até mais!

Loko da Web · Janeiro 29, 2009

Noooooooooossa Loko, você é mto loco msm hein rsrsrsrs!!

Apareceu sim, os links e as chamadas... só as imagens que não... apareceu só um "x" vermelho, como da outra vez...

você tem idéia do q dá p fzr?? Vou tentar achar algo aki tb... mas se você tiver alguma idéia, posta aí q eu agradeço mto!!

Obrigada pela paciência!!

Até mais!

Paula, uma coisa, você nao vai utilizar a clausula where ????? Em relação as imagens, como você mesmo disse, aconteceu nos casos anteriores... você tera de verificar se o diretorio imagens esta dentro dos outros diretorios ou nao.

<img src="verifique aqui se tem que apontar outro caminho <%=(rsartigos.Fields.Item("Foto").Value)%>" width="40" height="40" border="0" />

Arlene Paula · Janeiro 29, 2009

eu coloquei tanto assim:

<img src=Admin\Modulos\ArtFormacao\"<%=(rsartigos.Fields.Item("Foto").Value)%>" width="40" height="40" border="0" />

Como assim:

img src="<%=(rsartigos.Fields.Item("Foto").Value)%>" width="40" height="40" border="0" />

e o "x" continua lah!!

a pasta imagens está em Admin\Modulos\ArtFormacao\

Como está lah em cima, no campo foto, aparece o caminho q ele tem q fzr... mas não adiantou dos dois jeitos!

Se eu não responder hj ainda é pq jah acabou meu expediente tah... QQ coisa, amanha to de volta!

Tem ainda algum recurso?

Loko da Web · Janeiro 29, 2009

eu coloquei tanto assim:

<img src=Admin\Modulos\ArtFormacao\"<%=(rsartigos.Fields.Item("Foto").Value)%>" width="40" height="40" border="0" />

Como assim:

img src="<%=(rsartigos.Fields.Item("Foto").Value)%>" width="40" height="40" border="0" />

e o "x" continua lah!!

a pasta imagens está em Admin\Modulos\ArtFormacao\

Como está lah em cima, no campo foto, aparece o caminho q ele tem q fzr... mas não adiantou dos dois jeitos!

Se eu não responder hj ainda é pq jah acabou meu expediente tah... QQ coisa, amanha to de volta!

Tem ainda algum recurso?

Cuidado com as aspas e a barra invertidas... tente agora

<img src="Admin/Modulos/ArtFormacao/<%=(rsartigos.Fields.Item("Foto").Value)%>" width="40" height="40" border="0" />

Arlene Paula · Janeiro 30, 2009

UAU!! LOKO, você É 10!!

To apanhando ainda um pouco do Asp... mas to aprendendo mto aki no Forum!!

Deu certinho agora!

Muito obrigada viu!! você é 10!!!

Abração!

Arquivado

[Resolvido] Menu de artigos com foto para home... mas fica em bra

Recommended Posts

Arlene Paula 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hgb7 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

Arlene Paula 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hgb7 3

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

Arlene Paula 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Arlene Paula 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Arlene Paula 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Arlene Paula 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Arlene Paula 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Arlene Paula 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Loko da Web 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Arlene Paula 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante