[Resolvido] Verificando se ja existe os dados na tabela

[Gilberto Jr 26]

Pessoal, vim incomodar vocês mais um pouco.

 

Eu preciso salvar alguns dados na tabela mas antes de salvar eu preciso verificar se o mesmo já existe o dado que eu quero salvar é o ip do usuario pois se o ip ja tiver no banco ele avisa.

 

o meu codigo esta seguinte forma:

<!--#include file="config.asp" -->
<%
	call connect
		dim rs, voto, ip, rs2, rs3
		
voto = request.form("vt")
ip = request.Form("ip"))		
set rs3 = con.execute("SELECT * FROM TB_IP WHERE IP_VOTO='"&ip&"')
		
if rs3.eof = false then

set rs2 = con.execute("INSERT INTO TB_IP(IP_VOTO, ID_BANDA)VALUES('"&ip&"','"&voto&"')")

set rs = con.execute("UPDATE TB_VOTO_BANDAS SET QUANTIDADE=QUANTIDADE + 1 where ID="&replace(voto,"=",""))

response.write("<script>alert('Voto salvo com sucesso!');location='votobanda.asp'</script>")
		
else

response.Write("<script>alert('Você já votou!');location='votobanda.asp'</script>")
		
end if
	
call disconnect
%>

Tem como vcs me ajudarem a onde esta o erro no meu codigo

[xanburzum 169]

antes faz um select na tabela, exemplo

 

<% 'incluir_action.asp => fazer a inclusao no BD, antes fazendo uma verificaçao
   'no BD através de SQL Select if not rs.eof then
   'redireciono para incluir_form.asp?msgeof=1 else
   'incluo no bd atraves da SQL Insert e redireciono para adiministraçao.asp?msg=1
   'e lá receberá um mensagem de sucesso
   
   Option explicit
   'declaro as var
   dim varlogin, varemail, varsenha, conexao, conDBQ, constring, rsselect, SQLselect, rsinsert, SQLinsert
   'recupero todos os dados
   varlogin=trim(request.form("login"))
   varsenha=trim(request.form("senha"))
   varemail=trim(request.form("email"))
   'crio a conexao
   %>
   <!--#include file="conn/conexao1.asp"-->
   <% 'abrir a conexao
   call abreconexao
   'crio o rsselect para verificar se os dados jah estaun cadastrados
   set rsselect=server.createobject("ADODB.Recordset")
   'crio o SQLselect
   SQLselect="SELECT login FROM login WHERE login='"&varlogin&"'"
   rsselect.open SQLselect,conexao,1,3
   if not rsselect.eof then
   		response.redirect("incluir_form_treina.asp?msgeof=1")
		set rsselect=nothing
   else	
   		'crio o rsinsert para inseiri os dados no bd
   		 set rsinsert=server.createobject("ADODB.Recordset")
		'crio o SQLinsert pra incluir no bd
		SQLinsert="INSERT INTO login(login,senha,email) values('"&varlogin&"','"&varsenha&"','"&varemail&"')"
		rsinsert.open SQLinsert,conexao,1,3
		response.redirect("administracao_treina.asp?msg=1")
		set rsinsert=nothing
	end if 
	call fechaconexao %>

[Gilberto Jr 26]

Valeu Xan, funfou aqui. pode colcocar como resolvido

[xanburzum 169]

beleza, precisando estamos ae....