<% '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### '# '# CÓDIGO: VirtuaStore Versão OPEN - Copyright 2001-2004 VirtuaStore '# URL: http://comunidade.virtuastore.com.br '# E-MAIL: jusivansjc@yahoo.com.br '# AUTORES: Otávio Dias(Desenvolvedor) '# '# Este programa é um software livre; você pode redistribuí-lo e/ou '# modificá-lo sob os termos do GNU General Public License como '# publicado pela Free Software Foundation. '# É importante lembrar que qualquer alteração feita no programa '# deve ser informada e enviada para os criadores, através de e-mail '# ou da página de onde foi baixado o código. '# '# //------------------------------------------------------------------------------------- '# // LEIA COM ATENÇÃO: O software VirtuaStore OPEN deve conter as frases '# // "Powered by VirtuaStore OPEN" ou "Software derivado de VirtuaStore 1.2" e '# // o link para o site http://comunidade.virtuastore.com.br no créditos da '# // sua loja virtual para ser utilizado gratuitamente. Se o link e/ou uma das '# // frases não estiver presentes ou visiveis este software deixará de ser '# // considerado Open-source(gratuito) e o uso sem autorização terá '# // penalidades judiciais de acordo com as leis de pirataria de software. '# //-------------------------------------------------------------------------------------- '# '# Este programa é distribuído com a esperança de que lhe seja útil, '# porém SEM NENHUMA GARANTIA. Veja a GNU General Public License '# abaixo (GNU Licença Pública Geral) para mais detalhes. '# '# Equipe VirtuaStore '# []'s '# '######################################################################################### '#---------------------------------------------------------------------------------------- '######################################################################################### 'INÍCIO DO CÓDIGO 'Este código está otimizado e roda tanto em Windows 2000/NT/XP/ME/98 quanto em servidores UNIX-LINUX com chilli!ASP %> <% 'Chama as variaveis strEmail = request.form("email") strSenha = request.form("senha") strSenha = CStr(strSenha) strNome = request.form("nomecompleto") strNascdia = request.form("nascdia") strNascmes = request.form("nascmes") strNascano = request.form("nascano") strCpf = request.form("cpf") strRg = request.form("rg") strEndereco = request.form("endereco") strBairro = request.form("bairro") strCidade = request.form("cidade") strEstado = request.form("estado") strOutropais = request.form("outropais") strCep = request.form("cepzz") strPais = request.form("pais") strFone = request.form("fone") strContato = request.form("contato") if strNascano = "" then strNascano = "1" end if 'Tira letras do campo CPF/CNPJ strCpf = SoNumeros(strCPF) 'Tira letras do campo CEP strCep = SoNumeros(strCep) strFone = SoNumeros(strFone) 'Tira letras do campo RG/Inscricao if Ucase(strRG)<>"ISENTO" then strRg = SoNumeros(strRg) End if if strOutropais = "Sim" then strEstado = "-" strCep = "-" end if 'Valida o CPF ou CNPJ bValido = ValidaCPF_CNPJ(strCPF,len(strCPF)) 'Verifica se o e-mail existe Set dados = abredb.Execute("SELECT * FROM clientes WHERE email='"& Cripto(strEmail,True)&"';") if dados.EOF then strEmail = strEmail else strEmail = "sim@." end if dados.close set dados = nothing anoz1 = year(now) anoantigo1 = cdate(anoz1) - 100 anonovo1 = cdate(anoz1) if len(strSenha) > 10 OR len(strSenha) < 5 OR cdate(strNascano) < cdate(anoantigo1) OR cdate(strNascano) > cdate(anonovo1) OR strEmail = "" OR instr(strEmail, "@") = 0 Or instr(strEmail, ".") = 0 OR strEmail = "sim@." OR strSenha = "" OR strNome = "" OR strNascdia = "" OR strNascano = "" OR strNascmes = "" OR strRg = "" OR strEndereco = "" OR strBairro = "" OR strCidade = "" OR strCep = "" OR strFone = "" OR strCpf = "" OR bValido = "falso" then 'Valida o CPF e retorna a transação na loja ElCpf = request.form("cpf") if bValido = "falso" then strCpf = ElCpf end if ElCPF = SoNumeros(ElCPF) if ElCpf = "" then erro4 = " - " & strLg141 & "" end if bValido = ValidaCPF_CNPJ(ElCPF,len(ElCPF)) if bValido="falso" then erro4 = " - " & strLg143 & "" end if 'Valida o CEP e data de nascimento if strOutropais = "Sim" then strEstado = "-" strCep = "-" else if strCep = "" then erro9 = " - " & strLg141 & "" else if isnumeric(strCep) = false then erro9 = " - " & strLg144 & "" else erro9 = "" end if end if end if diadata = "0"&day(date) diadata = day(date) mesdata = "0"&month(date) mesdata = month(date) anoz = year(now) anoantigo = cdate(anoz) - 100 anonovo = cdate(anoz) if strNascdia = "" OR strNascmes = "" OR strNascano = "" then erro3 = " - " & strLg141 & "" else if cdate(strNascano) < cdate(anoantigo) OR cdate(strNascano) > cdate(anonovo) then erro3 = " - " & strLg144 & "" else erro3 = "" end if end if 'Valida o telefone if strFone = "" then erro10 = " - " & strLg141 & "" else if isnumeric(strFone) = false then erro10 = " - " & strLg144 & "" else erro10 = "" end if end if 'Valida o endereço if strEstado = "" then strEstado = "-" end if if strCidade = "" then erro8 = " - " & strLg141 & "" else erro8 = "" end if if strBairro = "" then erro7 = " - " & strLg141 & "" else erro7 = "" end if if strEndereco = "" then erro6 = " - " & strLg141 & "" else erro6 = "" end if if strRg = "" then erro5 = " - " & strLg141 & "" else 'Valida o RG if isnumeric(strRG) = false then erro5 = " - " & strLg144 & "" else erro5 = "" end if end if 'Valida o e-mail if strEmail = "" OR instr(strEmail, "@") = 0 Or instr(strEmail, ".") = 0 then erro = " - " & strLg144 & "" else '*** Erros comuns de clientes... strEmail=replace(strEmail,"hotmail.com.br","hotmail.com") strEmail=replace(strEmail,"www.","") erro = "" end if if strEmail = "sim@." then erro = " - " & strLg145 & "" strEmail = "" end if if strSenha = "" then erro1 = " - " & strLg141 & "" else erro1 = "" end if if len(strSenha) > 10 then erro1 = " - " & strLg234 & "" end if if len(strSenha) < 5 then erro1 = " - " & strLg235 & "" end if if strNome = "" then erro2 = " - " & strLg141 & "" else erro2 = "" end if if strNascano = "1" then strNascano = "" end if %>
Home » <%=strLg5%>

