Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

marcelocardoso

Access para SQL

Por , em ASP Clássico

Recommended Posts

marcelocardoso    6

marcelocardoso
Postado

Pessoal!

 

Nunca tinha usado banco de dados MSDE SQL, e agora estou me quebrando muito para resolver.... Pois com o banco access funciona tudo direitinho, mas ao passar para o MSDE (SQL SERVER) me dá muitos erros as vezes....

 

Vejam só este:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][ODBC SQL Server Driver][SQL Server]The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value. contato_envia.asp, line 106
E é justo nesta linha abaixo:

Inserir = "INSERT INTO CONTATO (ContatoNome,ContatoEmail,ContatoTelefone,ContatoEndereco,ContatoEmpresa,ContatoCidade,ContatoEstado,ContatoCEP,ContatoSetor,ContatoAssunto,ContatoMensagem,ContatoIP,ContatoData,ContatoHora,NumeroDoContato,IdCodigo) VALUES ('"&campo01&"','"&campo04&"','"&campo05&"','"&campo06&"','"&campo07&"','"&campo08&"','"&campo11&"','"&campo14&"','"&SetorTitulo&"','"&campo16&"','"&campo17&"','"&campo20&"','"&campo18&"','"&campo19&"','"&NumeroDoContatoS&"','"&campo21&"')"		ObjCX.Execute(Inserir)
Oque posso fazer aqui para resolver isso????

Salgado, JonathanDJ e amigos conseguem me ajudar....

 

 

 

E se puderem me informar aqui os comandos que não poderei usar do ACCESS no SQL, ou seja, oque do access vou ter que adaptar para o MSDE SQL.

Obrigado!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Campos de tipos Numericos não devem estar entre ' aspas simples. Campos do Tipo Data existe uma função interna que converte (não me recordo agora qual). E outras coisinhas pequenas que mudam, mas muito pouca coisa.

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

SALGADO!

 

Veja se consegue me ajudar aqui!

Estou ficando louco com esta conversão TERRAEMPRESAS:

 

Pois este código funcionana perfeitamente quando era ACCESS, agora que converti no terra para MSDE, não está mais funcionando o código inteiro abaixo, e me dá o seguinte erro: VEJA....

