<!--#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
_
