<%
if request("nome") <> "" then
'Manda e-mail avisando
corpo = "
Cursos Secovi
"
corpo = corpo & "Nome: "&request("Nome")&" "
corpo = corpo & "CPF: "&request("RG")&" "
corpo = corpo & "Endereco: "&request("Endereco")&" "
corpo = corpo & "Complemento: "&request("Complemento")&" "
corpo = corpo & "Cidade: "&request("Cidade")&" "
corpo = corpo & "UF: "&request("UF")&" "
corpo = corpo & "Fone: "&request("Fone")&" "
corpo = corpo & "Email: "&request("Email")&" "
corpo = corpo & "Imobiliaria: "&request("Imobiliaria")&" "
corpo = corpo & "Pessoa: "&request("Pessoa")&" "
corpo = corpo & "Nome: "&request("Nome2")&" "
corpo = corpo & "Investimento: "&request("Investimento")&" "
corpo = corpo & "Forma de Pagamento: "&request("pgto")&" "
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
objCDOSYSCon.Fields.update
Set objCDOSYSMail.Configuration = objCDOSYSCon
'e-mail do remetente
objCDOSYSMail.From = email_adm'request("Email")
'e-mail do destinatário
objCDOSYSMail.To = email_adm
objCDOSYSMail.Subject = "Cursos Secovi - Matemática Financeira na HP 12C"
objCDOSYSMail.HtmlBody = corpo
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
%>
<%
response.End()
end if
Set uf = Server.CreateObject("ADODB.Recordset")
uf.ActiveConnection = MM_conecxao_STRING
uf.Source = "SELECT * FROM uf order by titulo asc"
uf.CursorType = 0
uf.CursorLocation = 3
uf.LockType = 1
uf.Open()
%>
<%=titulo%><%=by%>
