Random Não Funciona...

#1 graciane

Turista

Usuários
46 posts

Sexo:Não informado

Posted 22/12/2006, 23:18

olá!

Tenho um site q tava funcionando legal, na random, ficavam alternando as fotos na 1ª página só q não sei o q aconteceu, q agora o código de random não funciona mais, as imagens ficam fixas, sendo q a única coisa q alterei na página foi incluir um campo a mais na busca esquerda de valor inicial e final portanto alterei tb 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

#2 siola

Usuário

Usuários
894 posts

Sexo:Masculino
Localidade:SBC - SP
Interesses:ASP, .NET, javascript

Posted 23/12/2006, 15:58

Qual o banco de dados?
Como está fazendo o random?

E este código ai está faltando vários pedaços. Ele está assim mesmo ou voc~e recortou umas partes para mostrar aqui?

[]s

Edição feita por: siola, 23/12/2006, 15:59.

#3 graciane

Turista

Usuários
46 posts

Sexo:Não informado

Posted 03/01/2007, 19:24

a parte que faltava do código:

<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)
%>

obrigada!

#1 graciane

#2 siola

#3 graciane

1 user(s) are reading this topic

Entrar