Randomizar

[marcelocardoso 6]

Olá! Amigos

 

Tenho esta instrução aqui que funciona perfeitamente em ACCESS, mas quando passei para banco MSDE, não funciona mais....

Como poderei resolver isso, já que o SQL SERVER não aceita o NOW????

 

<%

SET RSProd = ObjCX.Execute("SELECT TOP 3 * FROM Produtos Opcao = 1 AND Promocao = 0 ORDER BY RND(INT(NOW()*[iDPRO])-NOW()*[iDPRO]);")

%>

 

Alguém sabe me ajudar a adaptar esta instrução para SQL SERVER?????

 

 

Obrigado!

[marcelocardoso 6]

Tentei tirar a parte RND(INT(NOW()*[iDPRO])-NOW()*[iDPRO]); colocando NewID(), e funcionou, mas só que agora a instrução abaixo que funcionava com o RND(Int e etc..... não funciona mais, não está pegando a instrução abaixo, somente os ... pontinhos e nao a descricao do produto.

 

<%=Replace(LEFT(RSPromocoes("ProdutosDescricao"),130) & "...",Chr(13),"<BR>")%>

 

Será porque o SQL não aceita o replace, ou algo parecido... oque houve será, pois antes de colocar o NewID() funcionava e agora não????

 

 

 

 

Se puderem me ajudarem amigos, Salgado, marioufpa, jonathandj, Bruno Silva

[jrcardozo 4]

como é o select de RSPromocoes?

Não é pra dar erro pois uma coisa não anula a outra

[marcelocardoso 6]

Está assim amigo!

 

<%'Selecionamos agora os PRODUTOS SET RSProdutos  = ObjCX.Execute("SELECT TOP 3 * FROM Produtos WHERE ProdutosOpcao = 1 AND ProdutosOpcaoPromocao = 0 ORDER BY NewID()") 'Selecionamos agora os PROMOCOES SET RSPromocoes = ObjCX.Execute("SELECT TOP 2 * FROM Produtos WHERE ProdutosOpcaoPromocao = 1 ORDER BY NewID()") 'SQL SERVER'Se o RecordSet está vazio, ou não achou oque procuramos, ele exibe a mensagem abaixo:  IF RSPromocoes.BOF AND RSPromocoes.EOF THEN	ELSE %>		<div align="left">		  <table width="100%" border="0" cellpadding="0" cellspacing="4" bgcolor="#479860" class="Tabela_Borda2">			<tr>			  <td width="91%" valign="middle"><table width="90%" height="20" border="0" cellpadding="2" cellspacing="2">				  <tr>					<td valign="middle" class="Promocao_FontePreco4">Promoções destaques</td>				  </tr>			  </table></td>			  <td width="9%" valign="middle"> </td>			</tr>		  </table>		  <br>		</div>		<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">		  <tr>			<%'Faremos agora um laço apartir daqui na tabela  WHILE NOT RSPromocoes.EOF'Verificaremos se a imagem existe ou não para vermos qual imagem apresentaremos na tela IF IsEmpty(RSPromocoes("ProdutosImagemNormal")) OR IsNull(RSPromocoes("ProdutosImagemNormal")) THEN	  ImagemTratada = "/imagem_semproduto.jpg"	  ELSE	  ImagemTratada = "/" & RSPromocoes("ProdutosImagemNormal") END IF				   				   %>			<td width="643" height="100%"><table width="100%" height="220" align="center" cellpadding="0" cellspacing="0">			  <tbody>				<tr>				  <td width="455" colspan="4" valign="top"><table width="205" border="0" 								cellpadding="0" cellspacing="0">					  <tbody>						<tr>						  <td width="215"></td>						</tr>						<tr>						  <td><span class="Promocao_FonteTitulo3"><%=RSPromocoes("ProdutosSigla")%></span><br />							<br>						  <table width="205" height="120" border="0" align="center" cellpadding="0" cellspacing="0">							<tr>							  <td valign="middle" background="imagem_marcador_fundo1.gif"><table width="90%" height="100%" border="0" align="center" cellpadding="4" cellspacing="8">								<tr>								  <td valign="middle"><div align="center"><a href="promocoes_detalhes.asp?codproduto=<%=RSPromocoes("IDProduto")%>" target="_parent"><img src="<%= ImagemTratada %>" alt="Detalhes do produto" width="85" height="85" border="0" align="absmiddle"></a></div></td>								  </tr>								</table></td>							  </tr>							</table>						  <br>						  <span class="Promocao_FontePreco3"><%=FormatCurrency(RSPromocoes("ProdutosValorDe"))%></span><br>						  <br>						  </b></div></td>						</tr>						<tr>						  <td height="40"><span class="Promocao_FonteDados2">Faturado em:</span> <%=RSPromocoes("ProdutosFaturamento")%><br />							<span class="Promocao_FonteDados2">Observações:</span> <%=RSPromocoes("ProdutosParcelas")%><br>							<br></td>						</tr>						<tr>						  <td height="75" class="Promocao_FonteDados4"><%=Replace(LEFT(RSPromocoes("ProdutosDescricao"),130) & "...",Chr(13),"<BR>")%></td>						</tr>												<tr>						  <td><a href="carrinho.asp?codproduto=<%=RSPromocoes("IDProduto")%>" target="_parent"><img src="wolmaq_img/img_marcadores/imagem_marcador_comprar.gif" alt="Comprar Produto" width="117" height="24" border="0" align="middle"></a><a href="promocoes_detalhes.asp?codproduto=<%=RSPromocoes("IDProduto")%>" target="_parent"><img 								src="wolmaq_img/img_marcadores/imagem_marcador_detalhes.gif" alt="Detalhes do Produto" 								width="68" 								height="19" border="0" align="middle" /></a></td>						</tr>						<tr>						  <td></td>						</tr>					  </tbody>				  </table></td>				</tr>				<tr>				  <td height="2" colspan="4"></td>				</tr>			  </tbody>			</table></td>			<%	     Colunas = 2 '// TOTAL DE COLUNAS A SEREM EXIBIDASIF Contador = Colunas - 1 Then %>		  </tr>		  <%Contador = 0ElseContador = Contador + 1End IFRSPromocoes.MoveNext		   Wend	IF Contador = 2 ThenElseIF Contador = 1 Then End IF %>		</table>		<div align="left"> <br>			<br>			  <table width="100%" border="0" cellpadding="0" cellspacing="4" class="Tabela_Borda2">			<tr>			  <td width="91%" valign="middle"><table width="90%" height="20" border="0" cellpadding="2" cellspacing="2">				  <tr>					<td valign="middle" class="Promocao_FontePreco4">Produtos para serem cotados</td>				  </tr>			  </table></td>			  <td width="9%" valign="middle"> </td>			</tr>		  </table>				<br>				<br>		</div>		<%'Fechamos a verificação da condição se existe ou não promoções END IF %>		<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">		  <tr>			<%'Faremos agora um laço apartir daqui na tabela  WHILE NOT RSProdutos.EOF'Verificaremos se a imagem existe ou não para vermos qual imagem apresentaremos na tela IF IsEmpty(RSProdutos("ProdutosImagemNormal")) OR IsNull(RSProdutos("ProdutosImagemNormal")) THEN	  ImagemTratada = "imagem_semproduto_pequena.jpg"	  ELSE	  ImagemTratada = "/" & RSProdutos("ProdutosImagemNormal") END IF				   				   %>			<td width="643" height="100%"><table width="100%" align="center" cellpadding="0" cellspacing="0">				<tbody>				  <tr>					<td valign="top"><TABLE width="100%" align="center" cellPadding=0 cellSpacing=0>						<TBODY>						  <TR>							<TD vAlign=top><TABLE width="100%" align="center" cellPadding=0 cellSpacing=0>								<TBODY>								  <TR>									<TD width=111 height="100" align=center valign="top"><div align="left"><a href="detalhes.asp?codproduto=<%=RSProdutos("IDProduto")%>" target="_parent"><img src="<%= ImagemTratada %>" alt="Detalhes do produto" width="85" height="85" border="0" align="absmiddle"></a></div></TD>									<TD colspan="2" vAlign=top><font color="#999999" class="Promocao_FonteTitulo1"><strong><%=RSProdutos("ProdutosSigla")%></strong></font> <br>										  <br>									  <TABLE width="96%" height="100%" align="center" cellPadding=0 cellSpacing=0>										<TBODY>										  <TR>											<TD height=65 class=PRODDESCRICAO><div align="justify"><%=Replace(LEFT(RSProdutos("ProdutosDescricao"),290) & "...",Chr(13),"<BR>")%></div></TD>										  </TR>										  <TR>											<TD class=PRODALIGNTEXT></TD>										  </TR>										</TBODY>									</TABLE>									<br></TD></TR>								  <TR>									<TD height="40" colspan="2"></TD>									<TD width="318" valign="middle"><div align="right"><a href="produtos_detalhes.asp?codproduto=<%=RSProdutos("IDProduto")%>" target="_parent"><img 								src="/imagem_marcador_detalhes.gif" alt="Detalhes do produto" width=68 height=19 								border=0 align="middle"></a> <a href="produtos_cotacao.asp?codproduto=<%=RSProdutos("IDProduto")%>" target="_parent"><img 								src="/imagem_marcador_cotacao.gif" alt="Cotação do Produto" 								width=129 								height=24 border=0 align="middle"></a></div></TD>								  </TR>								</TBODY>							</TABLE>							</TD>						  </TR>						</TBODY>					</TABLE></td>				  </tr>				</tbody>			</table></td>			<%	     Colunas = 1 '// TOTAL DE COLUNAS A SEREM EXIBIDASIF Contador = Colunas - 1 Then %>		  </tr>		  <%Contador = 0ElseContador = Contador + 1End IFRSProdutos.MoveNext		   Wend	IF Contador = 2 ThenElseIF Contador = 1 Then End IF %>

É esse codigo abaixo:::

[marcelocardoso 6]

Conseguiu dar uma olhada JONATHAN???

 

Pois não sei no meu pouquinho conhecimento oque está acontecendo....