Random Não Está Funcionando...

gra · Dezembro 23, 2006

olá!

Tenho um site que tava funcionando legal, na random, ficavam alternando as fotos na 1ª página só que não sei o que aconteceu, que agora o código de random não funciona mais, as imagens ficam fixas, sendo que a única coisa que alterei na página foi incluir um campo a mais na busca esquerda de valor inicial e final portanto alterei também a linha :

rectodos.open "SELECT * FROM imoveis where NewId is null", banco

abaixo partes do código:

<!--#include file="includes/adovb script:POPUP('<%=local%>mais.asp?categoria=<%=recrandom("categoria")%>&autonum=<%=recrandom("autonum")%>','345','450')"><strong><%=fonte01%><img src="maq.gif" border=0></strong></a></td>

</tr>

</table>

<%recrandom.movenext%>

o resto não é importante...

se alguém puder me ajudar...

Abraços

:)

Graymalkin · Dezembro 24, 2006

Qual a SQL que abre o recordset recrandom?

Abraços,

Graymalkin

gra · Janeiro 3, 2007

<head>
<title><%=titulo%></title>
<%
Function geraID ()
geraID_tmp = ""
Randomize
For i = 1 to 12
intNum = Int(10 * Rnd + 48)
intUpper = Int(26 * Rnd + 65)
intLower = Int(26 * Rnd + 97)
intRand = Int(3 * Rnd + 1)
Select Case intRand
Case 1
strPartPass = Chr(intNum)
Case 2
strPartPass = Chr(intNum)
Case 3
strPartPass = Chr(intNum)
End Select
geraID_tmp = geraID_tmp & strPartPass
Next
geraID = geraID_tmp
End Function
set banco = Server.CreateObject("ADODB.Connection")
banco.Open "DBQ="&Server.MapPath("database/database.mdb")&";Driver={Microsoft Access Driver (*.mdb)}"
set rectodos = Server.CreateObject("ADODB.Recordset")
rectodos.open "SELECT * FROM imoveis where NewId is null", banco
do while not rectodos.eof
sql_newid = "UPDATE imoveis SET NewId='"&geraID()&"' WHERE autonum="&rectodos("autonum")
set recnewid = banco.execute(sql_newid)
rectodos.movenext
loop
rectodos.close
set recrandom = Server.CreateObject("ADODB.Recordset")
sql_rnd = "SELECT TOP 6 categoria, autonum, bairro, foto1, desc_destaque, newid FROM imoveis WHERE foto2 <> '' ORDER BY newid"
recrandom.open sql_rnd, banco
sql_casa = "SELECT * FROM imoveis WHERE categoria = 'casa' AND destaque = on ORDER BY autonum DESC"
sql_apto = "SELECT * FROM imoveis WHERE categoria = 'apartamento' AND destaque = on ORDER BY autonum DESC"
sql_comercial = "SELECT * FROM imoveis WHERE categoria = 'comercial' AND destaque = on ORDER BY autonum DESC"
sql_terreno = "SELECT * FROM imoveis WHERE categoria = 'terreno' AND destaque = on ORDER BY autonum DESC"
sql_categ = "SELECT DISTINCT categoria FROM imoveis"
sql_tipo = "SELECT DISTINCT tipo FROM imoveis"
sql_local = "SELECT DISTINCT bairro FROM imoveis"
Set exe_casa = banco.execute(sql_casa)
Set exe_apto = banco.execute(sql_apto)
Set exe_comercial = banco.execute(sql_comercial)
Set exe_terreno = banco.execute(sql_terreno)
Set exe_categ = banco.execute(sql_categ)
Set exe_tipo = banco.execute(sql_tipo)
Set exe_local = banco.execute(sql_local)
%>

Entrar

Random Não Está Funcionando...

Pergunta

gra

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Graymalkin

Link para o comentário

Compartilhar em outros sites

gra

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades