Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Aê galera beleza?
É o seguinte eu tô desenvolvendo um sistema pra minha loja de informatica é uma coisinha simples sem muita frescura, e na página default eu tenho uma vitrine que exibe registros aleatórios vindos de um banco SQL Server.
Fazer rodar os registros eu até consigo só que eu quero que me apresente sempre 6 produtos na vitrine e tem hora que aparece 1, as vezes 2, as vezes 4 e as vezes 6. Alguém sabe como eu posso contornar este problema?
O meu código é este aí:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!--#include file="Connections/ConnComercio.asp" --><%Dim RS_VitrineDim RS_Vitrine_numRowsSet RS_Vitrine = Server.CreateObject("ADODB.Recordset")RS_Vitrine.ActiveConnection = MM_ConnComercio_STRINGRS_Vitrine.Source = "SELECT TOP 6 id, nome, descricao, preco, imagen FROM dbo.produtos WHERE vitrine = 's'"RS_Vitrine.CursorType = 3RS_Vitrine.CursorLocation = 3RS_Vitrine.LockType = 1RS_Vitrine.Open()RS_Vitrine_numRows = 0Dim rndMaxrndMax = Int(RS_Vitrine.RecordCount)RS_Vitrine.Dim rndNumberRandomize TimerrndNumber = Int(RND * rndMax)RS_Vitrine.Move rndNumber%><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="estilos.css" rel="stylesheet" type="text/css"><style type="text/css"><!--.style1 {color: #FF0000}.style2 {font-size: 10px}.style3 {font-size: 10}.style4 {font-size: 12px}--></style></head><body><span class="preco"></span><% If Not RS_Vitrine.EOF Or Not RS_Vitrine.BOF Then %><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td bgcolor="#999999"><span class="cabmenu"><strong>VITRINE</strong></span></td> </tr></table><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000"> <% Dim Colunas, x, linha Colunas=2 While Not RS_Vitrine.EOF Response.Write "<TR>" for x= 1 to Colunas if RS_Vitrine.EOF or RS_Vitrine.BOF then ' Se for o Fim do RecordSet ou o Inicio do RecordSet faça Response.Write "<TD></TD>" 'Em caso de EOF ou BOF ele faz as colunas else ' Se Não for o Fim do RecordSet ou o Inicio do RecordSet faça %> <td height="102" valign="top" bordercolor="#FFFFFF"><div align="center"> <table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC"> <tr bordercolor="#000000"> <td width="357" rowspan="6" bordercolor="#FFFFFF"><div align="center"><span class="vitrine"> <%=(RS_Vitrine.Fields.Item("nome").Value)%><br> </span><img src="<%=(RS_Vitrine.Fields.Item("imagen").Value)%>" width="120" height="80"> <span class="vitrine style1"><br> </span> </div></td> <td width="194" bordercolor="#FFFFFF" class="vitrine"><div align="left"><img src="imagens/bot_comprar.gif" width="73" height="12"></div></td> </tr> <tr> <td bordercolor="#FFFFFF" class="vitrine style2"><img src="imagens/bot_descricao.gif" width="73" height="12"></td> </tr> <tr> <td bordercolor="#FFFFFF" class="vitrine"> <img src="imagens/bot_indique.gif" width="73" height="12"></td> </tr> <tr> <td valign="top" bordercolor="#FFFFFF" class="vitrine"> </td> </tr> <tr> <td valign="top" bordercolor="#FFFFFF" class="vitrine style1 style4"><span class="vitrine style1 style2"><span class="preco"><%= FormatCurrency((RS_Vitrine.Fields.Item("preco").Value), -1, -2, -2, -2) %></span></span></td> </tr> <tr> <td height="21" valign="top" bordercolor="#FFFFFF" class="vitrine"> </td> </tr> </table> </div></td> <% RS_Vitrine.MoveNext end if next Response.Write linha&"</TR>" wend %></table> <% End If ' end Not RS_Vitrine.EOF Or NOT RS_Vitrine.BOF %></body></html><%RS_Vitrine.Close()Set RS_Vitrine = Nothing%>Agradeço desde já... :D :D
Carregando comentários...