<% SET RSt = Server.CreateObject("ADODB.RecordSet") strSqlt = "SELECT * FROM trabalhos" RSt.Open strSqlt, strCon IF Not RSt.EOF THEN WHILE NOT RSt.EOF trabalhos = trabalhos & "
  • " RSt.MoveNext WEND END IF RSt.Close Set RSt = Nothing SET RStop = Server.CreateObject("ADODB.RecordSet") strSqltop = "SELECT titulo, previa FROM topcenter" RStop.Open strSqltop, strCon IF Not RStop.EOF THEN topcenter = ""&RStop("titulo")&"

    "&RStop("previa")&"

    " END IF RStop.Close Set RStop = Nothing %>

    Top Center

    <%=topcenter%>

    Pedido Online

    Faça o login e envie seus arquivos diretamente pelo site, sem precisar utilizar emails ou outros!

    Não é cadastrado?CADASTRE-SE

    Serviços

      <%=servicos%>

    Ultimos Trabalhos

      <%=trabalhos%>