.: K-DESIGN .:

<% If Request.ServerVariables("CONTENT_LENGTH") > 0 Then DIM nome, fone, email, assunto, Mail, strMsgHeader nome = request.form("nome") fone = request.form("fone") email = request.form("email") assunto = request.form("assunto") data = day(date) & "/" & month(date) & "/" & year(date) 'hora = hour(now)&":"&minute(now) Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "mail.kdsistemas.com" Mail.Username = "eduardo@kdsistemas.com" Mail.Password = "edu167" Mail.From = "eduardo@kdsistemas.com" Mail.AddAddress "eduardo@kdsistemas.com" Mail.Subject = "Contato Feito Pelo Site!" strMsgHeader = "Abaixo seguem os dados enviados em, " & data & vbCrLf & vbCrLf Mail.Body = strMsgHeader & "Nome: " & nome & vbCrLf & _ "Telefone: " & fone & vbCrLf & _ "Email: " & email & vbCrLf & _ "InformaÃ§Ã£o: " & assunto On Error Resume Next Mail.Send Set Mail = Nothing IF Err <> 0 THEN Response.Write ("") ELSE Response.Write ("") END IF End If %>

kdsistemas.com

Entre em contato com a K-DESIGN:

Aqui voce pode entrar em contato e tirar todas as suas duvidas sobre os produtos e servicos. Tambem e o espaco para enviar sugestoes, reclamacoes ou fazer a sua solicitacao de orcamento..

2007 © Copyright Kdesign Tecnologia e Sistemas On-line.
All rights Reserved. .