<% Response.Expires = 0%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><!--#include file="conexao.asp" --><TITLE></TITLE><LINK HREF="css.css" REL="STYLESHEET" TYPE="text/css"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></HEAD><BODY><table width="800" height="41" border="0" align="center" cellpadding="0" cellspacing="0">  <tbody>	<tr>	  <td width="194" valign="top"></td>	  <td width="438" valign="top"><table width="98%" border="0" align="center" cellpadding="2" cellspacing="2">		<tr>		  <td> </td>		</tr>		<tr>		  <td class="yearHeader">CADASTRO DE NOVIDADES </td>		</tr>		<tr>		  <td> </td>		</tr>		<tr>		  <td> </td>		</tr>		<tr>		  <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="4" class="Tabela_Borda4">			<tr>			  <td width="91%" valign="middle"><table width="90%" height="20" border="0" cellpadding="2" cellspacing="2">				  <tr>					<td valign="middle" class="Promocao_FontePreco3"></td>				  </tr>			  </table></td>			  <td width="9%" valign="middle"> </td>			</tr>		  </table>			<br>			<br>			<br><!--#include file="datahora.asp" --><%'FUNÇÃO PARA LIMPAR HTML 1 FUNCTION LimpaHTML(matriz) DO WHILE TRUE	   ini = InStr(1,matriz,"<")	IF ini = 0 THEN EXIT DO	   fim = InStr(ini,matriz,">")   parcial = Mid(matriz,ini,fim-ini+1)				 matriz = Replace(matriz,parcial,"")		  LOOP	 LimpaHTML = matriz END FUNCTION'FUNÇÃO PARA LIMPAR HTML 2 FUNCTION DeletaHTML(strHTML)	'Configurando o objeto de Expressão Regular	 SET objER			   = New RegExp 		 objER.IgnoreCase	= TRUE		 objER.Global		= TRUE		 objER.Pattern	   = "<[^>]*>"		'Substituindo as tags encontradas pela expressão	 strTexto			= strHTML	 strTexto			= objER.Replace(strTexto, "")		 SET objER		   = NOTHING	'Retornando a função	 DeletaHTML = strTexto	  END FUNCTION   'Recuperamos os dados digitados no formulário do NEWSLETTER  NewsletterEMAIL = DeletaHTML(Replace(LCase(Request.Form("email")),"'",""))		   Email  = NewsletterEMAIL    NewsletterNOME  = DeletaHTML(Replace(Request.Form("nome"),"'",""))			Nome  = NewsletterNOME	    NewsletterOpcao = Server.HTMLEncode(Replace(Request.Form("newsletter_opcao"),"'",""))  NewsletterData  = FormatarData(FormatDateTime(Date, 0))  NewsletterHora  = FormatarHora(FormatDateTime(Now, 3))  NewsletterIP	= Request.ServerVariables("REMOTE_ADDR")  NewsletterFLG   = "0"  'Abrimos a SQL e verificamos o email SET ObjRS = ObjCX.Execute("SELECT * FROM NEWSLETTER WHERE NewsletterEmail = '"& Email &"'")'Definimos a Seleção do CASO SELECT CASE NewsletterOpcao%><%'Definimos a instrução para o caso que ADICIONA O EMAIL		CASE "0" 'Caso tenha sido escolhido a opção (Entrar na Lista)		  IF ObjRS.BOF AND ObjRS.EOF THEN			 SQL1 = "INSERT INTO NEWSLETTER (NewsletterNome,NewsletterEmail,NewsletterData,NewsletterHora,NewsletterIP,FLG_EMAIL) VALUES ('"&Nome&"','"&Email&"','"&NewsletterData&"','"&NewsletterHora&"','"&NewsletterIP&"','"&NewsletterFLG&"')"			 'response.write SQL1			 'response.End			 ObjCX.Execute(SQL1)%><table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">					<tr> 					  <td> </td>					</tr>					<tr> 					  <td height="43"><div align="center" class="Promocao_FonteDados1"><strong>Seu 					  e-mail foi cadastrado com sucesso!</strong></div></td>					</tr>					<tr> 					  <td><div align="center" class="Promocao_FonteDados4">Em breve você estará 						  recebendo muitas novidades<br> 						em seu endereço de e-mail 						cadastrado.</div></td>					</tr>					<tr>					  <td> </td>					</tr>			  </table><%ELSE%>				  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">					<tr>					  <td> </td>					</tr>					<tr> 					  <td height="43"><div align="center" class="Promocao_FonteDados1"><strong>Você 					  já é registrado em nossa newsletter!</strong></div></td>					</tr>					<tr> 					  <td height="24"> <div align="center" class="Promocao_FonteDados4">Uma vez registrado 						  em nossa base de dados, não será  <br>						necessário 						  cadastrá-lo novamente.</div></td>					</tr>					<tr> 					  <td height="24"> </td>					</tr>				  </table>				  <%			 END IF%>				  <%'Definimos a instrução para o caso que DELETA O EMAIL		CASE "1" 'Caso tenha sido escolhido a opção (Sair da Lista)	 IF ObjRS.BOF AND ObjRS.EOF THEN%>				  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">					<tr> 					  <td> </td>					</tr>					<tr> 					  <td height="43"><div align="center" class="Promocao_FonteDados1"><strong>Você 					  ainda não é registrado! registre-se.</strong></div></td>					</tr>					<tr> 					  <td><div align="center" class="Promocao_FonteDados4">Para deletar seu email, é 						  necessário estar cadastrado.</div></td>					</tr>					<tr>					  <td> </td>					</tr>				  </table>				  <%			 ELSE%>				  <%	   SQL2 = "DELETE FROM NEWSLETTER WHERE NewsletterEmail = '"& Email &"'"  ObjCX.Execute(SQL2)%>				  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="2">					<tr>					  <td> </td>					</tr>					<tr> 					  <td height="43"><div align="center"><strong><font color="#CC0000">Seu 					  e-mail foi deletado com sucesso!</font></strong></div></td>					</tr>					<tr> 					  <td><div align="center" class="Promocao_FonteDados4">Havendo novamente o interesse, cadastre-se<br> 						em nossa newsletter de novidades.</div></td>					</tr>					<tr> 					  <td> </td>					</tr>				  </table>				  <%			 END IFEND SELECT%></p>			<p align="justify"> </p>			<p> </p>			<p>  </p></td>		</tr>	  </table></td>	  <td width="200" valign="top"><td>	</tr>  </tbody></table></BODY></HTML>
AGORA O ERRO É ESTE:

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

 

