<!--#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
end if %>gostaria que se desse o cadastro colocar me outra pagina uma mensagem para o user
