|
Caros Colegas,
Boa
Noite
Eu estou querendo fazer, algo
neste codigo que ele volta se encontou ou n�o o username da pessoa que esta
querendo se cadastrar. Por exemplo, eu me cadastro com o username XX e outra
pessoa escolhe o mesmo username (XX) para se cadastrar, ele deve retornar em uma
tela separada que o username XX j� existe pedindo para ele optar por
outro
Grato.
Abaixo segue o codigo (a
parte que esta somente em it�lico � a que importa)
<%
Option Explicit %> <!--#include file="bib_conexao.asp"--> <% Response.Buffer = True Dim COD_nome, nome, descricao, categoria, url, email, nome_pes, cep_pes, cep, endereco, cidade, estado, telefone, username, password, Conexao, rsCadastro, sqlCadastro, login Dim rsUpdate, sqlUpdate Dim varnome, varCOD_nome, val, sqluser, cn, sqlCad, rsCad, varPass, sqlUrl, varMail, varUser, rsUrl, rsMail, rsUser, rsusername,sqlCad2, sqlCad3, vardescricao, varcategoria, varurl, varemail, varnome_pes, varcep_pes, varendereco, varcidade, varestado, vartelefone, varusername, varpassword 'comeca gravacao nome = Request("nome") descricao = Request("descricao") categoria = Request("categoria") url = Request("url") 'Tabela Dados
email = Request("email") nome_pes = Request("nome_pes") cep_pes = Request("cep_pes") endereco = Request("endereco") cidade = Request("cidade") estado = Request("estado") telefone = Request("telefone") 'Tabela de Log in username = Request("username") password = Request("password") Call abre_Conexao varUser = Request.form("username") sqlCad "SELECT * FROM login WHERE username LIKE '" & varUser &
"'", CN
Set rsUser = Server.CreateObject("ADODB.Recordset") Set rsCad = Conexao.Open (sqlCad) if rsCad.eof then sqlCad = "INSERT INTO Busca (nome, descricao, categoria, url, username_bus) " sqlCad = sqlCad & "VALUES ('" & nome & "', '" & descricao & "', '" & categoria & "', '" & url & "', '" & username & "')" Conexao.Execute sqlCad sqlCad2 = "INSERT INTO dados (nome_pes, email, cep_pes, endereco, cidade, estado, telefone, username_pes) " sqlCad2 = sqlCad2 & "VALUES ('" & nome_pes & "', '" & email & "', '" & cep_pes & "', '" & endereco & "', '" & cidade & "', '" & estado & "', '" & telefone & "', '" & username & "')" Conexao.Execute sqlCad2 sqlCad3 = "INSERT INTO login (username, password) " sqlCad3 = sqlCad3 & "VALUES ('" & username & "')" Conexao.Execute sqlCad3 else response.write "Usuario ja cadastrado" end if Call fecha_Conexao Set rsCadastro = Nothing 'termina gravacao varCOD_nome = Trim(Request.form("COD_nome")) varnome = Trim(Request.form("nome")) vardescricao = Trim(Request.form("descricao")) varcategoria = Trim(Request.form("categoria")) varurl = Trim(Request.form("url")) varemail = Trim(Request.form("email")) varnome_pes = Trim(Request.form("nome_pes")) varcep_pes = Trim(Request.form("cep_pes")) varendereco = Trim(Request.form("endereco")) varcidade = Trim(Request.form("cidade")) varestado = Trim(Request.form("estado")) vartelefone = Trim(Request.form("telefone")) varusername = Trim(Request.form("username")) varpassword = Trim(Request.form("password")) varCOD_nome = replace(varCOD_nome, "'", "") varnome = replace(varnome, "'", "") vardescricao = replace(vardescricao, "'", "") varcategoria = replace(varcategoria, "'", "") varurl = replace(varurl, "'", "") varemail = replace(varemail, "'", "") varnome_pes = replace(varnome_pes, "'", "") varcep_pes = replace(varcep_pes, "'", "") varendereco = replace(varendereco, "'", "") varcidade = replace(varcidade, "'", "") varestado = replace(varestado, "'", "") vartelefone = replace(vartelefone, "'", "") varusername = replace(varusername, "'", "") varpassword = replace(varpassword, "'", "") Session("Email") = varemail
call abre_conexao %> <HTML> <HEAD> </HEAD> <title>Recibo</title> <BODY marginheight=0 topmargin=0 leftmargin=0 marginwidth=0 bgcolor="#FFFFFF"> <div align="center"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#000066">.....:::::</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#000099"> <font color="#990000" size="3">Os seguintes dados foram incluidos em nosso banco de dados com sucesso</font></font></b> <b><font color="#000066">:::::.....</font></b><br> <br> </div> <table width="577" border="0" cellspacing="1" cellpadding="1" height="96" align="center"> <tr bgcolor="#FF6633"> <td colspan="2" height="10"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><font color="#FFFFFF">.::Sua Página::. </font></b></font></div> </td> </tr> <tr bgcolor="EEEEEE"> <td width="94" height="2"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Nome do Site: </font></div> </td> <td width="367" height="2"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> <%= varnome%></b></font> </td> </tr> <tr bgcolor="EEEEEE"> <td width="94" height="4"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Descrição: </font></div> </td> <td width="367" height="4"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> <%= vardescricao%></b></font> </td> </tr> <tr bgcolor="EEEEEE"> <td width="94" height="2"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Categoria: </font></div> </td> <td width="367" height="2"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> <%= varcategoria%></b></font> </td> </tr> <tr bgcolor="EEEEEE"> <td width="94"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">URL: </font></div> </td> <td width="367"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> http://<%= varurl%></b></font> </td> </tr> </table> <br><table width="577" border="0" cellspacing="1" cellpadding="1" height="96" align="center"> <tr bgcolor="#FF6633"> <td colspan="2" height="10"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><font color="#FFFFFF">.::Seus Dados::.</font></b></font></div> </td> </tr> <tr bgcolor="EEEEEE"> <td width="94" height="2"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">E-Mail: </font></div> </td> <td width="367" height="2"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> <%= varemail%></b></font> </td> </tr> <tr bgcolor="EEEEEE"> <td width="94" height="4"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Nome: </font></div> </td> <td width="367" height="4"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> <%= varnome_pes%></b></font> </td> </tr> <tr bgcolor="EEEEEE"> <td width="94" height="2"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Endereço: </font></div> </td> <td width="367" height="2"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> <%= varendereco%></b></font> </td> </tr> <tr bgcolor="EEEEEE"> <td width="94"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Cidade: </font></div> </td> <td width="367"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> <%= varcidade%></b></font> </td> </tr> <tr bgcolor="EEEEEE"> <td width="94"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Estado: </font></div> </td> <td width="367"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> <%= varestado%></b></font> </td> </tr> <tr bgcolor="EEEEEE"> <td width="94"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">CEP: </font></div> </td> <td width="367"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> <%= varcep_pes%></b></font> </td> </tr> <tr bgcolor="EEEEEE"> <td width="94"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Telefone: </font></div> </td> <td width="367"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> <%= vartelefone%></b></font> </td> </tr> </table>
<br> <table width="577" border="0" cellspacing="1" cellpadding="1" height="38" align="center"> <tr bgcolor="#FF6633"> <td colspan="2" height="10"> <div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><font color="#FFFFFF">.::Para Log-in::. </font></b></font></div> </td> </tr> <tr bgcolor="EEEEEE"> <td width="94" height="2"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Username: </font></div> </td> <td width="367" height="2"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> <%= varusername%></b></font> </td> </tr> <tr bgcolor="EEEEEE"> <td width="94" height="2"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Password: </font></div> </td> <td width="367" height="2"><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><b> <%= varpassword%></b></font> </td> </tr> </table> <div align="center"><br> <b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Guarde bem sua senha, ela é unica e exclusivamente sua. Nossa equipe não lhe fornecerá em caso de perda. Equipe MidiaNow</font></b> <% Call fecha_conexao Set rsUpdate = Nothing %> <br> <br> <font color="#000099"><b><font color="#990000">...::: </font></b></font><a href="sucesso.asp"><font face="Arial, Helvetica, sans-serif" color="#990000"><b>Finalizar Inclus�o</b></font></a> <font color="#000099"><b><font color="#990000">:::...</font></b></font></div> </BODY> </HTML> http://www.asp10.net ========================================== Solu��es simples para problemas complexos ==========================================
| ||||||||