[Microsoft][ODBC SQL Server Driver]

The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.

 

novidades.asp, line 128

Já coloquei uma formatação de data, mas não foi do mesmo jeito,e também tentei retirar as aspas simples e nada....

Que coisa complicada.... tá dificil para mim....

 

Me ajude aí colega, pois estou perdidinho....

 

 

 

 

Me esqueci, a linha 128 é no primeiro SQL1

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

session.lcid=1046function formatadata(data)dia=day(data)mes=month(data)ano=year(data)formatadata=ano&"-"&mes&"-"&diaend functionpara chamar a funçãoformatadata("1/08/1980")

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

JonathanDj!

 

Agora fiz assim veja se está certo!

NewsletterData  = Date()  NewsletterHora  = Time()    function formatadata(data)	   dia = day(data)	   mes = month(data)	   ano = year(data)		   formatadata = ano&"/"&mes&"/"&dia  end function  NewsData = formatadata(NewsletterData)  response.write NewsData  response.end
Me retorna agora assim: 2007/02/20

 

Está correto assim??????

 

E creio que está, pois agora funcionou.... ok!

Obrigado amigão.......

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

Jonathan e Salgado!

 

Esta foi resolvida, agora tem esta aqui!

Na minha máquina está funcionando perfeitamente com access, mas no servidor com banco access importado para MSDE, não aparece na tela a descrição dos produtos....

 

Vejam meu código.