>
<%=strLg122%> <%else if strEstado = "" then else%> <%end if%> ;font-size:11px;color:#000000;> Outro País <%end if%>

;font-size:11px;color:#000000;><%=strLg289%>
>
;font-size:11px;color:#000000;><%=strLg231%>;font-size:11px;color:#000000; size=30 value="<%=strEmail%>" maxlength="50"><%=erro%>
;font-size:11px;color:#000000;><%=strLg232%>;font-size:11px;color:#000000; value=""><%=erro1%>
;font-size:11px;color:#000000;>
<%=strLg290%>
>
;font-size:11px;color:#000000;><%=strLg118%>;font-size:11px;color:#000000; value="<%=strNome%>" maxlength="30"><%=erro2%>
;font-size:11px;color:#000000;><%=strLg117%>;font-size:11px;color:#000000;>/ /<%=erro3%>
;font-size:11px;color:#000000;><%=strLg116%>*;font-size:11px;color:#000000; value="<%=strCpf%>" maxlength="50"><%=erro4%>
;font-size:11px;color:#000000;><%=strLg115%>*;font-size:11px;color:#000000; value="<%=strRg%>" maxlength="50"><%=erro5%>
;font-size:11px;color:#000000;><%=strLg114%>;font-size:11px;color:#000000; value="<%=strEndereco%>" maxlength="100"><%=erro6%>
;font-size:11px;color:#000000;><%=strLg113%>;font-size:11px;color:#000000; value="<%=strBairro%>" maxlength="50"><%=erro7%>
;font-size:11px;color:#000000;><%=strLg112%>;font-size:11px;color:#000000; value="<%=strCidade%>" maxlength="50"><%=erro8%>
;font-size:11px;color:#000000;><%=strLg111%>;font-size:11px;color:#000000;> Outro País
;font-size:11px;color:#000000;><%=strLg82%>;font-size:11px;color:#000000; value="" maxlength="8">
;font-size:11px;color:#000000;><%=strLg110%>
;font-size:11px;color:#000000;>CEP:;font-size:11px;color:#000000; value="<%= strCep %>" maxlength="8"><%= erro9 %>
;font-size:11px;color:#000000;>País:
;font-size:11px;color:#000000;><%=strLg109%>;font-size:11px;color:#000000; value="<%=strFone%>" maxlength="50"> ;font-size:9px;color:#000000;><%=erro10%>
;font-size:11px;color:#000000;><%=strLg291%>*;font-size:11px;color:#000000; value="<%=strContato%>" maxlength="50"> ;font-size:9px;color:#000000;>

