19 replies to this topic

[DanDan]

Ae pessoal, beleza!!!

Oha ae meu código, tá funcionando direitinho...

peguei o código do tarkan e alterei ele a beça... ae leyton, valeu pelo tutorial...

<%
Dim RS,i,Valores,ArraySplit,x,sID,rsMostra
Set RS = LojaDB.Execute("SELECT * FROM produtos")

For i = 1 to 5
'Randomiza os ids existentes no BD
Do Until RS.EOF or RS.BOF
Valores = Valores & RS("ID") & ","
RS.Movenext
Loop
ArraySplit = Split(Left(Valores,Len(Valores)-1),",")
Randomize
x = CInt(Rnd()*Ubound(ArraySplit))
sID = ArraySplit(x)

'Mostra os dados de acordo com o ID sorteado
Dim nome,preco,imagem2,descricaop,id,dispn,S
Set rsMostra = LojaDB.Execute("SELECT * FROM produtos where id=" & sID &" AND disp='S'")
preco = rsmostra("preco")
imagem2 = rsmostra("imagem2")
nome = rsmostra("nome")
descricaop = rsmostra("descricaop")
id = rsmostra("id")
dispn = rsmostra("disp")

Next
%>
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href ="/gg/detalheprod.asp?prod_id=<%=id%>"><img src =./images/<%=imagem2%> width="140" height="100" border="0"></a></font></b></div>
</td>
</tr>
<tr>
<td>
<div align="center"><b><a href ="/detalheprod.asp?prod_id=<%=id%>"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=nome%></font></a></b></div>
</td>
</tr>
<tr>
<td>
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=descricaop%></font></b></div>
</td>
</tr>
<tr>
<td>
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=preco%>,00</font></b></div>
</td>
</tr>
</table>


Agora, eu queria repetir isso na tela, ele só mostra uma vez o display, e tb não consegui parar as consultas quando o ID Sorteado é o disp 'N', quando eu recarrego a page, dá erro, fiz uma consulta SQL, mais não adiantou... o que eu quero é que esse disp tiver o N armazendo, que mude para outro... quando for disp"s" ele pode mostrar os itens, e quando o disp for "n' ele não deve mostrar os produtos... é o que eu quero...

Fora isso o Script muito bom mesmo... ae valeu mesmo pessoal..

Falou!!!

[Tarkan]

Ok, DanDan...
Explica umas coisas antes...

1 - Você quer que apareça 5 vezes na tela e só tá aparecendo 1, certo?
2 - O que seria o "disp", seria "disponível"? Aí se não estiver disponível ele não mostra?
3 - Este campo "disp" é uma checkbox ou é um campo texto com um valor "S" se tiver disponível e "N" se não tiver?
4 - Qual teu email?

Responde essas perguntas que faço pra você e te mando por email.

[DanDan]

Ok, DanDan...
Explica umas coisas antes...

1 - Você quer que apareça 5 vezes na tela e só tá aparecendo 1, certo?
É isso que eu qeuro mesmo...

2 - O que seria o "disp", seria "disponível"? Aí se não estiver disponível ele não mostra?
Isso mesmo... no disp que vc armazena o campo "S" ou "N"

3 - Este campo "disp" é uma checkbox ou é um campo texto com um valor "S" se tiver disponível e "N" se não tiver?
É um campo com valor S se estiver disponivel e N se não tiver

4 - Qual teu email?
dandaniel10@hotmail.com - ICQ - 129422353
Responde essas perguntas que faço pra você e te mando por email.

Ae valeu mesmo cara...

Falou!!!

[Tarkan]

Foi mal pela demora, cara...
Tava trampando o dia todo.

Segue aí, tenta e me diz o resultado:

<%
Dim RS,i,Valores,ArraySplit,x,sID,rsMostra
Set RS = LojaDB.Execute("SELECT * FROM produtos")

For i = 1 to 5
'Randomiza os ids existentes no BD
Do Until RS.EOF or RS.BOF
Valores = Valores & RS("ID") & ","
RS.Movenext
Loop
ArraySplit = Split(Left(Valores,Len(Valores)-1),",")
Randomize
x = CInt(Rnd()*Ubound(ArraySplit))
sID = ArraySplit(x)

'Mostra os dados de acordo com o ID sorteado
Dim nome,preco,imagem2,descricaop,id,dispn,S
Set rsMostra = LojaDB.Execute("SELECT * FROM produtos where id=" & sID &" AND disp='S'") 
preco = rsmostra("preco")
imagem2 = rsmostra("imagem2")
nome = rsmostra("nome")
descricaop = rsmostra("descricaop")
id = rsmostra("id")
dispn = rsmostra("disp")

If lcase(rsmostra("disp")) = "s" then
%>
<table border="0" cellspacing="0" cellpadding="0">
<tr> 
<td> 
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><a href ="/gg/detalheprod.asp?prod_id=<%=id%>"><img src =./images/<%=imagem2%> width="140" height="100" border="0"></a></font></b></div>
</td>
</tr>
<tr> 
<td> 
<div align="center"><b><a href ="/detalheprod.asp?prod_id=<%=id%>"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=nome%></font></a></b></div>
</td>
</tr>
<tr> 
<td> 
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=descricaop%></font></b></div>
</td>
</tr>
<tr> 
<td> 
<div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=preco%>,00</font></b></div>
</td>
</tr>
</table>
<%
end if
Next
%>

Qualquer coisa, tem todo o direito de reclamar.
Boa sorte!