<% acao = request.form("acao") %> <% If acao = "Send!" Then %> <% nome = request.form("nome") email = request.form("email") website = request.form("website") contact = request.form("contact") comentario = request.form("comentario") tel = request.form("tel") opcao = false ' Verifica se campos obrigatorios foram preenchidos if len(nome)<1 or len(email)<1 then response.write ("Campos obrigatórios (nome ou e-mail) năo foram preenchidos!") response.write ("
Voltar") else Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = nome Mailer.FromAddress = email Mailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.AddRecipient "Carlos Nepomuceno", "pontonet@pontonet.com.br" Mailer.Subject = "Pontonet - Formulário padrăo do site" teste = "Company: " & nome & VbCrLf teste = teste & "Website: " & website & VbCrLf teste = teste & "Telephone: " & tel & VbCrLf teste = teste & "E-mail: " & email & VbCrLf teste = teste & "Contact: " & contact & VbCrLf teste = teste & "Problems: " & comentario & VbCrLf 'Mailer.AddRecipient "Carlos Nepomuceno", "pontonet@pontonet.com.br" Mailer.BodyText = teste if Mailer.SendMail then response.write ("Your message was send. Thank you!") response.write ("
Back") else Response.Write "Problems. error: " & Mailer.Response & "" end if end if %> <% Else %>
Av. Nossa Senhora de Copacabana, 978/708
Copacabana - Rio de Janeiro
Brasil - CEP 22060-002
Tel: +55 21 2246-1323
Dear client: please, fill out this form to speed up our answer: