<%
'Autoriza a página a ser visualizada sem protecao
autorizacao = 1
%>

<!-- #include file="cabecalho.asp" -->
<!-- #include file="conexao.asp" -->

<%
''' Desenvolvido por JC & F Sistemas de Informação Ltda. 
''' Todos os direitos reservados
'''--------------------------------------------------------------------------------
''' Data de Início: 16/02/2007
''' Data de Término: 
''' Se submeter o formulário, processa as seguintes tarefas:
''' Verifica Se todos os campos obrigatórios foram preenchidos
''' Verifica Se o Login escolhido já existe
''' Verifica se o e-mail é válido (@.com.br)
''' Se tudo tiver certo, inclui no banco e envia o e-mail de confirmação do CDONTS
''' Depois Redireciona para a página de aviso
'''---------------------------------------------------------------------------------
If request.form("Controle") = "" then
valor = "Selecione"
errocpf = "Informe somente os números do seu CPF. Sem pontos e traço."
else
valor = Request.form("estado")
End if

if request.form("controle") = 1 then
if request.form("nome")  = "" then
erronome = "Este campo deve ser preenchido."
errototal = 1  ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("apelido") = "" then
erroapelido = "Este campo deve ser preenchido."
errototal = 1  ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("endereco") = "" then
erroendereco = "Este campo deve ser preenchido."
errototal = 1  ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("cep") = "" then
errocep = "Este campo deve ser preenchido."
errototal = 1  ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("cidade") = "" then
errocidade = "Este campo deve ser preenchido."
errototal = 1  ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("estado") = "Selecione" then
erroestado = "Este campo deve ser preenchido."
errototal = 1  ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("email") = "" then
erroemail = "Este campo deve ser preenchido."
errototal = 1  ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("login") = "" then
errologin = "Este campo deve ser preenchido."
errototal = 1  ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("telefone") = "" then
errotelefone = "Este campo deve ser preenchido."
errototal = 1  ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("senha") = "" then
errosenha = "Este campo deve ser preenchido."
errototal = 1  ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if
if request.form("bairro") = "" then
errobairro = "Este campo deve ser preenchido."
errototal = 1  ' Essa variável tem que ser processada como Zero para adicionar no banco de dados
End if


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''==== Valida o Email do Cara ======---------
'-- Valida email --------------------------------------------- 
email = Request.Form("email")
If email <> "" then 
If Instr(email,"@") <> 0 then 
variavel_L = len(email) 
'-- Localiza posição do @ ---------------------------- 
Variavel_t = instr(email,"@") + 1 
'-- Localiza posição do . apó o @ -------------------- 
variavel_P = Mid(email,Variavel_t) 
'-- Localiza posição do . apó o @ -------------------- 
variavel_P2 = Instr(email,".") 
If Instr(variavel_P,".") = 0 then 
'-- Verifica se email tem . apó o @ ------------------ 
erroemail = "Por favor, verifique o e-mail que foi digitado. Formato inválido." 
errototal = 1
ElseIf Instr(email,".") = Variavel_t then 
'-- Verifica se o ponto esta logo em seguida do @ --- 
erroemail = "Por favor, verifique o e-mail que foi digitado. Formato inválido." 
errototal = 1
ElseIf variavel_P2 = Len(email) then 
'-- Verifica se o ponto esta logo em seguida do @ --- 
erroemail = "Por favor, verifique o e-mail que foi digitado. Formato inválido." 
errototal = 1
Else 
'Response.Write Lcase(email) 
End If 

ElseIf Instr(email,"@") = 0 then 
erroemail = "Por favor, verifique o e-mail que foi digitado. Formato inválido." 
errototal = 1
End If 


'''''''= VErifica se o email digitado é igual ao de baixo
If trim(Ucase(request.form("email"))) <> trim(ucase(request.form("email2"))) then
erroemail2 = "E-mail não confere com o digitado acima. Digite novamente."
errototal = 1
end if