<% Response.Expires = 0%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><!--#include file="conexao.asp" --><TITLE><%=ObjRS("EmpresaTitulo1")%></TITLE><LINK HREF="css.css" REL="STYLESHEET" TYPE="text/css"><!--#include file="js.asp" --><script language="JavaScript" type="text/javascript" src="macromedia.js"></script><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></HEAD><BODY><%'Selecionamos agora os PRODUTOS SET RSProdutos  = ObjCX.Execute("SELECT TOP 3 * FROM Produtos WHERE ProdutosOpcao = 1 AND ProdutosOpcaoPromocao = 0 ORDER BY NewID()") 'SQL SERVER'Selecionamos agora os PROMOCOES SET RSPromocoes = ObjCX.Execute("SELECT TOP 4 * 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 %><table width="800" height="41" border="0" align="center" cellpadding="0" cellspacing="0">  <tbody>	<tr>	  <td width="180" valign="top"></td>	  <td width="421" valign="top">		<div align="left">		  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">			<tr>			  <td width="100%" valign="middle"><img src="imagem_marcador_barra_promocoes.gif" alt="Promoções em destaque" width="415" height="50"></td>			</tr>		  </table>		</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_pequena.jpg"	  ELSE	  ImagemTratada = "img_produtos/" & 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="200" border="0" align="center" 								cellpadding="2" cellspacing="2" bgcolor="#F4F4F4">					  <tbody>						<tr>						  <td></td>						</tr>						<tr>						  <td><table width="98%" border="0" align="center" cellpadding="4" cellspacing="4" class="Tabela_Borda4">							  <tr>								<td width="100%"><span class="Promocao_FonteTitulo3"><%=RSPromocoes("ProdutosSigla")%></span><br /></td>							  </tr>							  <tr>								<td><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 da Promoção" width="85" height="85" border="0" align="absmiddle"></a></div></td>								  </tr>								</table></td>							  </tr>							  <tr>								<td height="30"><br>								  <span class="Promocao_FontePreco3"> <%=FormatCurrency(RSPromocoes("ProdutosValorDe"))%></span><br>								  <br></td>							  </tr>							  <tr>								<td height="50"><span class="Promocao_FonteDados2"> Faturado em:</span> <%=RSPromocoes("ProdutosFaturamento")%><br />								  <span class="Promocao_FonteDados2"> Observações:</span> <%=RSPromocoes("ProdutosParcelas")%><br></td>							  </tr>							  <tr>								<td height="36" valign="middle"><table border="0" align="center" cellpadding="0" cellspacing="0">								  <tr>									<td><div align="right"><a href="carrinho.asp?codproduto=<%=RSPromocoes("IDProduto")%>" target="_parent"><img src="imagem_marcador_compra.jpg" alt="Comprar Produto" width="72" height="19" border="0" align="middle"></a></div></td>									<td><div align="center"><a href="promocoes_detalhes.asp?codproduto=<%=RSPromocoes("IDProduto")%>" target="_parent"> <img 								src="imagem_marcador_detalhes.jpg" alt="Detalhes da Promoção" 								width="70" 								height="19" border="0" align="middle" /></a></div></td>								  </tr>								</table></td>							  </tr>							</table>							</b></div></td>						</tr>					  </tbody>				  </table>					<br></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 RSPromocoes.Close%>		</table>		<div align="left"> <br>			<br>			  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">			<tr>			  <td width="100%" valign="middle"><img src="imagem_marcador_barra_produtos.gif" alt="" width="415" height="50"></td>			  </tr>		  </table>		</div>		<%'Fechamos a verificação da condição se existe ou não promoções END IF %><%'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 = "img_produtos/" & RSProdutos("ProdutosImagemNormal") END IF				   				   %><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">		  <tr>			<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=112 height="100" align=center valign="top"><div align="center">									  <table width="90%" border="0" align="left" cellpadding="2" cellspacing="2" class="Tabela_Borda4">										<tr>										  <td width="110" height="110" valign="middle"><div align="center"><a href="produtos_detalhes.asp?codproduto=<%=RSProdutos("IDProduto")%>" target="_parent"><img src="<%= ImagemTratada %>" alt="Detalhes do Produto" width="85" height="85" border="0" align="middle"></a></div></td>										</tr>									  </table>									  </div></TD>									<TD colspan="2" vAlign=top><font color="#999999" class="Promocao_FonteTitulo1"><strong><%=RSProdutos("ProdutosSigla")%></strong></font> <br>										  <br>									  <TABLE width="90%" 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="299" valign="top"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">									  <tr>										<td><table border="0" align="right" cellpadding="0" cellspacing="0">										  <tr>											<td><div align="right"><a href="produtos_cotacao.asp?codproduto=<%=RSProdutos("IDProduto")%>" target="_parent"><img src="imagem_marcador_cotacao2.jpg" alt="Cotar Produto" width="72" height="19" border="0" align="middle"></a></div></td>											<td><div align="center"><a href="produtos_detalhes.asp?codproduto=<%=RSProdutos("IDProduto")%>" target="_parent"> <img 								src="imagem_marcador_detalhes2.jpg" alt="Detalhes do Produto" 								width="70" 								height="19" border="0" align="middle" /></a></div></td>										  </tr>										</table></td>									  </tr>									</table>									</TD>								  </TR>								</TBODY>							</TABLE>							</TD>						  </TR>						</TBODY>					</TABLE></td>				  </tr>				</tbody>			</table></td><%RSProdutos.MoveNext		   Wend%></table><br>   <br></td>	  <td width="199" align="center" valign="top"><br></td>	</tr>  </tbody></table></BODY></HTML>
O código acima está funcionando, mas não está trazendo esta parte, na qual é a que busca o texto do produto:

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

 

 

Engraçado que no meu IIS aqui na minha máquina com bd access, ele traz a descrição do produto normal...

Mas no servidor vem tudo oque tem que mostrar, porém a descrição conforme a instrução acima, passa batido e só mostra os ... PONTINHOS.

 

 

Porque será???

