<% 'Set Conexao = CreateObject("ADODB.CONNECTION") Set Conexao = Server.CreateObject("ADODB.Connection") conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("bd/acesso.mdb") ConexaoAberta = FALSE Sub AbreConexao() if not ConexaoAberta then 'Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & conStr & ";" Conexao.Open ConStr ConexaoAberta = True end if end sub Sub FechaConexao() if ConexaoAberta then Conexao.close ConexaoAberta = False end if end sub %> oposto.asp <% AbreConexao If request.form("enviado") = "sim" Then Cadastrado =False set Dicionario = CreateObject("scripting.dictionary") i = 0 Sql = "SELECT nome FROM users WHERE nome = '"&Request.form("nome")&"'" set Rs =Conexao.Execute(Sql) If not Rs.Eof then Dicionario.add i, "Nome de Site já cadastrado!" i= i+1 end if Sql = "SELECT email FROM users WHERE email = '"&Request.form("email")&"'" set Rs =Conexao.Execute(Sql) If not Rs.Eof then Dicionario.add i, "Email já cadastrado!" i= i+1 end if Sql = "SELECT login FROM users WHERE login = '"&Request.form("users")&"'" set Rs =Conexao.Execute(Sql) If not Rs.Eof then Dicionario.add i, "Login já cadastrado!" i= i+1 end if Vet = Dicionario.items if Dicionario.Count<>0 then Response.Write "
" for i = 0 to Dicionario.Count - 1 Response.Write vet(i) & "
" next response.write "
" Else Sql = "INSERT INTO users (nome, email, login, senha, senha2, data) " Sql1 = Sql & "VALUES('" & Request.Form("nome") & "', '" & Request.Form("email") & "', '" & Request.Form("login") & "', '" & Request.Form("senha") & "', '" & Request.Form("senha2") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "')" 'response.write(sql1) [b]Conexao.Execute(Sql1)[/b] Cadastrado = True End If End If If Cadastrado = False Then Else Set MyCDONTSMail = CreateObject("CDONTS.NewMail") HTML = "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "" HTML = HTML & "Você acabou de se cadastrar no Sistema Cadastro e Login
" HTML = HTML & "Lembre sempre de seus dados.
" HTML = HTML & "Login: "& login &"
Senha: "& senha &"
" HTML = HTML & "Visite nosso Site: www.sitedozanelati.com" HTML = HTML & "" HTML = HTML & "" MyCDONTSMail.From="zane.juli@ig.com.br" MyCDONTSMail.To=email MyCDONTSMail.Subject="Cadastro no Sistema de Cadastro e Login - Site do Zanelati" MyCDONTSMail.BodyFormat=0 MyCDONTSMail.MailFormat=0 MyCDONTSMail.Body=HTML MyCDONTSMail.Send set MyCDONTSMail=nothing %>
Cadastrado com sucesso!
Entre na administração Clicando
Aqui!
<% End If %>