''''========================================

End If 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'''Se não tiver erro de preenchimento do formulário começa a processar o banco de dados
If errototal = "" then

	Call Conecta()
	
	'Verifica se já existe algum dado no banco de dados
	vsSQL = "SELECT * FROM usuarios"
    Set RS = oConexao.Execute(vsSQL)
	Do While Not Rs.EOF
	If trim(ucase(RS("APELIDO"))) = trim(ucase(REQUEST.FORM("APELIDO"))) THEN
	errodobanco = 1
	erroapelido = "Já existe um usuário cadastrado com esse apelido. Favor escolher outro."
	End if
	
	
	If trim(ucase(RS("LOGIN"))) = trim(ucase(REQUEST.FORM("LOGIN"))) THEN
	errodobanco = 1
	errologin = "Já existe um usuário cadastrado com esse Login. Favor escolher outro."
	End if
	
	If trim(ucase(RS("email"))) = trim(ucase(REQUEST.FORM("email"))) THEN
	errodobanco = 1
	erroemail = "Já existe um usuário cadastrado com esse email. Favor escolher outro."
	End if
	
	Rs.Movenext
	Loop
end if
	
	
	If errodobanco = "" and errototal = "" then
	

		Loginseguranca = Replace(Request.Form("login"),chr(39),"''") 
		Senhaseguranca = Replace(Request.Form("senha"),chr(39),"''") 
		'Fez o Insert No banco de dados
		vsSQL3 = "INSERT INTO usuarios(nome,apelido, endereco, cep, cidade, estado, email, telefone, validou, bloqueado, assinante, emteste, login, senha, bairro, cpf, datadocadastro) VALUES ('"&replace(Request.Form("nome"),chr(39),"''")&"', '"&replace(Request.Form("apelido"),chr(39),"''")&"', '"&replace(Request.Form("endereco"),chr(39),"''")&"', '"&replace(Request.Form("cep"),chr(39),"''")&"', '"&replace(Request.Form("cidade"),chr(39),"''")&"', '"&replace(Request.Form("estado"),chr(39),"''")&"', '"&replace(Request.Form("email"),chr(39),"''")&"', '"&replace(Request.Form("telefone"),chr(39),"''")&"', '1', '0', '0', '0', '"&replace(loginseguranca,chr(39),"''")&"', '"&replace(senhaseguranca,chr(39),"''")&"', '"&replace(Request.Form("bairro"),chr(39),"''")&"', '"&replace(Request.Form("cpf"),chr(39),"''")&"', '"&DATE&"')" 
	  	Set RS3 = oConexao.Execute(vsSQL3)
   		Call desconecta()

'Criando o objeto
Set CDOMail = Server.CreateObject("CDO.Message")

'Criando a instância
Set CDOCon = Server.CreateObject ("CDO.Configuration")
'Host
CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.julianocarneiro.com.br"
'Porta
CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Porta do CDO
CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'SMTP Autenticado = 1
CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'Usuário
CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "eu@julianocarneiro.com.br"
'Senha
CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "leadership1012"
'Timeout (segundos)
CDOCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
CDOCon.Fields.update
Set CDOMail.Configuration = CDOCon

'Nome e email do Remetente
CDOMail.From = "Juliano <eu@julianocarneiro.com.br>"
'Nome e email do Destinatário

'Trata o email do destinatario

'emaildestinatario = rs("apelido")&"&nbsp;<"&rs("email")&"&nbsp;>"
'response.write(emaildestinatario)

'CDOMail.To = "Juliano <eu@julianocarneiro.com.br>"
enderecodeemail = "Portal Juliano Carneiro <" & request.form("email") & ">"
CDOMail.To = enderecodeemail
'Assunto
CDOMail.Subject = "Seja bem-vindo(a) a comunidade de Análise Técnica."
'Corpo de mensagem