Pode me ajudar mais nesta, pois anda perdidão nesta parte do MSDE...

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

Amigos, descobri o ERRO!

 

Fica nesta parte aqui: VEJAM....

'Verificaremos se a imagem existe ou não para vermos qual imagem apresentaremos na telaIF IsEmpty(RSPromocoes("ProdutosImagemNormal")) OR IsNull(RSPromocoes("ProdutosImagemNormal")) THEN	  ImagemTratada = "imagem_semproduto_pequena.jpg"	  ELSE	  ImagemTratada = "img_produtos/" & RSPromocoes("ProdutosImagemNormal")END IF
É por causa deste código acima que não mostra a DESCRICAO dos PRODUTOS, pois se é eu não sei, mas retirei do código e testei novamente e veio a descrição dos produtos... tudo numa boa, mas aí tornei a colocar novamente o código, e voltou a não funcionar....

 

Mas oque acontece é que preciso deste código funcionando também, junto com a descrição...

Mas não sei como, pois preciso dos 2.

 

E este código acima que retirei, é para ele mostrar uma imagem caso algum produto não tenha IMAGEM cadastrada no banco, ele daí me mostre uma IMG default....

ENTENDERAM....

 

Conseguem me ajudar a RESOLVER ESTE PROBLEMA AGORA????

Tem algum outro jeito de fazer aparecer a descrição dos produtos sem retirar este código acima?????

 

 

Obrigado SALGADO e JONATHAN...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Prog    183

Prog
Postado

Aí...

 

Tu vai ficar muito chateado se eu te disser que esta parte do código não muda em nada o seu problema?

Se você esta tirando esta parte e, por um milagre, tudo esta funcionando corretamente, sugiro rever toda a sua lógica.

 

Boa sorte... ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

PROG e Amigos Salgado e Jonathan!

 

Nosso amigo disse que era para eu rever toda minha lógica na programação, mas não obtive sucesso nisso!

Até porque estou pegando um código daqui, outro dali, estou conseguindo montar alguma coisa....

 

portanto conhecimento mais profundos, e também já bastante sobre if's, e na hora de fazer me perco bastante...

Portanto meu código completo é este abaixo:

 

Conseguem me ajudar a rever oque está acontecendo, com todo carinho???

Agradeço muito a vocês.

 

 

Deus abençoe todos que tem me ajudado, obrigado mesmo.

 

