<% if Request.ServerVariables("CONTENT_LENGTH")=0 or request.queryString("msg")<>"" Then %> <%if request.queryString("msg")<>"" Then %>

Preencha todos os campos

<% end if %>

" method="post"> Nome

E-mail

Telefone DDD + Telefone

Cidade Estado: selected<%end if%>>AC selected<%end if%>>AL selected<%end if%>>AP selected<%end if%>>AM selected<%end if%>>BA selected<%end if%>>CE selected<%end if%>>DF selected<%end if%>>ES selected<%end if%>>GO selected<%end if%>>MA selected<%end if%>>MT selected<%end if%>>MS selected<%end if%>>MG selected<%end if%>>PA selected<%end if%>>PB selected<%end if%>>PR selected<%end if%>>PE selected<%end if%>>PI selected<%end if%>>RJ selected<%end if%>>RN selected<%end if%>>RS selected<%end if%>>RO selected<%end if%>>RR selected<%end if%>>SC selected<%end if%>>SP selected<%end if%>>SE selected<%end if%>>TO

Departamento Quero falar sobre Comercial Comunicação e Marketing Reclamações Elogios Sugestões

Mensagem

Enviar

<% else nome=Request.Form("nome") email=Request.Form("email") telefone=Request.Form("telefone") cid = Request.Form("cidade") cidade=Request.Form("cidade") & " - " & Request.Form("estado") uf = Request.Form("estado") mensagem=Request.Form("mensagem") dpto=Request.Form("dpto") if nome="" or email="" or mensagem="" or dpto="x" Then msg="erro" Response.Redirect(Request.ServerVariables("SCRIPT_NAME") & "?msg=" & msg) else select case dpto case 1 envia="alvaro@donaflorinda.com.br" case 2 envia="comercialgi@donaflorinda.com.br" case 3 envia="alvaro@donaflorinda.com.br,merssia@donaflorinda.com.br" assunto = "SOBRE O SITE" case 4 envia="alvaro@donaflorinda.com.br,merssia@donaflorinda.com.br" assunto = "COMUNICAÇÃO E MARKETING" case 5 envia="alvaro@donaflorinda.com.br,merssia@donaflorinda.com.br" assunto = "RECLAMAÇÕES" case 6 envia="alvaro@donaflorinda.com.br,merssia@donaflorinda.com.br" assunto = "ELOGIOS" case else envia="alvaro@donaflorinda.com.br,merssia@donaflorinda.com.br" assunto = "SUGESTÕES" End Select sql="insert into contato_site (nome,email,telefone,cidade,estado,setor,mensagem,data) values ('"& nome & "','"& email & "','"& telefone & "','"& cid & "','"& uf & "','"& envia & "','"& mensagem & "','"& Now() & "')" set rsusuario = conn.execute(sql) sDestinatario = envia sRemetente = email 'o endereço de e-mail deve ser uma conta do próprio domínio e válida. sResponder = email sAssunto = "CONTATO ATRAVÉS DO SITE : " & assunto sMensagem = "" & nome & "
Telefone: " & telefone & "
Cidade: " & cidade & "
disse:
" & mensagem Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")= 25 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 'ATIVAR RECURSO DE SMTP AUTENTICADO 'USUÁRIO PARA SMTP AUTENTICADO 'SENHA DO USUÁRIO PARA SMTP AUTENTICADO objCDOSYSCon.Fields.update Set objCDOSYSMail.Configuration = objCDOSYSCon ' #### CONFIGURAÇÕES DO CABEÇALHO DA MENSAGEM #### 'configura o remetente objCDOSYSMail.From = sRemetente 'configura o destinatário objCDOSYSMail.To = sDestinatario 'configura o reply-to objCDOSYSMail.ReplyTo = sResponder 'configura o assunto objCDOSYSMail.Subject = sAssunto ''configura o conteúdo da mensagem objCDOSYSMail.HtmlBody = sMensagem '### FIM DAS CONFIGURAÇÕES DO CABEÇALHO ### 'para envio da mensagem no formato html altere o TextBody para HtmlBody 'objCDOSYSMail.HtmlBody = v_corpo 'objCDOSYSMail.fields.update ' ### ENVIA O E-MAIL ### objCDOSYSMail.Send ' ### DESTRÓI OS OBJETOS ### Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing Response.write "

Obrigada, logo-logo a gente responde sua mensagem.

" end if end if %>