'''''''INICIO DO HTML DA MENSAGEM
textohtml = "<body bgcolor=""#ffffff"" leftmargin=""0"" topmargin=""0"" marginheight=""0"" marginwidth=""0""><center>"
textohtml = textohtml & "<font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">Se voc&ecirc; n&atilde;o consegue visualizar este e-mail <a href=""http://www.julianocarneiro.com.br/boasvindas.asp"">clique aqui</a>. </font>"
textohtml = textohtml & "</font>"
textohtml = textohtml & "</center>"
textohtml = textohtml & "<center>"
textohtml = textohtml & "<table width=""500""><tr><td align=""center"">"
textohtml = textohtml & "<table cellspacing=""0"" cellpadding=""15"" width=""600"" border=""0"">"
textohtml = textohtml & "<tbody>"
textohtml = textohtml & "<tr>"
textohtml = textohtml & "<td valign=""top"" width=""630""><font face=""verdana"" size=""1"">&nbsp;</font><center>"
textohtml = textohtml & "<font size=""5""><strong> </strong></font>"
textohtml = textohtml & "<font size=""1"" face=""verdana""><img src=""http://www.julianocarneiro.com.br/images/logohorizontal.gif"" width=""320"" height=""56""><br>"
textohtml = textohtml & "<br>"
textohtml = textohtml & "<input name=""imageField"" type=""image"" src=""http://www.julianocarneiro.com.br/images/linhaseparadora.gif"" width=""560"" height=""1"" border=""0"">"
textohtml = textohtml & "<br>"
textohtml = textohtml & "<br>"
textohtml = textohtml & "</font>"
textohtml = textohtml & "<table width=""560""  border=""0"">"
textohtml = textohtml & "<tr>"
textohtml = textohtml & "<td><font color=""#007CC3"" size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"">Ol&aacute;, "&request.form("apelido")&".<br>"
textohtml = textohtml & "<br>"
textohtml = textohtml & "Seja bem-vindo(a) a minha comunidade de an&aacute;lise t&eacute;cnica.<br>"
textohtml = textohtml & "<br>"
textohtml = textohtml & "O objetivo do Portal &eacute; reunir a maior quantidade de operadores da bolsa de valores poss&iacute;vel para que assim, possamos trocar id&eacute;ias sobre a an&aacute;lise t&eacute;cnica e o mercado de capitais. <br>"
textohtml = textohtml & "<br>"
textohtml = textohtml & "Se voc&ecirc; j&aacute; opera o mercado, entre no f&oacute;rum e conte sua experi&ecirc;ncia. Se voc&ecirc; ainda n&atilde;o opera, coloque suas d&uacute;vidas. Todos s&atilde;o bem-vindos e ser&aacute; um prazer conhec&ecirc;-lo(a). <br>"
textohtml = textohtml & "<br>"
textohtml = textohtml & "Estarei no Portal a maior parte do dia fornecendo conte&uacute;do para voc&ecirc;. <br>"
textohtml = textohtml & "<br>"
textohtml = textohtml & "Me coloco a sua disposi&ccedil;&atilde;o para eventuais d&uacute;vidas, sugest&otilde;es ou cr&iacute;ticas.<br>"
textohtml = textohtml & "<br>"
textohtml = textohtml & "Um forte abra&ccedil;o e bons neg&oacute;cios.<br>"
textohtml = textohtml & "<br>"
textohtml = textohtml & "Juliano Carneiro. </font></td>"
textohtml = textohtml & "</tr>"
textohtml = textohtml & "</table>"
textohtml = textohtml & "</center></td>"
textohtml = textohtml & "</tr>"
textohtml = textohtml & "</tbody>"
textohtml = textohtml & "</table>"
textohtml = textohtml & "</td></tr>"
textohtml = textohtml & "</table>"
textohtml = textohtml & "</center>"
textohtml = textohtml & "</body>"

''''''' Termino do HTML da mensagem


CDOMail.HtmlBody = textohtml

'Enviando
CDOMail.Send

'Finalizando
Set CDOMail = Nothing
Set CDOCon = Nothing
	

		'Redireciona para a página informativa
		Response.redirect("logar.asp?cadastro=ok")

	end if
	

End if

