Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

omicron

problema com exibição do texto

Por , em ASP Clássico

Recommended Posts

omicron    0

omicron
Postado

e ae galera, to desenvolvendo um site pra uma igreja e lá tem as pastorais semanais, adicionei as últimas 15 pastorais no meu BD, consegui exibir a pastoral mais atual porém estou me embolando em como fazer os links pra acessar os outros registros, a sintaxe eu sei porém o que falta é a exibição final pro usuário.... minha tabela tem essa estrutura: Código: Incrementado, Título: Texto e Texto: Texto..... esse é o link pro asp que eu fiz até agora: http://www.ipbaracas.org.br/Pastorais/pastorais.asp, mas de qualquer forma aí vai o script:

<%@LANGUAGE="VBSCRIPT"%><!--#include file="Connections/pastorais.asp" --><%set Recordset1 = Server.CreateObject("ADODB.Recordset")Recordset1.ActiveConnection = MM_pastorais_STRINGRecordset1.Source = "SELECT Código, Titulo, Texto  FROM Tabela_Pastorais ORDER BY Código DESC"Recordset1.CursorType = 0Recordset1.CursorLocation = 2Recordset1.LockType = 3Recordset1.Open()Recordset1_numRows = 0%><%Dim Repeat1__numRowsRepeat1__numRows = -1Dim Repeat1__indexRepeat1__index = 0Recordset1_numRows = Recordset1_numRows + Repeat1__numRows%><%Dim icodigoicodigo = Recordset1("Código")%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body bgcolor="#FFFFFF" text="#000000"><p><b><font face="Verdana, Arial, Helvetica, sans-serif">Pastoral da Semana</font></b></p><table width="555" border="0">  <tr>     <td height="34">       <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><%=(Recordset1.Fields.Item("titulo").Value)%></b></font></div>    </td>  </tr>  <tr>     <td><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><%=(Recordset1.Fields.Item("texto").Value)%></font></td>  </tr></table><p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Outras Pastorais</font></b></p><table width="400" border="0">  <tr>     <td> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">       <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>      <%response.write("<a href="&"pastorais.asp?Recordset1.Move="&icodigo&">")%>   <%=(Recordset1.Fields.Item("titulo").Value)%><br>      <%   Repeat1__index=Repeat1__index+1  icodigo=icodigo-1  Repeat1__numRows=Repeat1__numRows-1  Recordset1.MoveNext()Wend%>      </font></td>  </tr></table><p> </p></body></html><%Recordset1.Close()%>
:unsure:

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

você deverá usar um loop pra listar as outras...

Compartilhar este post

Link para o post
Compartilhar em outros sites

omicron    0

omicron
Postado

no caso já existe um loop que exibe os links pras outras pgs While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)), qual seria o outro loop???

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito