Ir para conteúdo

POWERED BY:

Arquivado

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

marcelocardoso

ERRO Difícil

Por , em ASP Clássico

Recommended Posts

marcelocardoso    6

marcelocardoso
Postado

PESSOAL!

 

Estou com um problema no código abaixo, é que simplesmente na parte onde tem este código aqui:

 

WHILE NOT Dicas.EOFTEMPLATE = TEMPLATE & "<td width=""643"" height=""100%""><table width=""100%"" border=""0"" cellpadding=""1"" cellspacing=""0"">"		  TEMPLATE = TEMPLATE & "							<tr>"		  TEMPLATE = TEMPLATE & "							  <td width=""27%"" height=""30"" valign=""top""><font face=""Arial"" size=""1""> </font><font face=""Arial"" size=""1""><a href=""http://www.teste.com.br/dicas_detalhes.asp?coddicas="& DicasID &""" target=""_blank""><img src=""http://www.teste.com.br/"& DicasImagem &""" alt="""& DicasTitulo &""" width=""52"" height=""52"" border=""0"" align=""absmiddle""></a></font> </td>"		  TEMPLATE = TEMPLATE & "			<td width=""73%"" valign=""top""><a href=""dicas_detalhes.asp?coddicas="& DicasID &""" target=""_blank"">"& DicasDescricao &"</a></td>"		  TEMPLATE = TEMPLATE & "		 </tr>"		  TEMPLATE = TEMPLATE & "</table></td>"   Colunas = 1  IF Contador = Colunas - 1 Then		  TEMPLATE = TEMPLATE & "</tr>"Contador = 0	ElseContador = Contador + 1End IF	   Dicas.MoveNext			 Wend	IF Contador = 1 ThenElseIF Contador = 1 ThenEnd IF

 

CÒDIGO AGORA COMPLETO:::::

 

 