<% Response.Expires = 0%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><!--#include file="conexao.asp" --><TITLE><%=ObjRS("EmpresaTitulo1")%></TITLE><LINK HREF="css.css" REL="STYLESHEET" TYPE="text/css"><!--#include file="js.asp" --><script language="JavaScript" type="text/javascript" src="macromedia.js"></script><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></HEAD><BODY><%'Selecionamos agora os PRODUTOSSET RSProdutos  = ObjCX.Execute("SELECT TOP 3 * FROM Produtos WHERE ProdutosOpcao = 1 AND ProdutosOpcaoPromocao = 0 ORDER BY NewID()") 'SQL SERVER'Selecionamos agora os PROMOCOESSET RSPromocoes = ObjCX.Execute("SELECT TOP 4 * 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 %><table width="800" height="41" border="0" align="center" cellpadding="0" cellspacing="0">  <tbody>	<tr>	  <td width="180" valign="top"></td>	  <td width="421" valign="top">		<div align="left">		  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">			<tr>			  <td width="100%" valign="middle"><img src="imagem_marcador_barra_promocoes.gif" alt="Promoções em destaque" width="415" height="50"></td>			</tr>		  </table>		</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 telaIF IsEmpty(RSPromocoes("ProdutosImagemNormal")) OR IsNull(RSPromocoes("ProdutosImagemNormal")) THEN	  ImagemTratada = "imagem_semproduto_pequena.jpg"	  ELSE	  ImagemTratada = "img_produtos/" & 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="200" border="0" align="center" 								cellpadding="2" cellspacing="2" bgcolor="#F4F4F4">					  <tbody>						<tr>						  <td></td>						</tr>						<tr>						  <td><table width="98%" border="0" align="center" cellpadding="4" cellspacing="4" class="Tabela_Borda4">							  <tr>								<td width="100%"><span class="Promocao_FonteTitulo3"><%=RSPromocoes("ProdutosSigla")%></span><br /></td>							  </tr>							  <tr>								<td><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 da Promoção" width="85" height="85" border="0" align="absmiddle"></a></div></td>								  </tr>								</table></td>							  </tr>							  <tr>								<td height="30"><br>								  <span class="Promocao_FontePreco3"> <%=FormatCurrency(RSPromocoes("ProdutosValorDe"))%></span><br>								  <br></td>							  </tr>							  <tr>								<td height="50"><span class="Promocao_FonteDados2"> Faturado em:</span> <%=RSPromocoes("ProdutosFaturamento")%><br />								  <span class="Promocao_FonteDados2"> Observações:</span> <%=RSPromocoes("ProdutosParcelas")%><br></td>							  </tr>							  <tr>								<td height="36" valign="middle"><table border="0" align="center" cellpadding="0" cellspacing="0">								  <tr>									<td><div align="right"><a href="carrinho.asp?codproduto=<%=RSPromocoes("IDProduto")%>" target="_parent"><img src="imagem_marcador_compra.jpg" alt="Comprar Produto" width="72" height="19" border="0" align="middle"></a></div></td>									<td><div align="center"><a href="promocoes_detalhes.asp?codproduto=<%=RSPromocoes("IDProduto")%>" target="_parent"> <img 								src="imagem_marcador_detalhes.jpg" alt="Detalhes da Promoção" 								width="70" 								height="19" border="0" align="middle" /></a></div></td>								  </tr>								</table></td>							  </tr>							</table>							</b></div></td>						</tr>					  </tbody>				  </table>					<br></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 RSPromocoes.Close%>		</table>		<div align="left"> <br>			<br>			  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">			<tr>			  <td width="100%" valign="middle"><img src="imagem_marcador_barra_produtos.gif" alt="" width="415" height="50"></td>			  </tr>		  </table>		</div>		<%'Fechamos a verificação da condição se existe ou não promoçõesEND IF %><%'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 telaIF IsEmpty(RSProdutos("ProdutosImagemNormal")) OR IsNull(RSProdutos("ProdutosImagemNormal")) THEN	  ImagemTratada = "imagem_semproduto_pequena.jpg"	  ELSE	  ImagemTratada = "img_produtos/" & RSProdutos("ProdutosImagemNormal")END IF									  %><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">		  <tr>			<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=112 height="100" align=center valign="top"><div align="center">									  <table width="90%" border="0" align="left" cellpadding="2" cellspacing="2" class="Tabela_Borda4">										<tr>										  <td width="110" height="110" valign="middle"><div align="center"><a href="produtos_detalhes.asp?codproduto=<%=RSProdutos("IDProduto")%>" target="_parent"><img src="<%= ImagemTratada %>" alt="Detalhes do Produto" width="85" height="85" border="0" align="middle"></a></div></td>										</tr>									  </table>									  </div></TD>									<TD colspan="2" vAlign=top><font color="#999999" class="Promocao_FonteTitulo1"><strong><%=RSProdutos("ProdutosSigla")%></strong></font> <br>										  <br>									  <TABLE width="90%" 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="299" valign="top"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">									  <tr>										<td><table border="0" align="right" cellpadding="0" cellspacing="0">										  <tr>											<td><div align="right"><a href="produtos_cotacao.asp?codproduto=<%=RSProdutos("IDProduto")%>" target="_parent"><img src="imagem_marcador_cotacao2.jpg" alt="Cotar Produto" width="72" height="19" border="0" align="middle"></a></div></td>											<td><div align="center"><a href="produtos_detalhes.asp?codproduto=<%=RSProdutos("IDProduto")%>" target="_parent"> <img 								src="imagem_marcador_detalhes2.jpg" alt="Detalhes do Produto" 								width="70" 								height="19" border="0" align="middle" /></a></div></td>										  </tr>										</table></td>									  </tr>									</table>									</TD>								  </TR>								</TBODY>							</TABLE>							</TD>						  </TR>						</TBODY>					</TABLE></td>				  </tr>				</tbody>			</table></td><%RSProdutos.MoveNext		   Wend%></table><br>   <br></td>	  <td width="199" align="center" valign="top"><br></td>	</tr>  </tbody></table></BODY></HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

