Estou com um problema estou usando um modelo de cadastro so que o codigo esta com a opção de toda vz que tiver o mesmo NOME já cadastrado no banco ele não me deixa cadasdtra-lo denovo, queria saber como eu faço pra tirar essa opção do cadastro.. segue o codio abaixo:
<!--#include file="db.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 empresa FROM users WHERE empresa = '"&Request.form("empresa")&"'"
set Rs =Conexao.Execute(Sql)
If not Rs.Eof then
Dicionario.add i, "Email já cadastrado!"
i= i+1
end if
Sql = "SELECT autorizacao FROM users WHERE autorizacao = '"&Request.form("autorizacao")&"'"
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 users (nome, empresa, autorizacao, entrada, saida, data) "
Sql = Sql & "VALUES('" & Request.Form("nome") & "', '" & Request.Form("empresa") & "', '" & Request.Form("autorizacao") & "', '" & Request.Form("entrada") & "', '" & Request.Form("saida") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "')"
Conexao.Execute(Sql)
Cadastrado = True
End If
End If
If Cadastrado = False Then
Else
Set MyCDONTSMail = 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 Sistema Cadastro e Login</b><br><br>"
HTML = HTML & "Lembre sempre de seus dados.<br><br>"
HTML = HTML & "Login: "& login &"<br>Senha: "& senha &"<br><br>"
HTML = HTML & "Visite nosso Site: <a href=""www.sitedozanelati.com"">www.sitedozanelati.com</a>"
HTML = HTML & "</body>"
HTML = HTML & "</html>"
MyCDONTSMail.From="fabio@perky.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
%>
<p align="center">
<font face="Verdana" size="1">
Cadastrado com sucesso!<BR>
Entre na administração <font color="#FF0000"><a href="sair.asp"><font face="Verdana" size="1" color="#FF0000">Clicando
Aqui! </font></a></font>
</font>
<% End If %>
Pergunta
Fabio AVILA
Pessoal Boa Tarde
Estou com um problema estou usando um modelo de cadastro so que o codigo esta com a opção de toda vz que tiver o mesmo NOME já cadastrado no banco ele não me deixa cadasdtra-lo denovo, queria saber como eu faço pra tirar essa opção do cadastro.. segue o codio abaixo:
<!--#include file="db.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 empresa FROM users WHERE empresa = '"&Request.form("empresa")&"'" set Rs =Conexao.Execute(Sql) If not Rs.Eof then Dicionario.add i, "Email já cadastrado!" i= i+1 end if Sql = "SELECT autorizacao FROM users WHERE autorizacao = '"&Request.form("autorizacao")&"'" 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 users (nome, empresa, autorizacao, entrada, saida, data) " Sql = Sql & "VALUES('" & Request.Form("nome") & "', '" & Request.Form("empresa") & "', '" & Request.Form("autorizacao") & "', '" & Request.Form("entrada") & "', '" & Request.Form("saida") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "')" Conexao.Execute(Sql) Cadastrado = True End If End If If Cadastrado = False Then Else Set MyCDONTSMail = 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 Sistema Cadastro e Login</b><br><br>" HTML = HTML & "Lembre sempre de seus dados.<br><br>" HTML = HTML & "Login: "& login &"<br>Senha: "& senha &"<br><br>" HTML = HTML & "Visite nosso Site: <a href=""www.sitedozanelati.com"">www.sitedozanelati.com</a>" HTML = HTML & "</body>" HTML = HTML & "</html>" MyCDONTSMail.From="fabio@perky.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 %> <p align="center"> <font face="Verdana" size="1"> Cadastrado com sucesso!<BR> Entre na administração <font color="#FF0000"><a href="sair.asp"><font face="Verdana" size="1" color="#FF0000">Clicando Aqui! </font></a></font> </font> <% End If %>Abraços
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.