<!--#include file="conexao.asp" --><!--#include file="datahora.asp" --><%'Verificaremos qual o nível de permissão do usuário logado IF SESSION("NivelSecurity") < 2 THEN	Response.Write = "<table width=""98%"" height=""100%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""2"">"	Response.Write = "<tr>"	Response.Write = "<td width=""95%""><div align=""center"" class=""TEXTO-TITULO2-BOLD"">VocÊ nÃo tem <span class=""TEXTO-TITULO-10p"">permissÃo</span> para acessar esta pÁgina! </div></td>"	Response.Write = "</tr>"	Response.Write = "</table>"	Response.End END IF  %><%'CAPTURAREMOS AS VARIAVEIS VINDAS DO FORMULARIO campo_FALA   = Replace(Replace(Replace(Request.Form("campo_descricao"),"'",""),"<P>",""),"</P>","") campo_DATA   = Date()	   	  campo_MODELO = Request.Form("modelo")   IF campo_MODELO = "1" THEN	SET Dicas		= ObjCX.Execute("SELECT TOP 3 * FROM Dicas ORDER BY ID DESC")  	SET Produtos	 = ObjCX.Execute("SELECT TOP 2 * FROM Produtos ORDER BY ID DESC")	SET Noticias	 = ObjCX.Execute("SELECT TOP 4 * FROM Noticias ORDER BY ID DESC") 		NoticiasID		 = Noticias("ID")		NoticiasData	   = FormatarData(Noticias("NoticiaData"))  NoticiasDescricao  = LEFT(Noticias("NoticiaDescricao"),130) & " ..."    DicasID			= Dicas("ID")  DicasImagem		= Dicas("DicasImagem")  DicasTitulo		= Dicas("DicasTitulo")  DicasDescricao	 = Replace(LEFT(Dicas("DicasDescricao"),80) & "...",CHR(13),"<BR>")   		  TEMPLATE = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"		  TEMPLATE = TEMPLATE & "<html>"		  TEMPLATE = TEMPLATE & "<head>"		  TEMPLATE = TEMPLATE & "<title>teste</title>"		  TEMPLATE = TEMPLATE & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"		  TEMPLATE = TEMPLATE & "</HEAD>"		  TEMPLATE = TEMPLATE & "<BODY>"		  TEMPLATE = TEMPLATE & "<table width=""850"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""Cabecalho"">"		  TEMPLATE = TEMPLATE & "  <tr> "		  TEMPLATE = TEMPLATE & "	<td width=""730"" colspan=""2""></td>"		  TEMPLATE = TEMPLATE & "  </tr>"		  TEMPLATE = TEMPLATE & "  <tr> "		  TEMPLATE = TEMPLATE & "	<td colspan=""2""><table align=""center"" bgcolor=""#ffffff"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""806"">"		  TEMPLATE = TEMPLATE & "	  <tr>"		  TEMPLATE = TEMPLATE & "		<td valign=""bottom""><img src="""& campo_PASTA &"imagem_newsletter_natal1_-_A1.jpg"" alt="""" width=""806"" height=""203"" border=""0"" usemap=""#SITE"" /></td>"		  TEMPLATE = TEMPLATE & "	  </tr>"		  TEMPLATE = TEMPLATE & "	  <tr>"		  TEMPLATE = TEMPLATE & "		<td><table align=""left"" bgcolor=""#ffffff"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""806"">"		  TEMPLATE = TEMPLATE & "			<tr>"		  TEMPLATE = TEMPLATE & "			  <td width=""462"" background="""& campo_PASTA &"imagem_newsletter_natal1_-_A2.jpg""><table width=""94%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""2"">"		  TEMPLATE = TEMPLATE & "				<tr>"		  TEMPLATE = TEMPLATE & "				  <td> </td>"		  TEMPLATE = TEMPLATE & "				  <td><span class=""TEXTO_A""><span class=""TEXTO_B"">Prezado Amigo, </span></span><span class=""style6"">"& campo_NOME &"</span></td>"		  TEMPLATE = TEMPLATE & "				</tr>"		  TEMPLATE = TEMPLATE & "				<tr>"		  TEMPLATE = TEMPLATE & "				  <td width=""12%""> </td>"		  TEMPLATE = TEMPLATE & "				  <td width=""88%""><p class=""TEXTO-10P""><br>"& campo_FALA &"</p></td>"		  TEMPLATE = TEMPLATE & "				</tr>"		  TEMPLATE = TEMPLATE & "			  </table></td>"		  TEMPLATE = TEMPLATE & "			  <td width=""344"" background="""& campo_PASTA &"imagem_newsletter_natal1_-_A3.jpg""><table width=""100%"" height=""203"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""2"">"		  TEMPLATE = TEMPLATE & "				<tr>"		  TEMPLATE = TEMPLATE & "				  <td> </td>"		  TEMPLATE = TEMPLATE & "				  <td><table width=""100%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""2"">"		  TEMPLATE = TEMPLATE & "					<tr>"		  TEMPLATE = TEMPLATE & "					  <td width=""93%"" height=""31"" bgcolor=""#333333"" class=""TEXTO_A""><div align=""center"" class=""TEXTO_B"">"		  TEMPLATE = TEMPLATE & "						  <div align=""left"">  <span class=""FonteADM1"">Dicas para sua Saúde! </span></div>"		  TEMPLATE = TEMPLATE & "					  </div></td>"		  TEMPLATE = TEMPLATE & "					  </tr>"		  TEMPLATE = TEMPLATE & "				  </table></td>"		  TEMPLATE = TEMPLATE & "				  <td height=""39""> </td>"		  TEMPLATE = TEMPLATE & "				</tr>"		  TEMPLATE = TEMPLATE & "				<tr>"		  TEMPLATE = TEMPLATE & "	  <td width=""2%""> </td>"		  TEMPLATE = TEMPLATE & "<td width=""87%"" valign=""middle""><table width=""96%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""3"">"		  TEMPLATE = TEMPLATE & "<tr>"WHILE NOT Dicas.EOF		  TEMPLATE = TEMPLATE & "<td width=""643"" height=""100%""><table width=""100%"" border=""0"" cellpadding=""1"" cellspacing=""0"">"		  TEMPLATE = TEMPLATE & "							<tr>"		  TEMPLATE = TEMPLATE & "							  <td width=""27%"" height=""30"" valign=""top""><font face=""Arial"" size=""1""> </font><font face=""Arial"" size=""1""><a href=""http://www.teste.com.br/dicas_detalhes.asp?coddicas="& DicasID &""" target=""_blank""><img src=""http://www.teste.com.br/"& DicasImagem &""" alt="""& DicasTitulo &""" width=""52"" height=""52"" border=""0"" align=""absmiddle""></a></font> </td>"		  TEMPLATE = TEMPLATE & "			<td width=""73%"" valign=""top""><a href=""http://www.teste.com.br/dicas_detalhes.asp?coddicas="& DicasID &""" target=""_blank"">"& DicasDescricao &"</a></td>"		  TEMPLATE = TEMPLATE & "		 </tr>"		  TEMPLATE = TEMPLATE & "</table></td>"   Colunas = 1  IF Contador = Colunas - 1 Then		  TEMPLATE = TEMPLATE & "</tr>"Contador = 0	ElseContador = Contador + 1End IF	   Dicas.MoveNext			 Wend	IF Contador = 1 ThenElseIF Contador = 1 ThenEnd IF 		  TEMPLATE = TEMPLATE & "				  </table></td>"		  TEMPLATE = TEMPLATE & "				  <td width=""11%"" height=""100%""> </td>"		  TEMPLATE = TEMPLATE & "				</tr>"		  TEMPLATE = TEMPLATE & "			  </table></td>"		  TEMPLATE = TEMPLATE & "			</tr>"		  TEMPLATE = TEMPLATE & "		</table></td>"		  TEMPLATE = TEMPLATE & "	  </tr>"		  TEMPLATE = TEMPLATE & "	  <tr>"		  TEMPLATE = TEMPLATE & "		<td><table align=""left"" bgcolor=""#ffffff"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""806"">"		  TEMPLATE = TEMPLATE & "			<tr>"		  TEMPLATE = TEMPLATE & "			  <td><img src="""& campo_PASTA &"imagem_newsletter_natal1_-_A4.jpg"" width=""462"" height=""21"" border=""0"" alt="""" /></td>"		  TEMPLATE = TEMPLATE & "			  <td><img src="""& campo_PASTA &"imagem_newsletter_natal1_-_A5.jpg"" width=""344"" height=""21"" border=""0"" alt="""" /></td>"		  TEMPLATE = TEMPLATE & "			</tr>"		  TEMPLATE = TEMPLATE & "		</table></td>"		  TEMPLATE = TEMPLATE & "	  </tr>"		  TEMPLATE = TEMPLATE & "	  <tr>"		  TEMPLATE = TEMPLATE & "		<td><table align=""left"" bgcolor=""#ffffff"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""806"">"		  TEMPLATE = TEMPLATE & "			<tr>"		  TEMPLATE = TEMPLATE & "			  <td width=""462"" background="""& campo_PASTA &"imagem_newsletter_natal1_-_A6.jpg""><table width=""100%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""2"">"		  TEMPLATE = TEMPLATE & "				<tr>"		  TEMPLATE = TEMPLATE & "	<td width=""8%""> </td>"		  TEMPLATE = TEMPLATE & "<td width=""92%"">"'Faremos agora o looping DO WHILE NOT Noticias.EOF		  TEMPLATE = TEMPLATE & "<table width=""90%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"		  TEMPLATE = TEMPLATE & "<tr>"		  TEMPLATE = TEMPLATE & "	 <td width=""90%"" valign=""top""><table width=""103%"" border=""0"" cellspacing=""2"" cellpadding=""2"">"		  TEMPLATE = TEMPLATE & "							<tr>"		  TEMPLATE = TEMPLATE & "							  <td height=""22"" valign=""top""><span class=""TEXTO-TITULO-10p""><strong>"& NoticiaData &"</strong> </span></td>"		  TEMPLATE = TEMPLATE & "							</tr>"		  TEMPLATE = TEMPLATE & "							<tr>"		  TEMPLATE = TEMPLATE & "							  <td><span class=""NOTLINK""><a href=""http://www.teste.com.br/noticias_detalhes.asp?codnoticia="& NoticiaID &""" target=""_blank"">"& NoticiaDescricao &"</a></span><span class=""LINK3""><a href=""http://www.teste.com.br/noticias_detalhes.asp?codnoticia="& NoticiaID &""" target=""_blank""><br>"		  TEMPLATE = TEMPLATE & "					</a></span></td>"		  TEMPLATE = TEMPLATE & "				 </tr>"		  TEMPLATE = TEMPLATE & "	   </table></td>"		  TEMPLATE = TEMPLATE & "   </tr>"		  TEMPLATE = TEMPLATE & "</table>"Noticias.MoveNext		 Loop		  TEMPLATE = TEMPLATE & "</td></tr>"		  TEMPLATE = TEMPLATE & "</table></td>"		  TEMPLATE = TEMPLATE & "<td width=""344""><img src="""& campo_PASTA &"imagem_newsletter_natal1_-_A7.jpg"" width=""344"" height=""180"" border=""0"" usemap=""#Produto1""></td>"		  TEMPLATE = TEMPLATE & "</tr>"		  TEMPLATE = TEMPLATE & "</table></td>"		  TEMPLATE = TEMPLATE & "	  </tr>"		  TEMPLATE = TEMPLATE & "	  <tr>"		  TEMPLATE = TEMPLATE & "		<td><table align=""left"" bgcolor=""#ffffff"" border=""0"" cellpadding=""0"" cellspacing=""0"" width=""806"">"		  TEMPLATE = TEMPLATE & "			<tr>"		  TEMPLATE = TEMPLATE & "			  <td valign=""top""><img src="""& campo_PASTA &"imagem_newsletter_natal1_-_A11.jpg"" width=""462"" height=""144"" border=""0"" alt="""" /></td>"		  TEMPLATE = TEMPLATE & "			  <td valign=""top""><img src="""& campo_PASTA &"imagem_newsletter_natal1_-_A9.jpg"" alt="""" width=""344"" height=""144"" border=""0"" usemap=""#MAPA"" /></td>"		  TEMPLATE = TEMPLATE & "			</tr>"		  TEMPLATE = TEMPLATE & "		</table></td>"		  TEMPLATE = TEMPLATE & "	  </tr>"		  TEMPLATE = TEMPLATE & "	  <tr>"		  TEMPLATE = TEMPLATE & "		<td valign=""top""><img src="""& campo_PASTA &"imagem_newsletter_natal1_-_A10.jpg"" width=""806"" height=""72"" border=""0"" alt="""" /></td>"		  TEMPLATE = TEMPLATE & "	  </tr>"		  TEMPLATE = TEMPLATE & "	</table></td>"		  TEMPLATE = TEMPLATE & "  </tr>"		  TEMPLATE = TEMPLATE & "  <tr> "		  TEMPLATE = TEMPLATE & "	<td colspan=""2""><div align=""center"">"		  TEMPLATE = TEMPLATE & "	  <table width=""700"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""2"">"		  TEMPLATE = TEMPLATE & "		<tr>"		  TEMPLATE = TEMPLATE & "		  <td><div align=""center""><span class=""Final"">Você está recebendo este email por estar cadastrado em nossa newsletter para receber novidades.<br>"		  TEMPLATE = TEMPLATE & "			Caso não queira mais receber emails como este, clique <a href=""http://www.teste.com.br/admanager/remove_email.asp?email="& campo_MAIL &""" target=""_blank"" class=""TEXTO-DICAS1"">aqui</a></span> </div></td>"		  TEMPLATE = TEMPLATE & "		</tr>"		  TEMPLATE = TEMPLATE & "	  </table>"		  TEMPLATE = TEMPLATE & "	  </div></td>"		  TEMPLATE = TEMPLATE & "  </tr>"		  TEMPLATE = TEMPLATE & "</table>"		  TEMPLATE = TEMPLATE & "<map name=""MAPA"">"		  TEMPLATE = TEMPLATE & "<area shape=""rect"" coords=""84,61,134,106"" href=""http://www.teste.com.br/produtos.asp"" target=""_blank"" alt=""Conheça nossos Planos"">"		  TEMPLATE = TEMPLATE & "</map>"		  TEMPLATE = TEMPLATE & "<map name=""Produto1"">"		  TEMPLATE = TEMPLATE & "<area shape=""rect"" coords=""5,94,83,169"" href=""http://www.teste.com.br/produtos_detalhes.asp?identificacao=3"" target=""_blank"" alt=""Planos Ortodônticos"">"		  TEMPLATE = TEMPLATE & "<area shape=""rect"" coords=""6,11,84,86"" href=""http://www.teste.com.br/produtos_detalhes.asp?identificacao=1"" target=""_blank"" alt=""Planos Individuais e Familiares"">"		  TEMPLATE = TEMPLATE & "</map>"		  TEMPLATE = TEMPLATE & "<map name=""SITE""><area shape=""rect"" coords=""554,51,725,164"" href=""http://www.teste.com.br"" target=""_blank"" alt=""Visite nosso Site"">"		  TEMPLATE = TEMPLATE & "</map>"	TEMPLATE = TEMPLATE & "</BODY>"		  TEMPLATE = TEMPLATE & "</HTML>"END IF   IF campo_MODELO = "2" THEN   		  TEMPLATE = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"		  TEMPLATE = TEMPLATE & "<html>"		  TEMPLATE = TEMPLATE & "<head>"		  TEMPLATE = TEMPLATE & "<title>teste</title>"		  TEMPLATE = TEMPLATE & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"">"		  TEMPLATE = TEMPLATE & "</HEAD>"		  TEMPLATE = TEMPLATE & "<BODY>"		  TEMPLATE = TEMPLATE & "TESTE TESTE TESTE TESTE TESTE TESTE TESTE"	TEMPLATE = TEMPLATE & "</BODY>"		  TEMPLATE = TEMPLATE & "</HTML>"END IF	   response.write TEMPLATE  response.end  'ENVIAREMOS A MENSAGEM PARA O EMAIL DO REGISTRO ATUAL SET ObjMail = Server.CreateObject("CDONTS.NewMail")'INFORMAREMOS O EMAIL ATUAL A SER ENVIADO	 ObjMail.TO = campo_MAIL'INFORMAREMOS O EMAIL DO REMETENTE, O TÍTULO DO EMAIL E OUTRAS INFORMAÇÕES DE CONFIGURAÇÕES DO OBJETO DE CDONTS	 ObjMail.FROM = "TESTE  <teste@estudo.com.br>"	 ObjMail.SUBJECT = "Newsletter Informativo [ " & campo_DATA & " ]"	 ObjMail.Importance = 2	 ObjMail.BodyFormat = 0	 ObjMail.MailFormat = 0'INFORMAREMOS O TEXTO DA MENSAGEM  ObjMail.Body = TEMPLATE'ENVIAMOS O EMAIL	 ObjMail.Send'ELIMINAREMOS APÓS O ENVIO DA MENSAGEM A VARIAVEL DA MEMÓRIA SET ObjMail = NOTHING'IREMOS AGORA PARA O PRÓXIMO REGISTRO DA PÁGINA, OU SEJA; PARA O PRÓXIMO EMAIL DO BANCO DE DADOS	ObjRS.MoveNext%><HTML><HEAD><TITLE>teste</TITLE></HEAD><BODY><table width="50%" height="67" border="0" align="center" cellpadding="2" cellspacing="2" bgcolor="#D8EBFA" class="BOTAOFORM">  <tr>	<td height="45" bgcolor="#333333" class="TEXTO-TITULO-10p"><div align="center" class="FonteADM1">Aguarde o envio da newsletter...</div></td>  </tr></table><script LANGUAGE="JavaScript">function atualiza(){		 document.location.href = "<%=REQUEST.ServerVariables("SCRIPT_NAME")%>?pagina_atual=<%=pagina_atual+1%>"		 }		 setTimeout("atualiza()",5000);</SCRIPT></BODY></HTML>

