<%
	option explicit
%>
	<!--#include file="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/funcao.asp" -->
<%
	Dim VAlidaDados,Mensagem,SQL,Indice,Banco,Data,Aux,Selected,tbl
	Dim LinhaSexo,LinhaDataSaida,LinhaDataNascimento,LinhaCivil,LinhaEscolaridade,LinhaFormacao,LinhaPosGraduacaoArea
	Dim LinhaDataConclusao,LinhaOutroCursoNivel,LinhaHistoricoDataEntrada1,LinhaHistoricoDataSaida1,LinhaHistoricoDataEntrada2
	Dim LinhaHistoricoDataSaida2,LinhaHistoricoDataEntrada3,LinhaHistoricoDataSaida3,LinhaIdiomaPortuguesNivel,LinhaIdiomaEspanholNivel
	Dim LinhaIdiomaInglesNivel,LinhaIdiomaOutrosNivel,LinhaSituacao,LinhaDataConclusaoGraduacao
	Dim IndiceLinha,Checado,NomePagina
	
	Nomepagina="cadastrocadastrorh.asp"
	Set Banco = Server.CreateObject("ADODB.Connection")
	Banco.open session("ConexaoStringBanco")
	
	if ucase(request.ServerVariables("REQUEST_METHOD"))="POST" then
		VAlidaDados=True
		if trim(replace(request.Form("TxtNome"),"'",""))="" then ValidaDados=false
		if trim(replace(request.Form("TxtCPF"),"'",""))="" then ValidaDados=false
		Data=trim(request.Form("TxtAnoNascimento")) & "/" & trim(request.Form("TxtMesNascimento")) & "/" & trim(request.Form("TxtDiaNascimento")) 
		if not isdate(Data) then ValidaDados=false
		if trim(replace(request.Form("TxtCidadeNascimento"),"'",""))="" THEN  ValidaDados=false
		if trim(replace(request.Form("TxtUFNascimento"),"'",""))="" THEN  ValidaDados=false 
		if trim(replace(request.Form("UseCmbEstadoCivil"),"'",""))="" THEN ValidaDados=false
		if trim(replace(request.Form("TxtEndereco"),"'",""))="" THEN ValidaDados=false
		if trim(replace(request.Form("TxtCidade"),"'",""))="" THEN ValidaDados=false	
		if trim(replace(request.Form("TxtUF"),"'",""))="" THEN ValidaDados=false
		if trim(replace(request.Form("TxtCargoPretendido1"),"'",""))="" THEN ValidaDados=false
		if trim(replace(request.Form("UseCmbEscolaridade"),"'",""))="" THEN ValidaDados=false
		if Validadados then 	
			SQL=""
			SQL="	INSERT INTO CURRICULO("
			SQL=SQL & " CURRICULO_TXT_NOME,CURRICULO_TXT_CPF,CURRICULO_DTA_NASCIMENTO,CURRICULO_TXT_CIDADENASCIMENTO,"
			SQL=SQL & " CURRICULO_TXT_UFNASCIMENTO,CURRICULO_TXT_ESTADOCIVIL,CURRICULO_TXT_ENDERECO,CURRICULO_TXT_CIDADE,CURRICULO_TXT_UF,"	
			SQL=SQL & " CURRICULO_TXT_TELEFONE,CURRICULO_TXT_CELULAR,CURRICULO_TXT_EMAIL,"
			SQL=SQL & " CURRICULO_TXT_CARGOPRETENDIDO1,CURRICULO_TXT_CARGOPRETENDIDO2,CURRICULO_TXT_CARGOPRETENDIDO3,"
			SQL=SQL & " CURRICULO_TXT_ESCOLARIDADE,CURRICULO_TXT_FORMACAO,CURRICULO_TXT_OUTRAFORMACAO,CURRICULO_TXT_SITUACAO,CURRICULO_TXT_DATACONCLUSAO,"
			SQL=SQL & " CURRICULO_TXT_INSTITUICAO,CURRICULO_TXT_POSGRADUCAOAREA,CURRICULO_TXT_GRADUCAOCURSO,CURRICULO_TXT_GRADUCAOINSTITUICAO,"
			SQL=SQL & " CURRICULO_TXT_GRADUCAODATACONCLUSAO,CURRICULO_TXT_MESTRADO,CURRICULO_TXT_DOUTORADO,CURRICULO_TXT_OUTROCURSO,"	
			SQL=SQL & " CURRICULO_TXT_HISTORICOEMPRESA1,CURRICULO_TXT_HISTORICOCARGO1,"
			SQL=SQL & " CURRICULO_DTA_HISTORICOENTRADA1,CURRICULO_DTA_HISTORICOSAIDA1,CURRICULO_TXT_HISTORICODESCRICAO1,"
			SQL=SQL & " CURRICULO_TXT_HISTORICOEMPRESA2,CURRICULO_TXT_HISTORICOCARGO2,CURRICULO_DTA_HISTORICOENTRADA2,"
			SQL=SQL & " CURRICULO_DTA_HISTORICOSAIDA2,CURRICULO_TXT_HISTORICODESCRICAO2,"
			SQL=SQL & " CURRICULO_TXT_HISTORICOEMPRESA3,CURRICULO_TXT_HISTORICOCARGO3,CURRICULO_DTA_HISTORICOENTRADA3,"
			SQL=SQL & " CURRICULO_DTA_HISTORICOSAIDA3,CURRICULO_TXT_HISTORICODESCRICAO3,"
			SQL=SQL & " CURRICULO_TXT_IDIOMAPORTUGUESNIVEL,CURRICULO_TXT_IDIOMAINGLESNIVEL,CURRICULO_TXT_IDIOMAESPANHOLNIVEL,"
			SQL=SQL & " CURRICULO_TXT_OUTROIDIOMA,CURRICULO_TXT_OUTROIDIOMANIVEL,CURRICULO_TXT_INFORMATICA,CURRICULO_TXT_OUTRASINFORMACOES,"
			SQL=SQL & "	CURRICULO_TXT_ATUALIZACAO)"
			SQL=SQL & " VALUES("
			SQL=SQL & "'" & trim(replace(request.Form("TxtNome"),"'","")) & "',"
			SQL=SQL & "'" & trim(replace(request.Form("TxtCPF"),"'","")) & "',"
			
			Data=trim(request.Form("TxtAnoNascimento")) & "/" & trim(request.Form("TxtMesNascimento")) & "/" & trim(request.Form("TxtDiaNascimento")) 
			SQL=SQL & "#" & Data & "#," 
			SQL=SQL & "'" & trim(replace(request.Form("TxtCidadeNascimento"),"'","")) & "',"
			SQL=SQL & "'" & trim(replace(request.Form("TxtUFNascimento"),"'","")) & "',"
			SQL=SQL & "'" & trim(replace(request.Form("UseCmbEstadoCivil"),"'","")) & "',"
			SQL=SQL & "'" & trim(replace(request.Form("TxtEndereco"),"'","")) & "',"
			SQL=SQL & "'" & trim(replace(request.Form("TxtCidade"),"'","")) & "',"
			SQL=SQL & "'" & trim(replace(request.Form("TxtUF"),"'","")) & "',"
			
			if trim(replace(request.Form("TxtTelefone"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("TxtTelefone"),"'","")) & "',"
			end if
			
			if trim(replace(request.Form("TxtCelular"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("TxtCelular"),"'","")) & "',"
			end if
			
			if trim(replace(request.Form("TxtEmail"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("TxtEmail"),"'","")) & "',"
			end if

			SQL=SQL & "'" & trim(replace(request.Form("TxtCargoPretendido1"),"'","")) & "',"

			if trim(replace(request.Form("TxtCargoPretendido2"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("TxtCargoPretendido2"),"'","")) & "',"
			end if

			if trim(replace(request.Form("TxtCargoPretendido3"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("TxtCargoPretendido3"),"'","")) & "',"
			end if


			
			SQL=SQL & "'" & trim(replace(request.Form("UseCmbEscolaridade"),"'","")) & "',"
			if trim(replace(request.Form("UseCmbFormacao"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("UseCmbFormacao"),"'","")) & "',"
			end if
			
			if trim(replace(request.Form("TxtOutraFormacao"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("TxtOutraFormacao"),"'","")) & "',"
			end if
	
			if trim(replace(request.Form("UseCmbSituacao"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("UseCmbSituacao"),"'","")) & "',"
			end if
			
			Data=trim(request.Form("TxtMesConclusao")) & "/" & trim(request.Form("TxtAnoConclusao"))		
			IF Data="/" then
				SQL=SQL & " NULL,"
			else
				SQL=SQL & "'" & Data & "',"
			end if
	
			if trim(replace(request.Form("TxtInstituicao"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("TxtInstituicao"),"'","")) & "',"
			end if
			
			if trim(replace(request.Form("UseCmbPosGraducaoArea"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("UseCmbPosGraducaoArea"),"'","")) & "',"
			end if
	
			if trim(replace(request.Form("TxtGraduacaoCurso"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("TxtGraduacaoCurso"),"'","")) & "',"
			end if
			
			if trim(replace(request.Form("TxtGraduacaoInstituicao"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("TxtGraduacaoInstituicao"),"'","")) & "',"
			end if
			
			Data=trim(request.Form("TxtMesGraduacaoConclusao")) & "/" & trim(request.Form("TxtAnoGraduacaoConclusao"))		
			IF Data="/" then
				SQL=SQL & " NULL,"
			else
				SQL=SQL & "'" & Data & "',"
			end if
	
			if trim(replace(request.Form("TxtMestrado"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("TxtMestrado"),"'","")) & "',"
			end if
			
			if trim(replace(request.Form("TxtDoutorado"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("TxtDoutorado"),"'","")) & "',"
			end if
			
			if trim(replace(request.Form("TxtOutroCurso"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("TxtOutroCurso"),"'","")) & "',"
			end if
			
			for indice=1 to 3
				if trim(replace(request.Form("TxtHistoricoEmpresa" & Indice),"'",""))="" THEN
					SQL=SQL & " NULL,"
				ELSE
					SQL=SQL & "'" & trim(replace(request.Form("TxtHistoricoEmpresa" & Indice ),"'","")) & "',"
				end if
				if trim(replace(request.Form("TxtHistoricoCargo" & Indice),"'",""))="" THEN
					SQL=SQL & " NULL,"
				ELSE
					SQL=SQL & "'" & trim(replace(request.Form("TxtHistoricoCargo" & Indice ),"'","")) & "',"
				end if
				
				Data=trim(request.Form("TxtHistoricoEntradaAno" & Indice)) & "/" & trim(request.Form("TxtHistoricoEntradaMes" & Indice)) 
				if isdate(Data & "/01") then
					SQL=SQL & "'" & Data & "'," 
				ELSE
					SQL=SQL & "NULL,"
				end if
				
				Data=trim(request.Form("TxtHistoricoSaidaAno" & Indice)) & "/" & trim(request.Form("TxtHistoricoSaidaMes" & Indice)) 
				if isdate(Data & "/01") then
					SQL=SQL & "'" & Data & "'," 
				ELSE
					SQL=SQL & "NULL,"
				end if
				
				if trim(replace(request.Form("TxtHistoricoDescricao" & Indice),"'",""))="" THEN
					SQL=SQL & " NULL,"
				ELSE
					SQL=SQL & "'" & trim(replace(request.Form("TxtHistoricoDescricao" & Indice ),"'","")) & "',"
				end if
			next
			if trim(replace(request.Form("UseCmbIdiomaPortuguesNivel"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("UseCmbIdiomaPortuguesNivel"),"'","")) & "',"
			end if
			if trim(replace(request.Form("UseCmbIdiomaInglesNivel"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("UseCmbIdiomaInglesNivel"),"'","")) & "',"
			end if
			if trim(replace(request.Form("UseCmbIdiomaEspanholNivel"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("UseCmbIdiomaEspanholNivel"),"'","")) & "',"
			end if
			if trim(replace(request.Form("TxtOutroIdioma"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("TxtOutroIdioma"),"'","")) & "',"
			end if
			if trim(replace(request.Form("UseCmbIdiomaOutrosNivel"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("UseCmbIdiomaOutrosNivel"),"'","")) & "',"
			end if
			if trim(replace(request.Form("TXtInformatica"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("TXtInformatica"),"'","")) & "',"
			end if
			if trim(replace(request.Form("TXtOutrasInformacoes"),"'",""))="" THEN
				SQL=SQL & " NULL,"
			ELSE
				SQL=SQL & "'" & trim(replace(request.Form("TXtOutrasInformacoes"),"'","")) & "',"
			end if
			sql=sql & "'" & Date & " - " & time & " - " & "')"
			response.Write(sql)
			banco.execute sql
			if err<>0 then 	banco.close :set banco=nothing:response.Redirect("erro.asp?Pagina=" & NomePagina & "&Erro="& err & "- " & err.description)
			response.Redirect("Mensagem.asp?Mensagem=Seu currículo foi cadastrado com sucesso.&Link=cadastrorh.asp")				
		end if
	end if

	if ucase(request.ServerVariables("REQUEST_METHOD"))<>"POST"  or request.Form("OptSexo")="0" Then
		LinhaSexo="<input name=""OptSexo"" type=""radio"" value=""0"" checked> M"	
		LinhaSexo=LinhaSexo & "<input name=""OptSexo"" type=""radio"" value=""1"" > F"	
	else
		LinhaSexo="<input name=""OptSexo"" type=""radio"" value=""0"" > M"	
		LinhaSexo=LinhaSexo & "<input name=""OptSexo"" type=""radio"" value=""1"" checked> F"	
	end if
	
	Data=trim(request.Form("TxtDiaNascimento")) & "/" & trim(request.Form("TxtMesNascimento")) & "/" & trim(request.Form("TxtAnoNascimento"))
	if Data="//" then Data=""

	LinhaDataNascimento="<input name=""TxtDiaNascimento"" type=""text"" class=""caixatexto"" value=""" & Mid(Data,1,2) & """ class=""Campos"" id=""TxtDiaSaida"" size=""5"" maxlength=""2""  >"
	LinhaDataNascimento=LinhaDataNascimento & "/"
	LinhaDataNascimento=LinhaDataNascimento & " <input name=""TxtMesNascimento"" class=""caixatexto"" value=""" & Mid(Data,4,2) & """ type=""text"" class=""Campos"" id=""TxtMesSaida"" size=""5"" maxlength=""2"" >"
	LinhaDataNascimento=LinhaDataNascimento & "/"
	LinhaDataNascimento=LinhaDataNascimento & "<input name=""TxtAnoNascimento""  class=""caixatexto"" value=""" & Mid(Data,7) & """ type=""text"" class=""Campos"" size=""8"" maxlength=""4"" >	"		
	LinhaDataNascimento=LinhaDataNascimento & "<font size=""2"" face=""Verdana"">(dd/mm/aa)</font>"
	
	
 	Mensagem="<td align=""center"" valign=""top""><font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif""><b>Os campos sublinhados deverão ser preenchidos (Não é permitido utilizar o caracter ')</strong></font></td>"

	LinhaCivil="<select name=""UseCmbEstadoCivil"" class=""combo"">"
	Selected="":if request.Form("UseCmbEstadoCivil")="Solteiro(a)" then Selected="Selected"
	LinhaCivil=LinhaCivil & "<option value=""Solteiro(a)""" &  selected & ">Solteiro(a)</option>"
	Selected="":if request.Form("UseCmbEstadoCivil")="Casado(a)" then Selected="Selected"
	LinhaCivil=LinhaCivil & "<option value=""Casado(a)""" &  selected & ">Casado(a)</option>"
	Selected="":if request.Form("UseCmbEstadoCivil")="Separado(a)" then Selected="Selected"
	LinhaCivil=LinhaCivil & "<option value=""Separado(a)""" &  selected & ">Separado(a)</option>"
	Selected="":if request.Form("UseCmbEstadoCivil")="Divorciado(a)" then Selected="Selected"
	LinhaCivil=LinhaCivil & "<option value=""Divorciado(a)""" &  selected & ">Divorciado(a)</option>"
	Selected="":if request.Form("UseCmbEstadoCivil")="Viúvo(a)" then Selected="Selected"
	LinhaCivil=LinhaCivil & "<option value=""Viúvo(a)""" &  selected & ">Viúvo(a)</option>"
    LinhaCivil=LinhaCivil & "</select>"
	
	LinhaEscolaridade="<select name=""UseCmbEscolaridade"" class=""combo"">"
	Selected="":if request.Form("UseCmbEscolaridade")="1º Grau" then Selected="Selected"
	LinhaEscolaridade=LinhaEscolaridade & "<option value=""1º Grau""" & Selected & ">1º Grau</option>"
	Selected="":if request.Form("UseCmbEscolaridade")="2º Grau" then Selected="Selected"
	LinhaEscolaridade=LinhaEscolaridade & "<option value=""2º Grau""" & Selected & ">2º Grau</option>"
	Selected="":if request.Form("UseCmbEscolaridade")="3º Grau" then Selected="Selected"
	LinhaEscolaridade=LinhaEscolaridade & "<option value=""3º Grau""" & Selected & ">3º Grau</option>"
	LinhaEscolaridade=LinhaEscolaridade & "</select>"
	
	set Tbl = Server.CreateObject("ADODB.Recordset")
	set Tbl.activeconnection = Banco

	SQL=""
	SQL=" SELECT FORMACAO_TXT_NOME AS NOME,FORMACAO_NUM_TIPO AS TIPO"
	SQL=SQL & "	FROM FORMACAO"
	SQL=SQL & " ORDER BY 2,1"
	tbl.open sql,,3,3
	LinhaFormacao="<select name=""UseCmbFormacao"" class=""Combo"">"
	LinhaPosGraduacaoArea="<select name=""UseCmbPosGraducaoArea"" class=""Combo"">"
	DO UNTIL TBL.EOF
		Selected=""
		IF TBL("TIPO")=0 THEN
			if TRIM(request.Form("UseCmbFormacao"))=tbl("NOME") then Selected="Selected"
			LinhaFormacao=LinhaFormacao & "<option value=""" & TBL("NOME") & """" & Selected & ">" & TBl("NOME") & "</option>"			
		ELSE
			if TRIM(request.Form("UseCmbPosGraducaoArea"))=tbl("NOME") then Selected="Selected"
			LinhaPosGraduacaoArea=LinhaPosGraduacaoArea & "<option value=""" & TBL("NOME") & """" & Selected & ">" & TBl("NOME") & "</option>"
		END IF		
		TBL.MOVENEXT
	LOOP
	LinhaFormacao=LinhaFormacao & "</select>"
	TBL.CLOSE
	
	LinhaSituacao="<select name=""UseCmbSituacao"" class=""combo"">"
	Selected="":if request.Form("UseCmbSituacao")="Completo" then Selected="Selected"
	LinhaSituacao=LinhaSituacao & "<option value=""Completo""" &  selected & ">Completo</option>"
	Selected="":if request.Form("UseCmbSituacao")="Cursando" then Selected="Selected"
	LinhaSituacao=LinhaSituacao & "<option value=""Cursando""" &  selected & ">Cursando</option>"
	Selected="":if request.Form("UseCmbSituacao")="Trancado" then Selected="Selected"
	LinhaSituacao=LinhaSituacao & "<option value=""Trancado""" &  selected & ">Trancado</option>"
	LinhaSituacao=LinhaSituacao & "</select>"
	
	
	Data=trim(request.Form("TxtMesConclusao")) & "/" & trim(request.Form("TxtAnoConclusao"))
	if Data="/" then Data=""

	LinhaDataConclusao="<input name=""TxtMesConclusao"" type=""text"" class=""caixatexto"" value=""" & Mid(Data,1,2) & """ class=""Campos"" id=""MesConclusao"" size=""5"" maxlength=""2""  >"
	LinhaDataConclusao=LinhaDataConclusao & "<font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">Mês(mm)/</FONT>"
	LinhaDataConclusao=LinhaDataConclusao & "<input name=""TxtAnoConclusao"" class=""caixatexto"" value=""" & Mid(Data,4) & """ type=""text"" class=""Campos"" size=""8"" maxlength=""4"" ><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">Ano(aaaa)</font>"			

	Data=trim(request.Form("TxtMesGraducaoConclusao")) & "/" & trim(request.Form("TxtAnoGraducaoConclusao"))
	if Data="/" then Data=""
	
	LinhaDataConclusaoGraduacao="<input name=""TxtMesGraduacaoConclusao"" class=""caixatexto"" type=""text"" value=""" & Mid(Data,1,2) & """ class=""Campos"" id=""MesConclusao"" size=""5"" maxlength=""2""  >"
	LinhaDataConclusaoGraduacao=LinhaDataConclusaoGraduacao & "<font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">Mês(mm)/</FONT>"
	LinhaDataConclusaoGraduacao=LinhaDataConclusaoGraduacao & "<input name=""TxtAnoGraduacaoConclusao"" class=""caixatexto"" value=""" & Mid(Data,4) & """ type=""text"" class=""Campos"" size=""8"" maxlength=""4""  ><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">Ano(aaaa)</font>"			
	
	
	Data=trim(request.Form("TxtHistoricoEntradaMes1")) & "/" & trim(request.Form("TxtHistoricoEntradaAno1"))
	if Data="/" then Data=""

	LinhaHistoricoDataEntrada1="<input name=""TxtHistoricoEntradaMes1"" class=""caixatexto"" type=""text"" value=""" & Mid(Data,1,2) & """ class=""Campos"" id=""TxtHistoricoEntradaMes1"" size=""5"" maxlength=""2""  >"
	LinhaHistoricoDataEntrada1=LinhaHistoricoDataEntrada1 & "<font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">Mês(mm)/</FONT>"
	LinhaHistoricoDataEntrada1=LinhaHistoricoDataEntrada1 & "<input name=""TxtHistoricoEntradaAno1"" class=""caixatexto"" value=""" & Mid(Data,4) & """ type=""text"" class=""Campos"" size=""8"" maxlength=""4"" ><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">Ano(aaaa)</font>"		
	
	Data=trim(request.Form("TxtHistoricoSaidaMes1")) & "/" & trim(request.Form("TxtHistoricoSaidaAno1"))
	if Data="/" then Data=""

	LinhaHistoricoDataSaida1="<input name=""TxtHistoricoSaidaMes1"" class=""caixatexto"" type=""text"" value=""" & Mid(Data,1,2) & """ class=""Campos"" id=""TxtHistoricoEntradaMes1"" size=""5"" maxlength=""2""  >"
	LinhaHistoricoDataSaida1=LinhaHistoricoDataSaida1 & "<font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">Mês(mm)/</FONT>"
	LinhaHistoricoDataSaida1=LinhaHistoricoDataSaida1 & "<input name=""TxtHistoricoSaidaAno1"" class=""caixatexto"" value=""" & Mid(Data,4) & """ type=""text"" class=""Campos"" size=""8"" maxlength=""4"" >Ano(aaaa)</font>"		


	Data=trim(request.Form("TxtHistoricoEntradaMes2")) & "/" & trim(request.Form("TxtHistoricoEntradaAno2"))
	if Data="/" then Data=""

	LinhaHistoricoDataEntrada2="<input name=""TxtHistoricoEntradaMes2"" class=""caixatexto"" type=""text"" value=""" & Mid(Data,1,2) & """ class=""Campos"" id=""TxtHistoricoEntradaMes1"" size=""5"" maxlength=""2""  >"
	LinhaHistoricoDataEntrada2=LinhaHistoricoDataEntrada2 & "<font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">Mês(mm)/</FONT>"
	LinhaHistoricoDataEntrada2=LinhaHistoricoDataEntrada2 & "<input name=""TxtHistoricoEntradaAno2"" class=""caixatexto"" value=""" & Mid(Data,4) & """ type=""text"" class=""Campos"" size=""8"" maxlength=""4""  ><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">Ano(aaaa)</font>"		
	
	Data=trim(request.Form("TxtHistoricoSaidaMes2")) & "/" & trim(request.Form("TxtHistoricoSaidaAno2"))
	if Data="/" then Data=""

	LinhaHistoricoDataSaida2="<input name=""TxtHistoricoSaidaMes2"" class=""caixatexto"" type=""text"" value=""" & Mid(Data,1,2) & """ class=""Campos"" id=""TxtHistoricoEntradaMes1"" size=""5"" maxlength=""2""  >"
	LinhaHistoricoDataSaida2=LinhaHistoricoDataSaida2 & "<font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">Mês(mm)/</FONT>"
	LinhaHistoricoDataSaida2=LinhaHistoricoDataSaida2 & "<input name=""TxtHistoricoSaidaAno2"" class=""caixatexto"" value=""" & Mid(Data,4) & """ type=""text"" class=""Campos"" size=""8"" maxlength=""4"" ><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">Ano(aaaa)</font>"		


	Data=trim(request.Form("TxtHistoricoEntradaMes3")) & "/" & trim(request.Form("TxtHistoricoEntradaAno3"))
	if Data="/" then Data=""

	LinhaHistoricoDataEntrada3="<input name=""TxtHistoricoEntradaMes3"" class=""caixatexto"" type=""text"" value=""" & Mid(Data,1,2) & """ class=""Campos"" id=""TxtHistoricoEntradaMes1"" size=""5"" maxlength=""2""  >"
	LinhaHistoricoDataEntrada3=LinhaHistoricoDataEntrada3 & "<font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">Mês(mm)/</FONT>"
	LinhaHistoricoDataEntrada3=LinhaHistoricoDataEntrada3 & "<input name=""TxtHistoricoEntradaAno3"" class=""caixatexto"" value=""" & Mid(Data,4) & """ type=""text"" class=""Campos"" size=""8"" maxlength=""4"" ><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">Ano(aaaa)</font>"		
	
	Data=trim(request.Form("TxtHistoricoSaidaMes3")) & "/" & trim(request.Form("TxtHistoricoSaidaAno3"))
	if Data="/" then Data=""

	LinhaHistoricoDataSaida3="<input name=""TxtHistoricoSaidaMes3"" type=""text"" class=""caixatexto"" value=""" & Mid(Data,1,2) & """ class=""Campos"" id=""TxtHistoricoEntradaMes1"" size=""5"" maxlength=""2""  >"
	LinhaHistoricoDataSaida3=LinhaHistoricoDataSaida3 & "<font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">Mês(mm)/</FONT>"
	LinhaHistoricoDataSaida3=LinhaHistoricoDataSaida3 & "<input name=""TxtHistoricoSaidaAno3"" class=""caixatexto"" value=""" & Mid(Data,4) & """ type=""text"" class=""Campos"" size=""8"" maxlength=""4"" ><font size=""2"" face=""Verdana, Arial, Helvetica, sans-serif"">Ano(aaaa)</font>"		

	LinhaIdiomaPortuguesNivel="<select name=""UseCmbIdiomaPortuguesNivel"" class=""Combo"">"
	LinhaIdiomaEspanholNivel="<select name=""UseCmbIdiomaEspanholNivel"" class=""Combo"">"
	LinhaIdiomaInglesNivel="<select name=""UseCmbIdiomaInglesNivel"" class=""Combo"">"	
	LinhaIdiomaOutrosNivel="<select name=""UseCmbIdiomaOutrosNivel"" class=""Combo"">"	
	for indice=1 to 5
		if indice=1 then
			Aux="Nenhum"
		elseif indice=2 then
			Aux="Básico"
		elseif indice=3 then
			Aux="Intermediário"
		elseif indice=4 then
			Aux="Avançado"
		elseif indice=5 then
			Aux="Fluente"
		end if
		Selected="":if trim(request.Form("UseCmbIdiomaPortuguesNivel"))=Aux then Selected="Selected"	
		LinhaIdiomaPortuguesNivel=LinhaIdiomaPortuguesNivel & "<option value=""" & Aux & """" & Selected & ">" & Aux & "</option>"

		Selected="":if trim(request.Form("UseCmbIdiomaEspanholNivel"))=Aux then Selected="Selected"	
		LinhaIdiomaEspanholNivel=LinhaIdiomaEspanholNivel & "<option value=""" & Aux & """" & Selected & ">" & Aux & "</option>"
		
		Selected="":if trim(request.Form("UseCmbIdiomaInglesNivel"))=Aux then Selected="Selected"	
		LinhaIdiomaInglesNivel=LinhaIdiomaInglesNivel & "<option value=""" & Aux & """" & Selected & ">" & Aux & "</option>"
		
		Selected="":if trim(request.Form("UseCmbIdiomaOutrosNivel"))=Aux then Selected="Selected"	
		LinhaIdiomaOutrosNivel=LinhaIdiomaOutrosNivel & "<option value=""" & Aux & """" & Selected & ">" & Aux & "</option>"
	next
	LinhaIdiomaPortuguesNivel=LinhaIdiomaPortuguesNivel & "</select>"
	LinhaIdiomaEspanholNivel=LinhaIdiomaEspanholNivel & "</select>"
	LinhaIdiomaInglesNivel=LinhaIdiomaInglesNivel & "</select>"	
	LinhaIdiomaOutrosNivel=LinhaIdiomaOutrosNivel & "</select>"
	
	banco.close:set banco=nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Century Paulista - Cadastro de clientes - Pessoa f&iacute;sica</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript" type="text/JavaScript">
function mmLoadMenus() {
  if (window.mm_menu_0616082506_0) return;
                                window.mm_menu_0616082506_0 = new Menu("root",157,18,"Verdana, Arial, Helvetica, sans-serif",12,"#000000","#000000","#FFFFCC","#FFCC99","left","middle",3,0,100,-5,7,true,true,true,0,true,true);
  mm_menu_0616082506_0.addMenuItem("&nbsp;Notícias&nbsp;e&nbsp;Eventos","location='noticias.asp'");
  mm_menu_0616082506_0.addMenuItem("&nbsp;São&nbsp;Paulo&nbsp;é&nbsp;SHOW!","location='promocaosp.htm'");
   mm_menu_0616082506_0.hideOnMouseOut=true;
   mm_menu_0616082506_0.bgColor='#555555';
   mm_menu_0616082506_0.menuBorder=1;
   mm_menu_0616082506_0.menuLiteBgColor='#FFFFFF';
   mm_menu_0616082506_0.menuBorderBgColor='#CCCCCC';

mm_menu_0616082506_0.writeMenus();
} // mmLoadMenus()<!--
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<link href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/%20central_layer.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-color: #F8D1A6;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.style6 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 12px; }
.style9 {font-size: 9px}
-->
</style>
<link href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/link2.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style14 {font-size: 14px}
.style16 {font-family: Verdana, Arial, Helvetica, sans-serif}
.style19 {font-weight: bold}
.style20 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; font-weight: bold; }
.style21 {font-size: 10px}
.style22 {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9px; }
-->
</style>
<script language="JavaScript" src="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/mm_menu.js"></script>
</head>
<body>
<script language="JavaScript1.2">mmLoadMenus();</script>
<div id="Layer1" style="position:absolute; width:151px; height:115px; z-index:5; left: 6px; top: 7px;"><img src="imagens_base/menu_lateral.png" width="167" height="718" border="0" usemap="#Map" />
    <map name="Map" id="Map">
      <area shape="rect" coords="4,682,161,709" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/feiraseconvencoes.htm" target="_parent" />
      <area shape="rect" coords="4,654,161,681" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/faleconosco.htm" target="_parent" />
      <area shape="rect" coords="4,626,161,653" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/recursoshumanos.htm" target="_parent" />
      <area shape="rect" coords="4,598,161,625" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/iso/iso9001.htm" target="_parent" />
      <area shape="rect" coords="4,567,161,596" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/faq.htm" target="_parent" />
      <area shape="rect" coords="4,538,161,565" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/guia/guiaturistico.htm" target="_parent" />
      <area shape="rect" coords="4,509,161,536" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/servicos.htm" target="_parent" />
      <area shape="rect" coords="4,479,161,506" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/nossosclientes.htm" target="_parent" />
      <area shape="rect" coords="4,451,161,478" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/cadastrodeclientes.htm" target="_parent" />
      <area shape="rect" coords="4,420,161,449" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/promocoes.htm" target="_parent" />
      <area shape="rect" coords="4,392,161,419" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/lazer.htm" target="_parent" />
      <area shape="rect" coords="4,364,161,390" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/gastronomia.htm" target="_parent" />
      <area shape="rect" coords="4,336,161,362" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/casamentos.htm" target="_parent" />
      <area shape="rect" coords="4,308,161,334" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/reservas.asp" target="_parent" />
      <area shape="rect" coords="5,280,162,306" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/eventos.htm" target="_parent" />
      <area shape="rect" coords="6,219,162,245" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/localizacao.htm" target="_parent" />
      <area shape="rect" coords="5,249,162,278" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/acomodacoes.htm" target="_parent" />
      <area shape="rect" coords="6,190,162,216" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/quemsomos.htm" target="_parent" />
      <area shape="rect" coords="79,90,80,92" href="#" />
      <area shape="rect" coords="5,5,164,154" href="http://www.centuryflat.com.br" target="_parent" />
      <area shape="rect" coords="5,161,162,187" href="file:///C|/Documents%20and%20Settings/Raphael/Meus%20documentos/sites/Site%20Century/home.htm" target="_parent" />
    </map>
</div>
<div id="Layer1" style="position:absolute; width:200px; height:50px; z-index:3; left: 184px; top: 8px;"><img src="imagens_base/bar_sup_RH.png" width="590" height="70" /></div>
<div id="Layer2" style="position:absolute; width:590px; height:667px; z-index:2; left: 184px; top: 72px; background-color: #FFFFFF; layer-background-color: #FFFFFF; border: 1px none #000000;"></div>
<div id="Layer1" style="position:absolute; width:200px; height:3px; z-index:6; left: 184px; top: 729px;"><img src="imagens_base/bar_inf_quemsomos.png" width="590" height="21" /></div>
<div id="Layer1" style="position:absolute; width:200px; height:49px; z-index:4; left: 17px; top: 759px;"><img src="imagens_base/endereco.png" width="743" height="60" border="0" /></div>
</body>
</html>