<% if re("acao") = "enviarContato" then Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") objXMLHTTP.Open "GET", "http://www.stilrevest.com.br/emails/contato.html" , False objXMLHTTP.Send "" retorno = objXMLHTTP.responseText retorno = Replace(retorno, "#nome#",Request("nome")) retorno = Replace(retorno, "#email#",Request("email")) retorno = Replace(retorno, "#ddd#",Request("ddd")) retorno = Replace(retorno, "#telefone#",Request("telefone")) retorno = Replace(retorno, "#para#",Request("para")) retorno = Replace(retorno, "#mensagem#",replace(Request("mensagem"), vbcrlf, "
")) Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Contato Stilrevest" Mailer.FromAddress= "contato@stilrevest.com.br" Mailer.RemoteHost = "mail-fwd" Mailer.AddRecipient "Contato Stilrevest", Re("para") Mailer.Subject = "Contato | Stilrevest" Mailer.BodyText = retorno Mailer.ContentType = "text/html" if Mailer.SendMail then mostraMensagem "contato.asp", "Mensagem enviada com sucesso!" response.End() else Response.Write "Erro no envio do e-mail. Erro: " & Mailer.Response response.End() end if end if if re("acao") = "enviarTrabalhe" then Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") objXMLHTTP.Open "GET", "http://www.stilrevest.com.br/emails/trabalhe.html" , False objXMLHTTP.Send "" retorno = objXMLHTTP.responseText retorno = Replace(retorno, "#nome#",Request("nome")) retorno = Replace(retorno, "#endereco#",Request("endereco")) retorno = Replace(retorno, "#ddd#",Request("ddd")) retorno = Replace(retorno, "#telefone#",Request("telefone")) retorno = Replace(retorno, "#email#",Request("email")) retorno = Replace(retorno, "#curriculo#",replace(Request("curriculo"), vbcrlf, "
")) retorno = Replace(retorno, "#atividade#",Request("atividade")) Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Trabalhe Conosco - Stilrevest" Mailer.FromAddress= "contato@stilrevest.com.br" Mailer.RemoteHost = "mail-fwd" Mailer.AddRecipient "Trabalhe Conosco - Stilrevest", "stilrevest@stilrevest.com.br" Mailer.Subject = "Trabalhe Conosco | Stilrevest" Mailer.BodyText = retorno Mailer.ContentType = "text/html" if Mailer.SendMail then mostraMensagem "contato.asp?tipo=contato/&sub=venha-trabalhar-conosco/", "Mensagem enviada com sucesso!" response.End() else Response.Write "Erro no envio do e-mail. Erro: " & Mailer.Response response.End() end if end if if re("acao") = "enviarFornecedor" then Set objXMLHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP") objXMLHTTP.Open "GET", "http://www.stilrevest.com.br/emails/fornecedor.html" , False objXMLHTTP.Send "" retorno = objXMLHTTP.responseText retorno = Replace(retorno, "#nome#",Request("nome")) retorno = Replace(retorno, "#endereco#",Request("endereco")) retorno = Replace(retorno, "#ddd#",Request("ddd")) retorno = Replace(retorno, "#telefone#",Request("telefone")) retorno = Replace(retorno, "#email#",Request("email")) retorno = Replace(retorno, "#mensagem#",replace(Request("mensagem"), vbcrlf, "
")) retorno = Replace(retorno, "#ramo#",Request("ramo")) Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Cadastro de Fornecedor - Stilrevest" Mailer.FromAddress= "contato@stilrevest.com.br" Mailer.RemoteHost = "mail-fwd" Mailer.AddRecipient "Cadastro de Fornecedor - Stilrevest", "stilrevest@stilrevest.com.br" Mailer.Subject = "Cadastro de Fornecedor | Stilrevest" Mailer.BodyText = retorno Mailer.ContentType = "text/html" if Mailer.SendMail then mostraMensagem "contato.asp?tipo=contato/&sub=cadastre-se-para-ser-nosso-fornecedor/", "Mensagem enviada com sucesso!" response.End() else Response.Write "Erro no envio do e-mail. Erro: " & Mailer.Response response.End() end if end if if Re("tipo") = "" then tipo = "contato/" else tipo = Re("tipo") end if Set rsDados = objConn.execute("Select * from menu where link = '"&tipo&"'") titulo = rsDados("menu") texto = rsDados("texto") %>
Home | <% if local then %> " class="brdc_antr"><%=rsDados("menu")%> <% else %> " class="brdc_antr"><%=rsDados("menu")%> <% end if %> <% if Re("sub") <> "" then Set rsSub = objConn.execute("Select * from menu where link = '"&Re("sub")&"' and pai = "&rsDados("id_menu")&"") titulo = rsSub("menu") texto = rsSub("texto") %> | <%=rsSub("menu")%> <% end if %>

<%=titulo%>

<%=texto%>

<% if Re("sub") = "contato/" or Re("sub") = "" then %>
 
<% elseif Re("sub") = "venha-trabalhar-conosco/" then %>
 
<% elseif Re("sub") = "cadastre-se-para-ser-nosso-fornecedor/" then %>
 
<% end if %>
<% if Request.QueryString("localizacao") = "itapevi" Then %>

Localização Sede e unidade industrial Itapevi (SP)

<% elseif Request.QueryString("localizacao") = "catalao" then %>

Localização Unidade Industrial Catalão (GO)

<% end if %>
    <% Set rsSubs = objConn.execute("Select * from menu where pai = "&rsDados("id_menu")&" order by ordem") while not rsSubs.eof if local then link = "contato.asp?tipo="& tipo & "&sub=" & rsSubs("link") else link = tipo & rsSubs("link") end if classe = "" if rsSubs("link") = Re("sub") then classe = "class=""menu_int_rght_actv""" end if %>
  • " <%=classe%>><%=rsSubs("menu")%>
    • <% rsSubs.movenext wend %>

Sede e unidade industrial e administrativa Itapevi (SP)
Av. Professor Wernon Krieble, 175 - Jardim Nova Itapevi
CEP: 06690-250 - Itapevi - SP
Telefonel:+55 11 4773 5538

4773 8014 / 4773 8074

Localização

Unidade Industrial Catalão (GO)
Eixo 6 s/n, lote 38/43
CEP: 75700-000
Telefone: + 55 64 3442-3876 / 3442-3872
caldeiraria@stilrevest.com.br

Localização

Vendas de equipamentos e peças de reposição
equipamentos@stilrevest.com.br

Vendas serviços de pintura
pintura@stilrevest.com.br