;font-size:11px;color:#FF0000;>* tipo de informações solicitadas se for pessoa jurídica
>
/imagens/prosseguir.gif onMouseOut="window.status='';return true;" onMouseOver="window.status='Prosseguir';return true;">
/imagens/limpar.gif onMouseOut="window.status='';return true;" onMouseOver="window.status='Limpar';return true;" OnClick="javascript: limpar()">
<%else 'Transforma os meses para numeros if strNascmes = "Jan" then strNascmes = "01" end if if strNascmes = "Fev" then strNascmes = "02" end if if strNascmes = "Mar" then strNascmes = "03" end if if strNascmes = "Abr" then strNascmes = "04" end if if strNascmes = "Mai" then strNascmes = "05" end if if strNascmes = "Jun" then strNascmes = "06" end if if strNascmes = "Jul" then strNascmes = "07" end if if strNascmes = "Ago" then strNascmes = "08" end if if strNascmes = "Set" then strNascmes = "09" end if if strNascmes = "Out" then strNascmes = "10" end if if strNascmes = "Nov" then strNascmes = "11" end if if strNascmes = "Dez" then strNascmes = "12" end if if strPais = "" then strPais = "Brasil" end if 'Corpo do e-mail de envio de cadastro strMensagem = "" strMensagem = strMensagem & "" strMensagem = strMensagem & "" strMensagem = strMensagem & "" strMensagem = strMensagem & "" strMensagem = strMensagem & "
" strMensagem = strMensagem & "" strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & " " strMensagem = strMensagem & "" strMensagem = strMensagem & "
" strMensagem = strMensagem & "
" strMensagem = strMensagem & "
" strMensagem = strMensagem & "
" strMensagem = strMensagem & "
"&tituloloja&"
"&endereco11&" - "&bairro11&"
"&cidade11&"/"&estado11&" - "&pais11&" - "&emailloja&"
" strMensagem = strMensagem & "
" strMensagem = strMensagem & "
Cadastro de "&strNome&"" strMensagem = strMensagem & " " strMensagem = strMensagem & " Data: "&day(now)&"/"&month(now)&"/"&year(date)&" " strMensagem = strMensagem & "
" strMensagem = strMensagem & "
" strMensagem = strMensagem & "
" strMensagem = strMensagem & "
" strMensagem = strMensagem & "
Obrigado por Cadastrar na" strMensagem = strMensagem & " "&nomeloja&"!
Esta é a confirmação de que seu Cadastro" strMensagem = strMensagem & " foi realizado com sucesso.

Nas suas futuras compras no nosso site, os seus dados de login de acesso são:

Email: "&strEmail&"
Senha: "&strSenha&"
" strMensagem = strMensagem & "
  " strMensagem = strMensagem & "
" strMensagem = strMensagem & "
" strMensagem = strMensagem & "
 
" strMensagem = strMensagem & "
Seus" strMensagem = strMensagem & " Dados Cadastrais

E-mail:" strMensagem = strMensagem & " "&strEmail&"
Senha: "&strSenha&" " strMensagem = strMensagem & "
Nome: "&strNome&" 		Nascimento:" strMensagem = strMensagem & " "&strNascdia&"-"&strNascmes&"-"&strNascano&"
CPF: "&strCpf&"
RG: "&strRg&"
Endereço:" strMensagem = strMensagem & " "&strEndereco&"
Bairro: "&strBairro&" " strMensagem = strMensagem & "
Local: "&strCidade&"-"&strEstado&" 		CEP:" strMensagem = strMensagem & " "&strCep&"
País: "&strPais&"
Telefone: "&strFone&" " strMensagem = strMensagem & "

LEMBRE-SE de que os dados acima devem estar corretos e completos para não haver" strMensagem = strMensagem & " demora e dificuldade no atendimento dos seus futuros pedidos.

