<%
formulario = request("formulario")
sql = "select * from Dicas order by id desc"
set rs = db.execute(sql)
%>
Dicas de Otimização | Curso de SEO Grátis | Posicionamento de Sites | Otimização de Sites - Meu Site no Topo
Sua Consultoria para estar bem posicionado atravs da Otimizao de Sites.
Voc~e está aqui
Home
|
Dicas e Dúvidas sobre Otimização de Sites
Tudo o que gostaria de saber Otimização de Sites
<%ndica = 1%>
<%Do While Not rs.eof%>
<%sql = "select count(*) as qtd_dica from Comentarios where Dica = " & rs("ID")%>
<%Set rscomentario = db.execute(sql)%>
<%If rscomentario.eof Then
qtd_dica = 0
Else
qtd_dica = CLng(rscomentario("qtd_dica"))
End If
%>
<%=rs("titulo")%> <%=rs("Data")%> <%=nomecategoria(rs("Categoria"))%> <%=rs("tags")%>
<%end if%>
<%
sql = "select * from Comentarios where dica = " & rs("ID") & " order by data desc, hora desc"
Set rscomentario = db.execute(sql)
%>
<%Do While Not rscomentario.eof%>
<%=rscomentario("nome")%> escreveu em <%=rscomentario("Data")%> ás <%=FormataHora(rscomentario("Hora"))%> hs
<%If rscomentario("admin") = 1 Then%>
<%=rscomentario("comentario")%>
<%else%>
<%=rscomentario("comentario")%>
<%End if%>
<%rscomentario.movenext%>
<%loop%>
<%rs.movenext%>
<%loop%>
Voce está aqui
Home
|
Dicas e Dúvidas sobre Otimização de Sites
Conheça também Anúncios Pagos
Os Links Patrocinados são perfeitos para uma rápida exposição do seu produto ou serviço em palavras-chave do seu negócio.
Visite nosso Depar