Não está me colocando as 03 dicas como deveria ser através do SELECT com TOP 3 que fiz, pois ele até me mostra na tela a VARIAVEL TEMPLATE montada quando uso um response.write TEMPLATE, mas só que ao invés de me trazer as DICAS de ID 1 2 e 3 do banco, ele simplesmente me coloca as 3 DICAS em colunas, só que só mostra as ID 1, até repetir 3x a 1 ID...

 

O engraçado é que testei só em código HTML o mesmo código acima sem colocar o HTML na variavel, ou seja; só o html puro, aí ele me faz tudo certinho e funciona como eu quero...

 

Mas como preciso usar assim para enviar neste meu exercicio de aula que tenho entregar no curso de ASP que estou fazendo, preciso resolver isso até amanhâ...

 

 

 

Alguém sabe como fazer para ele pegar as 3 ID ( 1,2,3) e não só a repetindo a mesma ID 1 3x ?????

 

 

 

 

 

 

 

OBRIGADO!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Noodle    0

Noodle
Postado

Kra, sao quase 4h. da manhã e estou com uma #@?$%~ preguiça de ver o código inteiro.. ehehe.. só li a sua pergunta...

 

Para você mostrar os dados, você provavelmente não está dando um Next no registro para mostrar o próximo regostro da base... fica assim:

 

