<%Nome = request.querystring ("NOME")Email = request.querystring ("EMAIL")Nomedaempresa = request.querystring ("NOMEDAEMPRESA")Endereco = request.querystring ("ENDERECO")Bairro = request.querystring ("BAIRRO")Cidade = request.querystring ("CIDADE")Estado = request.querystring ("ESTADO")Telefone = request.querystring ("TELEFONE")Descricaodomaterial = request.querystring ("DESCRICAODOMATERIAL")Comentarios = request.querystring ("COMENTARIOS")Set Mailer = Server.CreateObject("SMTPsvg.Mailer")rem change this RemoteHost to a valid SMTP address before testingMailer.RemoteHost = "mail.alugando.com.br"Mailer.FromName = NomeMailer.FromAddress = EmailMailer.AddRecipient "Madeireira Amigão", "oficinavisual@oficinavisual.com.br"Mailer.AddRecipient "Madeireira Amigão", "madeireiraamigao@ig.com.br"Mailer.Subject = "Formulário da Madeireira Amigão"strMsgHeader = "Resultados do Formulario:" & vbCrLffor each qryItem in Request.QueryStringstrMsgInfo = strMsgInfo & qryItem & " - " & request.querystring(qryItem) & vbCrLfnextstrMsgFooter = vbCrLf & "Fim do Formulario"Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooterif not Mailer.SendMail thenResponse.Write " Falha no envio: Não foi possível enviar este formulário. Envie através de seu email para oficinavisual@oficinavisual.com.br"Response.Write Mailer.ResponseelseResponse.redirect "http://www.alugando.com.br/sucesso.htm"end if%>