[Resolvido] Sortear Emails do banco de dados

[marcelocardoso 6]

Pessoal!

 

Gostaria de fazer algo que pegasse do banco todos os registros da tabela TBMAIL no campo EMAILS, e depois sorteasse um email, e parasse o script.

Teria como fazer isso, alguém ajuda???

[Ted k' 126]

coloca uma função randomica no SQL pegando um só: assim

 

caso seja mysql:

SELECT * FROM tabela order by RAND() LIMIT 1;

ai você usa o limit para limitar quantos emails quer, no caso 1

 

passar para o script é com você

[Mário Monteiro 179]

qual db?

[xanburzum 169]

você tambem pode usar o Randomize

 

SQL= "select emails from TBMAIL"
		connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
				Server.MapPath("bd.mdb")

		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open query, connStr, 3, , adCmdText
	Dim intRnd
		Randomize Timer
		intRnd = (Int(RND * rs.RecordCount))

		rs.Move intRnd
		Response.Write "<b>" & rs("emails") & "</b>"

		rs.Close
		Set rs = Nothing
%>

[marcelocardoso 6]

Amigos!

 

Obrigado pela ajuda, era isso que gostaria de fazer mesmo.

Joia mesmo.

 

 

Até mais...

[marcelocardoso 6]

Amigos!

 

Fiz assim, mas dá erro!

Nunca ví este tipo de erro em códigos asp, sabem me ajudar????

<!--#include file="con.asp" -->
<%
SET SORTEIO = ObjCX.Execute("SELECT email FROM TB_FORM_Emails")
	RANDOMIZE Timer
				 intRnd = (Int(RND * SORTEIO.RecordCount))
	SORTEIO.Move intRnd
			Response.Write "<b>" & SORTEIO("email") & "</b>"
	SORTEIO.Close
SET SORTEIO = Nothing
%>

Microsoft OLE DB Provider for ODBC Drivers erro '80040e24'

O conjunto de linhas não oferece suporte para busca regressiva.

/wwwroot/sorteio.asp, line 6

 

Agradeço o retorno dos colegas, obrigado!

[marcelocardoso 6]

Amigos!

 

Alguém ajuda aí.....

[Salgado 4]

Dê uma olhada no tópico pendurado DUVIDAS FREQUENTES, lá existe uma dica para recuperar dados de forma randômica de alguns bancos de dados.

[marcelocardoso 6]

Valeu mano salgado!

 

Resolveu o problema.....

 

 

otimo....