%>							
							
														
							</td>
							
						  </tr>
						  <tr>
							<td width="740" style="background-image: url(images/t-dr.gif); background-repeat: repeat-x; height:7px" valign="top"></td>
						  </tr>
						  <tr>
							<td width="740" style="height:100px" valign="top">
								<table width="100%" style="background-image: url(images/m-t-dr.gif); background-repeat: repeat-x; background-position: top;height:100%" border="0" cellspacing="0" cellpadding="0">
												  <tr>
													<td width="3" style="background-image: url(images/p.gif); background-repeat: repeat-y; background-position: left;height:100%" valign="top">
														<table width="3" style="background-image: url(images/m-l-t.gif); background-repeat: no-repeat; background-position: top;height:100%" border="0" cellspacing="0" cellpadding="0">
														  <tr>
															<td width="3" style="background-image: url(images/m-l-b.gif); background-repeat: no-repeat; background-position: bottom;height:100%" valign="top"></td>
														  </tr>
														</table>
													</td>
													<td width="100%" style="background-image: url(images/m-b-dr.gif); background-repeat: repeat-x; background-position: bottom;height:100%" valign="top">
														<table width="100%" style="height:100%" border="0" cellspacing="0" cellpadding="0">
														  <tr>
															<td width="100%" style="height:100%" valign="top">
																<img src="images/barrafazercadastro.gif" alt="ações, bolsa de valores, investimentos, mercado financeiro, investimento, acoes, corretora, home-broker, home broker, homebroker, corretora, trading, trader, analise técnica, analise tecnica, análise técnica, curso, cursos, fórum, chat, gráficos, grafico, graficos, gráfico, forum, brasil, brazil, forex, metastock, educação, educacao, educaçao, educacão, artigo, artigos, mercado, dinheiro, finanças, economia, investimento" width="250" height="14" border="0" style="margin-left:16px; margin-top:16px"><br>																
																<div class="m_text" style="margin-left:16px; margin-top:26px; margin-right:18px; margin-bottom:10px">
																	Prezado Visitante,<br>
																	<br>
																	Voc&ecirc; est&aacute; a um passo de se tornar membro da maior comunidade de an&aacute;lise t&eacute;cnica do pa&iacute;s. <br>
																	Para acessar o Portal n&atilde;o &eacute; preciso pagar nada, basta efetuar o cadastro abaixo. Todo o conte&uacute;do do site &eacute; de acesso gratuito. <br>
																    <br>
										                Se voc&ecirc; j&aacute; tem cadastro, <a href="http://www.julianocarneiro.com.br/logar.asp" class="h1_text">clique aqui</a> e fa&ccedil;a o login.<br>
																	<br>
																  Para conhecer nossa pol&iacute;tica de privacidade <a href="politicadeprivacidade.asp" class="h1_text">clique aquii</a>. <br>
																    <br>
																    <span style="color: #FF0000">Aten&ccedil;&atilde;o: Todos os campos s&atilde;o obrigat&oacute;rios</span><br>
																	<form action="fazercadastro.asp" name="CAMPOS" method="post" onSubmit="return Verifica_CPF(this)">
																	<table width="693" border="0">
                                                                      <tr class="h1_text">
                                                                        <td width="85">Nome:</td>
                                                                        <td width="598"><input name="nome" type="text" class="ls_text" id="nome" value="<%=request.form("nome")%>" size="60" maxlength="149">
                                                                        <span class="l1_text"> <%=erronome%></span></td>
                                                                      </tr>
                                                                      <tr class="h1_text">
                                                                        <td>Apelido:</td>
                                                                        <td><input name="apelido" type="text" class="ls_text" id="apelido" value="<%=request.form("apelido")%>" size="20" maxlength="16">
                                                                        <span class="l1_text"><%=erroapelido%></span></td>
                                                                      </tr>
                                                                      <tr class="h1_text">
                                                                        <td>Endere&ccedil;o:</td>
                                                                        <td><input name="endereco" type="text" class="ls_text" id="endereco" value="<%=request.form("endereco")%>" size="60" maxlength="149">
                                                                        <span class="l1_text"><%=erroendereco%></span></td>
                                                                      </tr>
                                                                      <tr class="h1_text">
                                                                        <td>Bairro</td>
                                                                        <td><input name="bairro" type="text" class="ls_text" id="bairro" value="<%=request.form("bairro")%>" size="40" maxlength="90">
                                                                        <span class="l1_text"><%=errobairro%></span></td>
                                                                      </tr>
                                                                      <tr class="h1_text">
                                                                        <td>Cep:</td>
                                                                        <td><input name="cep" type="text" class="ls_text" id="cep" onKeyPress="if (event.keyCode < 47 || event.keyCode > 57) event.returnValue = false;" value="<%=request.form("cep")%>" size="9" maxlength="9">
                                                                          <span class="l1_text"> <%=errocep%></span></td>
                                                                      </tr>
                                                                      <tr class="h1_text">
                                                                        <td>Cidade:</td>
                                                                        <td><input name="cidade" type="text" class="ls_text" id="cidade" value="<%=request.form("cidade")%>" size="40" maxlength="90"> 
                                                                          <span class="l1_text"><%=errocidade%></span></td>
                                                                      </tr>
                                                                      <tr class="h1_text">
                                                                        <td>Estado:</td>
                                                                        <td>
																		<select name="Estado" class="ls_text">
																		  <option value="<%=valor%>" selected><%=valor%></option>
																		  <option value="AC">AC</option>
																		  <option value="AL">AL</option>
																		  <option value="AM">AM</option>
																		  <option value="AP">AP</option>
																		  <option value="BA">BA</option>
																		  <option value="CE">CE</option>
																		  <option value="DF">DF</option>
     																	  <option value="ES">ES</option>
																		  <option value="GO">GO </option>
																		  <option value="MA">MA</option>
																		  <option value="MG">MG</option>
																		  <option value="MS">MS</option>
																		  <option value="MT">MT</option>
																		  <option value="PA">PA</option>
																		  <option value="PB">PB</option>
																		  <option value="PE">PE</option>
																		  <option value="PI">PI</option>
																		  <option value="PR">PR</option>
																		  <option value="RJ">RJ</option>
																		  <option value="RN">RN</option>
																		  <option value="RO">RO</option>
																		  <option value="RS">RS</option>
																		  <option value="SP">SP</option>
																		  <option value="SC">SC</option>
																		  <option value="SE">SE</option> 
                                                                        </select>
																		<span class="l1_text"> <%=erroestado%></span>
																		</td>
                                                                      </tr>
                                                                      <tr class="h1_text">
                                                                        <td>Telefone:</td>
                                                                        <td><input name="telefone" type="text" class="ls_text" id="telefone" onKeyPress="if (event.keyCode < 47 || event.keyCode > 57) event.returnValue = false;" value="<%=request.form("telefone")%>" size="40" maxlength="90">
                                                                          <span class="l1_text"><%=errotelefone%></span></td>
                                                                      </tr>

                                                                      <tr class="h1_text">
                                                                        <td>E-mail:</td>
                                                                        <td><input name="email" type="text" class="ls_text" id="email" value="<%=request.form("email")%>" size="60" maxlength="149"> 
                                                                          <span class="l1_text"><%=erroemail%></span></td>
                                                                      </tr>
                                                                      <tr class="h1_text">
                                                                        <td>Repita o E-mail: </td>
                                                                        <td><input name="email2" type="text" class="ls_text" id="email2" value="<%=request.form("email2")%>" size="60" maxlength="149">
                                                                        <span class="l1_text"><%=erroemail2%></span></td>
                                                                      </tr>
                                                                      <tr class="h1_text">
                                                                        <td>Login:</td>
                                                                        <td><input name="login" type="text" class="ls_text" id="login" value="<%=request.form("login")%>" size="20" maxlength="15"> 
                                                                        <span class="l1_text"><%=errologin%></span></td>
                                                                      </tr>
                                                                      <tr class="h1_text">
                                                                        <td>Senha:</td>
                                                                        <td><input name="senha" type="password" class="ls_text" id="senha" value="<%=request.form("senha")%>" size="20" maxlength="15"> 
                                                                        <span class="l1_text"><%=errosenha%></span></td>
                                                                      </tr>
                                                                      <tr class="h1_text">
                                                                        <td>&nbsp;</td>
                                                                        <td>
																		
																		<input name="controle" type="hidden" value="1">
																		<input name="image" type="image" class="botao" src="images/botaocadastrar.jpg"/>
																		<br></td>
                                                                      </tr>
                                                                    </table>
																	</form>
															  </div>															</td>
														  </tr>
														  <tr>
															<td width="100%" style="height:38px" valign="top">
																<div class="m_text" style="margin-left:16px; margin-top:11px;  ">E-mail: <a href="mailto:moderador@julianocarneiro.com.br" class="l1_text" style="font-size:11px">moderador@julianocarneiro.com.br</a></div>
															</td>
														  </tr>
														</table>																									
													</td>
													<td width="3" style="background-image: url(images/p.gif); background-repeat: repeat-y; background-position: right;height:100%" valign="top">
														<table width="3" style="background-image: url(images/m-r-t.gif); background-repeat: no-repeat; background-position: top;height:100%" border="0" cellspacing="0" cellpadding="0">
														  <tr>
															<td width="3" style="background-image: url(images/m-r-b.gif); background-repeat: no-repeat; background-position: bottom;height:100%" valign="top"></td>
														  </tr>
														</table>
													</td>
												  </tr>
							  </table>
							</td>
						  </tr>
						  <tr>
							<!-- #include file="rodape.asp" -->