com erro end esperado

[lucasmoraes 1]

bom to fazendo um site aqui ..

fiz um loop para exibir as news so que da um erro de end esperado alguem pode dar uma ajuda...

 

a pagina principal que da o erro é esta...

 

<%
				 Do While Not Recnews.EOF
				 	mostra_news
					Recnews.MoveNext
					Loop
%>

esta função mostra_news é so uma tabelinha que fiz separado vo posta o cldigo so por postar mesmo...

 

'mostra_news()

<%sub mostra_news() %>
 <table width="208" height="143" border="0">
<tr>
					  <td height="21" align="left" valign="top"><%=Recnews("data")%> - <%=Recnews("titulo")%></td>
   </tr>
					<tr>
					  <td height="112" align="left" valign="top"><%=Recnews("preconteudo")%> </td><br>
					  <a href="noticia.asp?vcod=<%=Recnews("id_news")%>">Ver mais...</a>
   </tr>
				  
</table>

 

 

 

a outra coisinha como fasso para exibir as news por data os mais recentes para os mais antigos.... nao to lembrando ¬¬

 

OUTRA COISA PRECISO LIMITAR O NUMERO DE CARACTERES NO CAMPO PRECONTEUDO POIS SINAO FICARA MUITO GRANDE A EXIBIÇÃO..

COMO FAÇO?

[hargon 64]

Você iniciou com

sub mostra_news()

 

E não finalizou com o

End Sub

 

 

Para listar do jeito que quer, terá que alterar na consulta SQL.

[lucasmoraes 1]

Você iniciou com

sub mostra_news()

 

E não finalizou com o

End Sub

 

 

Para listar do jeito que quer, terá que alterar na consulta SQL.

oque eu devo por na sql?

[hargon 64]

Coloca ORDER BY campoData DESC

 

Sobre limitar o texto que vai aparecer, pesquisa no Laboratório de Scripts. Lá existe algumas funções prontas para isso. Ou se quiser apenas limitar, sem tratar, utiliza a função LEFT do vbscript.

[lucasmoraes 1]

Coloca ORDER BY campoData DESC

 

Sobre limitar o texto que vai aparecer, pesquisa no Laboratório de Scripts. Lá existe algumas funções prontas para isso. Ou se quiser apenas limitar, sem tratar, utiliza a função LEFT do vbscript.

 

ok vlw

[lucasmoraes 1]

Coloca ORDER BY campoData DESC

 

Sobre limitar o texto que vai aparecer, pesquisa no Laboratório de Scripts. Lá existe algumas funções prontas para isso. Ou se quiser apenas limitar, sem tratar, utiliza a função LEFT do vbscript.

 

ok vlw

 

coloquei o order by data desc e deu um erro

 

Microsoft JET Database Engine (0x80040E14)

Desconhecido

 

eu usei o seguinte codigo

 

sql = "SELECT * FROM tabnews ORDER BY data DESC"

[Mário Monteiro 179]

o erro é na execucao desta query?

 

se for tente

 

sql = "SELECT * FROM tabnews ORDER BY [data] DESC"

[kobutiii 0]

Ali você chamou a sub ou somente declarou ela?

 

Pelo jeito ali você tentou CHAMAR a sub feita anteiormente...

 

Assim você chama sub:

Call subProcedure()

Assim você faz uma sub:

Dim subProcedure

sub subProcedure()
  comandos
end sub