Erro De Logica, Será?

[joao.vanelli]

Salve pessoas

Estou tentando cadastrar um email e antes estou fazendo um SELECT na tabela para saber se já não foi cadastrado o codigo é esse:

<%
	Option Explicit
	Response.Expires=0
	Dim con,rs,into,email,select_
	email=Request.Form("TNewsEmail")
	Set con= Server.CreateObject("ADODB.Connection")
	Set rs=Server.CreateObject("ADODB.Recordset")
	con.Open "DBQ=" & Server.MapPath("db/dbvnfree.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
	select_="SELECT email FROM news WHERE (email='"&email&"')"	
	On error Resume Next
	rs=con.Execute(select_)
	if  rs.RecordCount=0 Then
  into="INSERT INTO news (email) VALUES ('"&email&"')"
  rs=con.Execute(into)
	else
  Response.Redirect "emailjacadastradonews.asp"
	end if
	con.close
	Set rs=Nothing
	Set con=Nothing

	if err=0 Then
  Response.Redirect "sucessonews.asp"
	end if
%>

Não esta dando erro visivel de sintaxe e não redireciona para nada, eu acho que o problema está no SELECT com a clasula WHERE!!!

Falow

[Graymalkin]

Tire aquele "On Error Resume Next" dali e veja se dá algum erro após aquela parte.

Abraços,

Graymalkin

[joao.vanelli]

Olá

O erro é esse

Erro de tempo de execução do Microsoft VBScript error '800a01b6' 

O objeto não dá suporte para a propriedade ou método: 'RecordCount' 

/site/cadastronews.asp, line 12 

Falow

[ursolouco]

select_="SELECT email FROM news WHERE (email='"&email&"')"

Brother!!

Faça o Seguinte:

 email = Request("Email")
 sSQL = "SELECT email FROM new WHERE email ='" & email & "'"
 Set Rs = Server.CreateObject("adodb.recordset")
 Set Rs = Con.Execute(sSQL)

 'Vendo se existe ou não

 If Rs.Eof Then
  'Chame seu procedimento aqui
 Else
 ' Já cadastrado na tabela
 Response.Write("<p> Este email já existe no banco de dados</p>")
 End If
 Set Rs = Nothing
 Con.Close
 Set Con = Nothing

Abraços!!!

[joao.vanelli]

ursolouco deu certo... e Graymalkin obrigado pela dica.

Falow

[dark0]

Blza pura !

To fechando o tópico aqui!

Qualquer duvidas a mais, PM - ME!

Abraços