Looping Nao Funciona

[acezare]

Estou desenvolvendo um sistema de blogs e o sistema que faz o template funcionar so ta mostrando um registro e eu preciso que ele me mostre todos os registros do usuario.

Aqui tem um pedaco do codigo para quem puder me ajudar

... conexao com o bd ...

    Function to_html(s_string) 
	to_html = Replace(s_string, vbcrlf, "<br>")
    do while not ta.eof
	to_html = Replace(to_html, "[blogplanet]", ta("post")&"<br>")
    ta.MoveNext
    loop  
    End Function
    response.write to_html(tabela("template"))

[felipefrancesco]

Ao invés de Function, faça uma Sub

[acezare]

Como posso fazer isto???

[Guest - felipefrancesco -]

Uma Sub é uma função q não retorna valor, então faz assim:

Sub to_html(By Ref s_string) 

  s_string = Replace(s_string, vbcrlf, "<br>")
  
   do while not ta.eof
     s_string = s_string & Replace(s_string, "[blogplanet]", ta("post")&"<br>")
     ta.MoveNext
   loop  

End Sub

Dim strTemplate
strTemplate = tabela("template")  
Call to_html(strTemplate)

response.write strTemplate

[acezare]

Assim funciona, só que o template fica se repetindo como posso para fazer pro template ficar parado e fazer loop somente nos posts???

[acezare]

alguém pode me ajudar???

[bareta]

[acezare]

Deu na mesma o template continua fazendo loop junto com o post

[acezare]

Tenho este codigo só que o looping só ta mostrando registro, alguém tem alguma idéia???

<%
const adopenkeyset=1
const adlookoptimistic=3
set banco = server.createobject("adodb.connection")
banco.open "provider=microsoft.jet.oledb.4.0;data source="&server.mappath("db.mdb")
set tabela = server.createobject("adodb.recordset")
tabela.open "select * from perfil where userid = " & Request("x")&"",banco,adopenkeyset,adlookoptimistic
set ta = server.createobject("adodb.recordset")
ta.open "select * from posts where userid = " & Request("x")&" order by data asc",banco,adopenkeyset,adlookoptimistic
ta.movefirst
while not ta.eof
x = ta("post")&"<br>"
ta.movenext
wend
to_html = Replace (tabela("template"), "[blogplanet]", x)
response.write to_html
%>

[acezare]

Consegui, obrigado pela ajuda

[bareta]

beleza... to fechando o tópico