" if session("modo_entrega")="motoboy" or session("modo_entrega")="sedex" or session("modo_entrega")="encomenda" then strMensagem = strMensagem & " Para evitar extravios e garantir que a entrega seja feita corretamente, o" strMensagem = strMensagem & " pedido somente será deixado no endereço solicitado mediante a assinatura de quem for recebê-lo." end if if session("modo_entrega")="download" then strMensagem = strMensagem & " Para que o pedido chegue rapidamente e desta forma garantir " strMensagem = strMensagem & " que a entrega seja feita corretamente, " strMensagem = strMensagem & " as instruções para a liberação/entrega dos produtos " strMensagem = strMensagem & " serão informados para o email ou telefone informado acima." end if strMensagem = strMensagem & "

Atenciosamente,
Atendimento ao" strMensagem = strMensagem & " Cliente.
Equipe" strMensagem = strMensagem & " "&nomeloja&"
"&urlloja&"
"&emailloja&"
" 'SQL para gravação no banco de dados '*** Feito isso pois o comando ALTER TABLE `clientes` ADD `contato` VARCHAR(50) deixa setado Nao Permitir Comprimento Zero if strContato="" or IsNull(strContato) then strContato=" " end if 'response.write "
strContato :"&strContato 'response.end 'strContato2=strContato&"a " 'strContato=strContato2 if strOutropais = "Sim" then textosql = "INSERT INTO clientes (datacad, nome, email, senha, cpf, rg, contato, nascimento, endereco, bairro, cidade, pais, tel, status) VALUES ('"&day(now)&"/"&month(now)&"/"&year(now)&"', '"&Cripto(strNome,True)&"', '"&Cripto(strEmail,True)&"', '"&Cripto(strSenha,true)&"', '"&Cripto(strCpf,true)&"', '"&Cripto(strRg,true)&"', '"&Cripto(strContato,True)&"', '"&Cripto(strNascdia&"/"&strNascmes&"/"&strNascano,true)&"', '"&Cripto(strEndereco,true)&"', '"&Cripto(strBairro,true)&"', '"&Cripto(strCidade,true)&"', '"&Cripto(strPais,true)&"', '"&Cripto(strFone,true)&"', 'Ativo');" else textosql = "INSERT INTO clientes (datacad, nome, email, senha, cpf, rg, contato, nascimento, endereco, bairro, cidade, estado, cep, pais, tel, status) VALUES ('"&day(now)&"/"&month(now)&"/"&year(now)&"', '"&Cripto(strNome,true)&"', '"&Cripto(strEmail,true)&"', '"&Cripto(strSenha,true)&"', '"&Cripto(strCpf,true)&"', '"&Cripto(strRg,true)&"', '"&Cripto(strContato,True)&"', '"&Cripto(strNascdia&"/"&strNascmes&"/"&strNascano,true)&"', '"&Cripto(strEndereco,true)&"', '"&Cripto(strBairro,true)&"', '"&Cripto(strCidade,true)&"', '"&Cripto(strEstado,true)&"', '"&Cripto(strCep,true)&"', '"&Cripto(strPais,true)&"', '"&Cripto(strFone,true)&"', 'Ativo');" end if session("textosql_registros") = textosql 'Insere no banco de dados set cadnovo = abredb.Execute(textosql) 'Loga no sistema set passSet = abredb.Execute("select email,senha from clientes where email='"&Cripto(strEmail,true)&"';") real_password = passSet("senha") 'Application.lock session("usuario") = strEmail 'Application.unlock session.timeout = 60 response.cookies(""&nomeloja&"")("usuario")= strEmail response.cookies(""&nomeloja&"").expires = "01/01/"&year(now) + 1 passSet.close set passSet = nothing 'Envia o e-mail %> <% EnviaEmail Application("HostLoja"), Application("ComponenteLoja"), emailloja, "", session("usuario"), "Confirmação de Cadastro na "&nomeloja&"!", strMensagem EnviaEmail Application("HostLoja"), Application("ComponenteLoja"), emailloja, "", emailloja, "Novo Cadastro de Cliente na "&nomeloja&"!", strMensagem %>
Home » <%=strLg5%>

>


<%=strLg236%>

<%=strLg237%> <%=strnome%>, <%=strLg238%> <%=nomeloja%>.

<% intOrderID = cstr(Session("orderID")) set carrinho = abredb.Execute("SELECT idprod, quantidade FROM pedidos WHERE idcompra='" & intOrderID & "'") if not carrinho.eof then %> <% End If carrinho.Close set carrinho = Nothing %>


>
<% end if 'Fecha o banco de dados set abredb = nothing %>