Prof De Franco - Curso por Correspondencia

<%if request("add") = "sim" then nome = request("realname") vemail = request("email") prof = request("prof") idade = request("idade") telefone = request("phone") endereco = request("address") cidade = request("city") estado = request("state") cep = request("zip") caixapost = request("pobox") mensagem = request("message") msg = "confira os dados que acabaram de ser " msg = msg & "enviados pelo formulário

" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "" msg = msg & "

" msg = msg & "Nome:" msg = msg & "	" msg = msg & response.write = nome msg = msg & "
" msg = msg & "E-mail:" msg = msg & "	" msg = msg & response.write email msg = msg & "
" msg = msg & "Profissão:" msg = msg & "	" msg = msg & response.write prof msg = msg & "
" msg = msg & "Idade:" msg = msg & "	" msg = msg & response.write idade msg = msg & "
" msg = msg & "Telefone:" msg = msg & "	" msg = msg & response.write telefone msg = msg & "
" msg = msg & "Endereço:" msg = msg & "	" msg = msg & response.write endereco msg = msg & "
" msg = msg & "Cidade:" msg = msg & "	" msg = msg & response.write cidade msg = msg & "
" msg = msg & "Estado:" msg = msg & "	" msg = msg & response.write estado msg = msg & "
" msg = msg & "CEP:" msg = msg & "	" msg = msg & response.write cep msg = msg & "
" msg = msg & "Caixa Postal:" msg = msg & "	" msg = msg & response.write caixapost msg = msg & "
" msg = msg & "Mensagem:" msg = msg & "	" msg = msg & response.write mensagem msg = msg & "

" Set objMail = Server.CreateObject("CDO.Message") Set objMailConf = Server.CreateObject("CDO.Configuration") objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "127.0.0.1" '"smtp.bigsolutions.com.br" objMailConf.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 600 objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusername")= "smtpuser" objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendpassword")= "smtpuser" objMailConf.Fields.Update Set objMail.Configuration = objMailConf objMail.From = vemail objMail.To = "profdefranco@profdefranco.com.br" objMail.Subject = "Dados do Formulário Fale Conosco" objMail.HTMLBody = "" & msg & "" on error resume next objMail.Send if err.number <> 0 then response.Write(err.Description) end if Set objMail = Nothing Set objMailConf = Nothing response.redirect "index.html" end if%> Prof De Franco - Curso por Correspondencia


		A`presentamos abaixo um formulário para que você possa entrar em contato conosco. Se o seu programa não suporta formulários, envie um e-mail para profdefranco@profdefranco.com.br Como alternativas de contato, apresentamos ao final da página nossos endereços, telefones e fax.` `Nome:` `E-mail:` `Profissão:` `Idade:` `Telefone:` `Endereço:` `Cidade:` `Estado:` `CEP:` `Caixa Postal:` `Mensagem:` `Av. Eusébio Matoso, 385 - Pinheiros São Paulo - SP - CEP: 05423-180 Tel/Fax: (011) 3815.0449 ou (011) 3815.6338`