while not rs.eof  response.write templaters.movenextwend

Onde rs é o nome do recordset.. será que é esse o seu problema?

Compartilhar este post

Link para o post
Compartilhar em outros sites

marcelocardoso    6

marcelocardoso
Postado

Amigos!

 

 

O ERRO deve ser aqui, pois é aonde que faz a parte das DICAS?

Pois tudo funciona direitinho, quando não uso o HTML na variavel TEMPLATE....

 

Acredito que esteja aqui, pois é a parte que faz a paginação das 3 dicas que quero:

WHILE NOT Dicas.EOF		  TEMPLATE = TEMPLATE & "<td width=""643"" height=""100%""><table width=""100%"" border=""0"" cellpadding=""1"" cellspacing=""0"">"		  TEMPLATE = TEMPLATE & "							<tr>"		  TEMPLATE = TEMPLATE & "							  <td width=""27%"" height=""30"" valign=""top""><font face=""Arial"" size=""1""> </font><font face=""Arial"" size=""1""><a href=""http://www.teste.com.br/dicas_detalhes.asp?coddicas="& DicasID &""" target=""_blank""><img src=""http://www.teste.com.br/"& DicasImagem &""" alt="""& DicasTitulo &""" width=""52"" height=""52"" border=""0"" align=""absmiddle""></a></font> </td>"		  TEMPLATE = TEMPLATE & "			<td width=""73%"" valign=""top""><a href=""http://www.teste.com.br/dicas_detalhes.asp?coddicas="& DicasID &""" target=""_blank"">"& DicasDescricao &"</a></td>"		  TEMPLATE = TEMPLATE & "		 </tr>"		  TEMPLATE = TEMPLATE & "</table></td>"   Colunas = 1  IF Contador = Colunas - 1 Then		  TEMPLATE = TEMPLATE & "</tr>"Contador = 0	ElseContador = Contador + 1End IF	   Dicas.MoveNext			 Wend	IF Contador = 1 ThenElseIF Contador = 1 ThenEnd IF

Mas o nosso amigo disse que não estou dando NEXT... agora é que eu não sei....

Me ajudem colegas?????

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