|
|
<%while not rs.eof%>
|
<%Rs.MoveNext
Wend%>
|
|
Destaques: |
|
|
<%Call abre_conexao(loja)
StrSql = "SELECT url_IMGP, produto,id_produto,preco FROM tbl_produto WHERE FLG_OK=1"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open StrSql,conn,3,1
If NOT Rs.eof then
Rs.Move (Randomico(Rs.RecordCount)-1)
id = Rs("id_produto")%>
">" border="0">
<%=Rs("produto")%>
R$ <%=Rs("preco")%>
|
|
<%end if
StrSql = "SELECT url_IMGP, produto,id_produto,preco FROM tbl_produto WHERE FLG_OK=1 AND id_produto<>"&id
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open StrSql,conn,3,1
If NOT Rs.eof then
Rs.Move (Randomico(Rs.RecordCount)-1)
id = id&","&Rs("id_produto")%>
">" border="0">
<%=Rs("produto")%>
R$ <%=Rs("preco")%>
|
|
<%end if
StrSql = "SELECT url_IMGP, produto,id_produto,preco FROM tbl_produto WHERE FLG_OK=1 AND id_produto NOT IN("&id&")"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open StrSql,conn,3,1
If NOT Rs.eof then
Rs.Move (Randomico(Rs.RecordCount)-1)
id2 = Rs("id_produto")%>
">" border="0">
<%=Rs("produto")%>
R$ <%=Rs("preco")%>
|
|
<%end if%>
|
|