<% Curso = request.querystring("curso") Curso = Replace(Curso,"'","") Curso = Replace(Curso,";","") Curso = Replace(Curso,"=","") Curso = Replace(Curso,"*","") Curso = Replace(Curso,">","") Curso = Replace(Curso,"<","") Curso = Replace(Curso,"?","") Curso = Replace(Curso,"%","") Curso = Replace(Curso," ","") If Not IsNumeric(Curso) Then response.redirect("centrotecnico.asp") response.End End If If Len(Curso) < 1 Then response.redirect("centrotecnico.asp") response.End End If Call AbreBD() DadosCurso = "select id,datainicio,data_txt,titulo,conteudo,horario,preco from ives_eventos where id='"&Curso&"'" Set CursoOrs = RecordSet(Conn,DadosCurso) If Not CursoOrs.eof Then DataInicio = CursoOrs("datainicio") DataTxt = CursoOrs("data_txt") Conteudo = CursoOrs("conteudo") Horario = CursoOrs("horario") Preco = CursoOrs("preco") Titulo = CursoOrs("titulo") Else response.redirect("centrotecnico.asp") response.End End If CursoOrs.close() Set DadosCurso = Nothing Set CursoOrs = Nothing Call FechaBD() %> <% If request.querystring("acao") = "cadastro" Then Nome = request.Form("nome") Nome = Replace(Nome,"'","") Nome = Replace(Nome,";","") Nome = Replace(Nome,">","") Nome = Replace(Nome,"<","") Nome = Replace(Nome,"%","") Nome = Replace(Nome,"?","") Nome = Replace(Nome,"=","") Email = request.Form("email") Email = Replace(Email,"'","") Email = Replace(Email,";","") Email = Replace(Email,">","") Email = Replace(Email,"<","") Email = Replace(Email,"?","") Email = Replace(Email,"%","") Email = Replace(Email,"*","") Email = Replace(Email,"=","") Email = Replace(Email," ","") Telefone = request.Form("telefone") Telefone = Replace(Telefone,"'","") Telefone = Replace(Telefone,">","") Telefone = Replace(Telefone,"<","") Telefone = Replace(Telefone,"%","") Telefone = Replace(Telefone,"?","") Telefone = Replace(Telefone,"\","") Telefone = Replace(Telefone,"=","") Telefone = Replace(Telefone,"*","") Telefone = Replace(Telefone," ","") Cidade = request.Form("cidade") Cidade = Replace(Cidade,"'","") Cidade = Replace(Cidade,">","") Cidade = Replace(Cidade,"<","") Cidade = Replace(Cidade,"%","") Cidade = Replace(Cidade,"?","") Cidade = Replace(Cidade,"\","") Cidade = Replace(Cidade,"=","") Cidade = Replace(Cidade,"*","") Cidade = Replace(Cidade," ","") Corpo = Corpo & "

" Corpo = Corpo & "NOVO CONTATO VIA SITE
" Corpo = Corpo & "Nome: " &Nome& "
" Corpo = Corpo & "Telefone: " &Telefone& "
" Corpo = Corpo & "Cidade: " &Cidade& "
" Corpo = Corpo & "E-mail: " &Email& "
" Corpo = Corpo & "Curso: " &Titulo& "
" Corpo = Corpo & "
Enviado em " & Now() & " através do site
" sRemetente = "ives@ives.com.br" sResponder = "ives@ives.com.br" sDestinatario = "centrotecnico@ives.com.br" sAssunto = "Inscrição em CURSO - " & Date sMensagem = Corpo 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 objCDOSYSMail.From = sRemetente objCDOSYSMail.To = sDestinatario objCDOSYSMail.ReplyTo = sResponder objCDOSYSMail.Subject = sAssunto objCDOSYSMail.HtmlBody = sMensagem objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing response.redirect("centrotecnico-cadastro-obrigado.asp") response.End End If %> <%=Titulo%> | Centro Técnico | Inscrições | Perfumaria Ives

Faça uma pré-reserva da sua vaga para o curso:

<%=DataTxt%>

<%=Titulo%>

<%=Conteudo%>

Horário: <%=Horario%>
Investimento: <%=Preco%>

A pré reserva não garante a sua inscrição no curso, aguarde um retorno da nossa equipe do centro técnico confirmando a sua inscrição.

Nome:
E-mail:
Telefone:
Cidade:


Revista IVES 10 Edição / 2011
Especializada no setor profissional, confira todas as novidades do mercado e do nosso centro técnico.