Olá! SALGADO, MARIOUPFA E JONATHANDJ

 

Amigos estou quebrando a minha cabeça aqui uma semana, mas não consigo decifrar o erro no meu código que irei postar abaixo, pois o PROG disse que é erro de programação, mas não acho aonde....

 

Pois quando uso aqui em casa no IIS com BD Access tudo funciona normalmente trazendo a DESCRIÇÃO DOS PRODUTOS, mas quando importo o ACCESS para o MSDE do TERRA, aí vou abrir o mesmo script que vou postar agora, ele não me traz a DESCRIÇÃO DOS PRODUTOS, somente das promoções...

 

Deem um olhada no meu código e me ajudem, já gastei meus neuronios aqui uma semana.....

<% Response.Expires = 0%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML><HEAD><!--#include file="conexao.asp" --><TITLE><%=ObjRS("EmpresaTitulo1")%></TITLE><LINK HREF="css.css" REL="STYLESHEET" TYPE="text/css"><!--#include file="js.asp" --><script language="JavaScript" type="text/javascript" src="macromedia.js"></script><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></HEAD><BODY><%'Selecionamos agora os PRODUTOSSET RSProdutos  = ObjCX.Execute("SELECT TOP 3 * FROM Produtos WHERE ProdutosOpcao = 1 AND ProdutosOpcaoPromocao = 0 ORDER BY NewID()") 'SQL SERVER'Selecionamos agora os PROMOCOESSET RSPromocoes = ObjCX.Execute("SELECT TOP 4 * 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 %><table width="800" height="41" border="0" align="center" cellpadding="0" cellspacing="0">  <tbody>	<tr>	  <td width="180" valign="top"></td>	  <td width="421" valign="top">		<div align="left">		  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">			<tr>			  <td width="100%" valign="middle"><img src="imagem_marcador_barra_promocoes.gif" alt="Promoções em destaque" width="415" height="50"></td>			</tr>		  </table>		</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 telaIF IsEmpty(RSPromocoes("ProdutosImagemNormal")) OR IsNull(RSPromocoes("ProdutosImagemNormal")) THEN	  ImagemTratada = "imagem_semproduto_pequena.jpg"	  ELSE	  ImagemTratada = "img_produtos/" & 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="200" border="0" align="center" 								cellpadding="2" cellspacing="2" bgcolor="#F4F4F4">					  <tbody>						<tr>						  <td></td>						</tr>						<tr>						  <td><table width="98%" border="0" align="center" cellpadding="4" cellspacing="4" class="Tabela_Borda4">							  <tr>								<td width="100%"><span class="Promocao_FonteTitulo3"><%=RSPromocoes("ProdutosSigla")%></span><br /></td>							  </tr>							  <tr>								<td><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 da Promoção" width="85" height="85" border="0" align="absmiddle"></a></div></td>								  </tr>								</table></td>							  </tr>							  <tr>								<td height="30"><br>								  <span class="Promocao_FontePreco3"> <%=FormatCurrency(RSPromocoes("ProdutosValorDe"))%></span><br>								  <br></td>							  </tr>							  <tr>								<td height="50"><span class="Promocao_FonteDados2"> Faturado em:</span> <%=RSPromocoes("ProdutosFaturamento")%><br />								  <span class="Promocao_FonteDados2"> Observações:</span> <%=RSPromocoes("ProdutosParcelas")%><br></td>							  </tr>							  <tr>								<td height="36" valign="middle"><table border="0" align="center" cellpadding="0" cellspacing="0">								  <tr>									<td><div align="right"><a href="carrinho.asp?codproduto=<%=RSPromocoes("IDProduto")%>" target="_parent"><img src="imagem_marcador_compra.jpg" alt="Comprar Produto" width="72" height="19" border="0" align="middle"></a></div></td>									<td><div align="center"><a href="promocoes_detalhes.asp?codproduto=<%=RSPromocoes("IDProduto")%>" target="_parent"> <img 								src="imagem_marcador_detalhes.jpg" alt="Detalhes da Promoção" 								width="70" 								height="19" border="0" align="middle" /></a></div></td>								  </tr>								</table></td>							  </tr>							</table>							</b></div></td>						</tr>					  </tbody>				  </table>					<br></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 RSPromocoes.Close%>		</table>		<div align="left"> <br>			<br>			  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="2">			<tr>			  <td width="100%" valign="middle"><img src="imagem_marcador_barra_produtos.gif" alt="" width="415" height="50"></td>			  </tr>		  </table>		</div>		<%'Fechamos a verificação da condição se existe ou não promoçõesEND IF %><%'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 telaIF IsEmpty(RSProdutos("ProdutosImagemNormal")) OR IsNull(RSProdutos("ProdutosImagemNormal")) THEN	  ImagemTratada = "imagem_semproduto_pequena.jpg"	  ELSE	  ImagemTratada = "img_produtos/" & RSProdutos("ProdutosImagemNormal")END IF									  %><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">		  <tr>			<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=112 height="100" align=center valign="top"><div align="center">									  <table width="90%" border="0" align="left" cellpadding="2" cellspacing="2" class="Tabela_Borda4">										<tr>										  <td width="110" height="110" valign="middle"><div align="center"><a href="produtos_detalhes.asp?codproduto=<%=RSProdutos("IDProduto")%>" target="_parent"><img src="<%= ImagemTratada %>" alt="Detalhes do Produto" width="85" height="85" border="0" align="middle"></a></div></td>										</tr>									  </table>									  </div></TD>									<TD colspan="2" vAlign=top><font color="#999999" class="Promocao_FonteTitulo1"><strong><%=RSProdutos("ProdutosSigla")%></strong></font> <br>										  <br>									  <TABLE width="90%" 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="299" valign="top"><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">									  <tr>										<td><table border="0" align="right" cellpadding="0" cellspacing="0">										  <tr>											<td><div align="right"><a href="produtos_cotacao.asp?codproduto=<%=RSProdutos("IDProduto")%>" target="_parent"><img src="imagem_marcador_cotacao2.jpg" alt="Cotar Produto" width="72" height="19" border="0" align="middle"></a></div></td>											<td><div align="center"><a href="produtos_detalhes.asp?codproduto=<%=RSProdutos("IDProduto")%>" target="_parent"> <img 								src="imagem_marcador_detalhes2.jpg" alt="Detalhes do Produto" 								width="70" 								height="19" border="0" align="middle" /></a></div></td>										  </tr>										</table></td>									  </tr>									</table>									</TD>								  </TR>								</TBODY>							</TABLE>							</TD>						  </TR>						</TBODY>					</TABLE></td>				  </tr>				</tbody>			</table></td><%RSProdutos.MoveNext		   Wend%></table><br>   <br></td>	  <td width="199" align="center" valign="top"><br></td>	</tr>  </tbody></table></BODY></HTML>

ME AJUDEM, Por Gentileza.... Estou perdidão e não quero que fique assim.... SE no acess aqui funciona, teria que funcionar lá no TERRA também, me ajudem amigos....

 

Obrigado!

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

Alguém AIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII?????Só preciso resolver esta parte que não me traz a descrição das promoções, pois aqui em casa funciona perfeitamente, mas quando importo o ACCESS para o TERRA, no caso para MSDE, ele não me traz a descricao das promoções, somente a dos produtos.... REFERENTE AO MEU ULTIMO CÓDIGO POSTADO....Alguem pode me ajudar por gentileza, pois não sei como resolver isso.Sera que é por que na mesma página faço um laço na mesma TABELA....????

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Cara, faz um teste simples, crie um código NOVO apenas com a conexão, um RecordSet pegando todos os dados e um While para listar esses dados.

 

Às vezes um código fica complexo de se encontrar erros e o melhor é fazer um teste externo.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito