<!--#include file="conectar.asp"--> <% AbreConexao If request.form("enviado") = "sim" Then Cadastrado =False set Dicionario = CreateObject("scripting.dictionary") i = 0 Sql = "SELECT site FROM banner WHERE site = '"&Request.form("site")&"'" 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 urlsite FROM banner WHERE urlsite = '"&Request.form("urlsite")&"'" set Rs =Conexao.Execute(Sql) If not Rs.Eof then Dicionario.add i, "URL de Site já cadastrado!" i= i+1 end if Sql = "SELECT urlbanner FROM banner WHERE urlbanner = '"&Request.form("urlbanner")&"'" set Rs =Conexao.Execute(Sql) If not Rs.Eof then Dicionario.add i, "URL do seu Banner já cadastrado!" i= i+1 end if Sql = "SELECT login FROM banner WHERE login = '"&Request.form("login")&"'" 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 "<b><center><font face=verdana size=1>" Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s)<BR><br>" for i = 0 to Dicionario.Count - 1 Response.Write vet(i) & "<BR><br>" next response.write "<BR><br>" Else Sql = "INSERT INTO banner (site, urlsite, urlbanner, alt, flash, login, senha, senha2, grupos, exibi, email, data, hora, conteudo) " Sql = Sql & "VALUES('" & Request.Form("site") & "', '" & Request.Form("urlsite") & "', '" & Request.Form("urlbanner") & "', '" & Request.Form("alt") & "', '" & Request.Form("flash") & "', '" & Request.Form("login") & "', '" & Request.Form("senha") & "', '" & Request.Form("senha2") & "', '" & Request.Form("grupos") & "', '" & Request.Form("exibi") & "', '" & Request.Form("email") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "','"&Time()&"', '" & Request.Form("conteudo") & "')" Conexao.Execute(Sql) Cadastrado = True End If End If If Cadastrado = False Then Else Set ObjMail = Server.CreateObject("Cdonts.Newmail") HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">" HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "</head>" HTML = HTML & "<body bgcolor=""FFFFFF"">" HTML = HTML & "<b>Você acabou de se cadastrar no Troca Banner</b><br><br>" HTML = HTML & "Otimo para cadastro de banners para divulgações de trabalho.<br>" HTML = HTML & "Você Agora esta recebendo todos os dados de seu Cadastro<br><br>" HTML = HTML & "Para que seu banner posso começar a contar cliques em sua conta<br>" HTML = HTML & "Você precisa entrar no nosso site<br>" HTML = HTML & "E ir até a seção de Troca Banner<br>" HTML = HTML & "Com seu login e senha<br>" HTML = HTML & "Você tem que se logar e depois pegar seu codigo html<br>" HTML = HTML & "um codigo que não influencia nada no seu site, é só colocar em qualquer lugar<br><br>" HTML = HTML & "E isto tudo inteiramente grátis!!!<br><br>-----------------<br>" HTML = HTML & "Lembre sempre de seus dados. Caso esquecer, vá em <b>Esqueci Senha</b>.<br><br>" HTML = HTML & "Login: "& login &"<br>Senha: "& senha &"<br><br>" HTML = HTML & "Visite o Site: <a href=""www.sitedozanelati.com"">www.sitedozanelati.com</a>" HTML = HTML & "</body>" HTML = HTML & "</html>" ObjMail.Subject = "Cadastro no Troca Banner - Site do Zanelati" ObjMail.From = "sitedozanelati@ig.com.br" ObjMail.To = email ObjMail.Importance = 1 ObjMail.BodyFormat=0 ObjMail.MailFormat=0 ObjMail.CC = "zane.juli@ig.com.br" ObjMail.Body = html ObjMail.Send Set objMail = Nothing %> <p align="center"> <font face="Verdana" size="1"> Cadastrado com sucesso!<BR> </font><font size="1"> Entre na administração <font color="#FF0000"><a href="sair.asp"><font face="Verdana" size="1" color="#FF0000">Clicando Aqui! </font></a></font> <% End If %>
olhem o email que chegou.
Você acabou de se cadastrar no Troca Banner Otimo para cadastro de banners para divulgações de trabalho. Você Agora esta recebendo todos os dados de seu Cadastro Para que seu banner posso começar a contar cliques em sua conta Você precisa entrar no nosso site E ir até a seção de Troca Banner Com seu login e senha Você tem que se logar e depois pegar seu codigo html um codigo que não influencia nada no seu site, é só colocar em qualquer lugar E isto tudo inteiramente grátis!!! ----------------- Lembre sempre de seus dados. Caso esquecer, vá em Esqueci Senha. Login: Senha: mundo22 Visite o Site: www.sitedozanelati.com