VResult = ""
VCount = 0
Do While VCount < 4 And Not RS.EOF
VResult = VResult & "<div class=""col-sm-4 col-md-3"
If VCount > 0 Then VResult = VResult & " hidden-xs"
If VCount > 2 Then VResult = VResult & " hidden-sm"
VResult = VResult & " testemunho large-spacer"">" & VbNewLine
If RS("fotos") > 0 Then
VResult = VResult & "<a href=""testemunho/artigo/" & RS("id") & "/" & FUrl_Encode(RS("resumo")) & "/""><div class=""photo img-rounded"" style=""background-image:url('" & GPicURL & "images/testemunhos/t" & RS("id") & "_p1.jpg')""></div></a>" & VbNewLine
' VResult = VResult & "<a href=""testemunho/artigo/" & RS("id") & "/" & FUrl_Encode(RS("resumo")) & "/""><img src=" & GPicURL & "images/testemunhos/t" & RS("id") & "_p1.jpg alt=""" & HTML_Encode(RS("titulo")) & """ class=""img-responsive""></a>" & VbNewLine
End If
VResult = VResult & "<div class=""texto""><p><img src=<%=GStaticURL%>images/home-icons/open-quote.png></p><p><a href=""testemunho/artigo/" & RS("id") & "/" & FUrl_Encode(RS("resumo")) & "/"">" & RS("resumo") & "</a></p><p class=""pull-right""><img src=<%=GStaticURL%>images/home-icons/close-quote.png></p><br><p><a href=""testemunho/artigo/" & RS("id") & "/" & FUrl_Encode(RS("resumo")) & "/"" class=""nome"">" & RS("titulo") & "</a></p></div>" & VbNewLine
VResult = VResult & "</div>" & VbNewLine
