|
|
|
|
![]() |
![]() |
<% secao = Request("secao") resposta = "" if secao = "enviar" then '_____________________________________________________ ' email CDO - onlline '_____________________________________________________ Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.To = "dale.nesbitt@worldnet.att.net" objCDO.Cc = "dkaweski@telusplanet.net" objCDO.From = Request("yourmail") objCDO.Subject = "PASSWORD REQUEST" corpo = " " corpo = corpo & " Name: " & Request("nome") corpo = corpo & " E-Mail: " & Request("yourmail") corpo = corpo & " Company: " & Request("company") corpo = corpo & " Title: " & Request("title") corpo = corpo & " Phone: " & Request("phone") corpo = corpo & " Fax: " & Request("fax") corpo = corpo & " Address: " & Request("address") corpo = corpo & " Services: " & Request("services") corpo = corpo & " Message: " & Request("mensagem") corpo = CORPO & " " objCDO.Body = corpo objCDO.BodyFormat = 0 objCDO.MailFormat = 0 objCDO.Send resposta = " Your e-mail has been sent. " end if %> <% Response.write resposta %> Tell us a bit about yourself and your organization. Please include your name, company name, phone number, and what services you are interested in.' |
|
|