Ir para conteúdo

POWERED BY:

Arquivado

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

Luan Rodrigues

Variável Asp em CSS

Por , em ASP Clássico

Recommended Posts

Luan Rodrigues    0

Luan Rodrigues
Postado

Situação: Preciso desenvolver uma aplicação que exiba tabelas consecutivas com todos os produtos de uma busca (o background da tabela deve variar entre cinza, branco, cinza, branco...).

Dados:

1) Cada tabela é 1 PRODUTO;

2) Cada produto é MONTADO a partir de VÁRIOS (N) registros no banco de dados (access);

3) A tabela é exibida no meio de um LOOP while (Acredito que isso impeça fechar (%>) o asp e abrí-lo novamente).

 

Solução atual (que não funciona):

 

Aqui verifico se o próximo registro é OUTRO produto, pois caso seja, devemos exibir esse produto e começar a montar o próximo.

rsRegistros.MoveNext
		if not rsRegistros.eof then
			 P_CodVP = rsRegistros.Fields("PT_CODE")
			 If P_CodVP <> P_CodVP_Anterior then 
				   If tabela = "tabela_par" then tabela = "tabela_impar" else tabela = "tabela_par"
				   call Exibe_Tabela(tabela, P_CodVP_Anterior, P_Peca, P_Mont, P_Desc, P_Apli, P_Comb, P_Bomb, P_Afer)
			 end if
		 end if
		 wend

Aqui exibo o produto pela função chamada

Function Exibe_Tabela(tabela, T_CodVP, T_Peca, T_Mont, T_Desc, T_Apli, T_Comb, T_Bomb, T_Afer)
			<table width="681" border="0" class= [b]response.Write(tabela)[/b] >
			  <tr>
				<td width="150" class="texto_cod_produto">response.Write T_CodVP <br>response.Write"<img src='imagens/produtos/VP_" & T_CodVP & ".jpg'"</td>
				<td width="417">
				<p class="texto_desc_produto">Peça: response.Write T_Peca </p>
				<p class="texto_desc_produto">Montadora: response.Write T_Mont </p>
				<p class="texto_desc_produto">Descrição: response.Write T_Desc </p>
				<p class="texto_desc_produto">Aplicações: response.Write T_Apli </p>
				<p class="texto_desc2_produto"> response.Write T_Comb </p>
				<p class="texto_desc2_produto"> response.Write T_Bomb </p>
				<p class="texto_desc2_produto"> response.Write T_Afer </p>
				</td>
				<td width="100" class="texto_center"><p> response.Write T_CodOr </p> </td>
			  </tr>
			</table>
End Function

Erro: Linha do table (2ª linha da função), no response.write

Problema: Não posso no meio da TAG table inserir uma variável asp.

OBS: Outro erro que estou obtendo é INSTRUÇÃO ESPERADA no meio da função que chamo, mas acredito que seja originada antes de chamá-la. Tem algum problema colocar linhas entre o MoveNext e o Wend?

 

 

Preciso de ajuda, estou fazendo esse projeto sozinho, e integra Flash na busca também, grava a busca se ele não obter resultados, entre diversas outras ferramentas. É meu maior projeto até hoje e estou fazendo sozinho. Já estou ficando confuso de tanta coisa. Eu poderia ter resumido tudo, mas preferi especificar pois acho que exista uma boa alma que me dará não só uma solução específica mas auxiliará no geral também.

 

Conto com vocês imasters ;)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Cara era isso que você estava tentando fazer?

 

<%

Function Exibe_Tabela(tabela, T_CodVP, T_Peca, T_Mont, T_Desc, T_Apli, T_Comb, T_Bomb, T_Afer)

tabela("<table width=""681"" border=""0"" class=""" & tabela & """>

tabela = "<tr>"

tabela = "<td width=""150"" class=""texto_cod_produto"">" & T_CodVP & "<br><img src=""imagens/produtos/VP_" & T_CodVP & ".jpg""</td>"

tabela = "<td width=""417"">"

tabela = "<p class=""texto_desc_produto"">Peça: " & T_Peca & "</p>"

tabela = "<p class=""texto_desc_produto"">Montadora: " & T_Mont & "</p>"

tabela = "<p class=""texto_desc_produto"">Descrição: " & T_Desc & "</p>"

tabela = "<p class=""texto_desc_produto"">Aplicações: " & T_Apli & "</p>"

tabela = "<p class=""texto_desc2_produto"">" & T_Comb & "</p>"

tabela = "<p class=""texto_desc2_produto"">" & T_Bomb & "</p>"

tabela = "<p class=""texto_desc2_produto"">" & T_Afer & "</p>"

tabela = "</td>"

tabela = "<td width=""100"" class=""texto_center""><p> " & T_CodOr & " </p></td>"

tabela = "</tr>"

tabela = "</table>"

Response.Write tabela

End Function

%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Luan Rodrigues    0

Luan Rodrigues
Postado

Cara era isso que você estava tentando fazer?

 

<%

Function Exibe_Tabela(tabela, T_CodVP, T_Peca, T_Mont, T_Desc, T_Apli, T_Comb, T_Bomb, T_Afer)

tabela("<table width=""681"" border=""0"" class=""" & tabela & """>

tabela = "<tr>"

tabela = "<td width=""150"" class=""texto_cod_produto"">" & T_CodVP & "<br><img src=""imagens/produtos/VP_" & T_CodVP & ".jpg""</td>"

tabela = "<td width=""417"">"

tabela = "<p class=""texto_desc_produto"">Peça: " & T_Peca & "</p>"

tabela = "<p class=""texto_desc_produto"">Montadora: " & T_Mont & "</p>"

tabela = "<p class=""texto_desc_produto"">Descrição: " & T_Desc & "</p>"

tabela = "<p class=""texto_desc_produto"">Aplicações: " & T_Apli & "</p>"

tabela = "<p class=""texto_desc2_produto"">" & T_Comb & "</p>"

tabela = "<p class=""texto_desc2_produto"">" & T_Bomb & "</p>"

tabela = "<p class=""texto_desc2_produto"">" & T_Afer & "</p>"

tabela = "</td>"

tabela = "<td width=""100"" class=""texto_center""><p> " & T_CodOr & " </p></td>"

tabela = "</tr>"

tabela = "</table>"

Response.Write tabela

End Function

%>

Nossa... que simples, entendi o jeito, mas duas coisas:

Eu não tenho que a cada linha colocar um tabela = tabela & ...?

E continuo com o problema da Instrução esperada...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Sim por que depois repare, eu uso

 

Response.Write tabela

Desta forma ele une todas as "tabela" em um response.write se deixar sem não vai mostrar.

 

Nossa... que simples

Simples? pow tive trabalho para fazer isso tudo.

 

Em relação a Instrução esperada eu não entendi... reformule esta parte, ajuda ae...

 

Seria isso...

 

<%
rsRegistros.MoveNext

if not rsRegistros.eof then
   P_CodVP = rsRegistros.Fields("PT_CODE")
	   If P_CodVP <> P_CodVP_Anterior then
		   If tabela = "tabela_par" then
			  tabela = "tabela_impar"
		   else
			  tabela = "tabela_par"
			  call Exibe_Tabela(tabela, P_CodVP_Anterior, P_Peca, P_Mont, P_Desc, P_Apli, P_Comb, P_Bomb, P_Afer)
		   end if
	   end if
End If

wend
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Luan Rodrigues    0

Luan Rodrigues
Postado

Sim por que depois repare, eu uso

 

Response.Write tabela

Desta forma ele une todas as "tabela" se deixar sem a função não vai mostrar.

 

Nossa... que simples

Simples? pow tive trabalho para fazer isso tudo.

 

Em relação a Instrução esperada eu não entendi... reformule esta parte, ajuda ae...

 

Quanto ao simples, desculpa, quis dizer que a idéia é simples, mas oras, eu não pensei nela!! kkkk

 

Olha acho melhor eu colocar o código completo... agora apareceu outro erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xd78 Thread 0x454 DBC 0x101bfec Jet' do Registro.

/vp/produtos.asp, line 39

conexao.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & caminho & "; UID=Administrador; PWD=brau")

 

TAVA FUNCIONANDO A CONEXÃO!!! Deve ser no ISS, como resolvo?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Luan você não declarou na função Exibe_Tabela o T_CodOr

 

Repare

 

Function Exibe_Tabela(cor, T_CodVP, T_Peca, T_Mont, T_Desc, T_Apli, T_Comb, T_Bomb, T_Afer)

Não esta declarado, você esqueceu, coloque ae e teste.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Luan Rodrigues    0

Luan Rodrigues
Postado

Luan você não declarou na função Exibe_Tabela o T_CodOr

 

Repare

 

Function Exibe_Tabela(cor, T_CodVP, T_Peca, T_Mont, T_Desc, T_Apli, T_Comb, T_Bomb, T_Afer)

Não esta declarado, você esqueceu, coloque ae e teste.

É verdade...

ficou:

Function Exibe_Tabela(cor, T_CodVP, T_CodOr, T_Peca, T_Mont, T_Desc, T_Apli, T_Comb, T_Bomb, T_Afer)

e

call Exibe_Tabela(cor, P_CodVP_Anterior, P_CodOr, P_Peca, P_Mont, P_Desc, P_Apli, P_Comb, P_Bomb, P_Afer)

 

Mas continua (estranhamente) dando o erro na conexão...

 

Patrique, Você está salvando minha pele, meu prazo de entrega estourou na sexta passada, estou desesperado!

Muito obrigado pela ajuda!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Cara muito estranho isso, pow tava tudo funciondo, como é que pode, você modificou alguma coisa referente ao BD, veja se as tabelas estão corretas, verifique os caminhos, note que você tem uma senha para entrar no BD, realmente tem ela, se tiver verifique se esta certa.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

você esta testando ele no localhost !??!?

verifique se deixou o Access, aberto com a tabela, e verifique no forum , que existe um

Guia De Solução De Problemas Para Erros 80004005

pode te ajudar

Compartilhar este post

Link para o post
Compartilhar em outros sites

Luan Rodrigues    0

Luan Rodrigues
Postado

você esta testando ele no localhost !??!?

verifique se deixou o Access, aberto com a tabela, e verifique no forum , que existe um

Guia De Solução De Problemas Para Erros 80004005

pode te ajudar

Isso, coloquei no ftp e funcionou.

O problema tá no ISS, mas eu configurei certo, tá habilitado gravação, leitura, etc...

As páginas ASP estão rodando normal sem banco de dados, mas dá esse erro quando conecta em um BD.

Já vi isso em alguns lugares, mas tudo de resposta que achei foi que inexplicavelmente, depois de fuçar... funcionou =S

Aqui não funciona, estou tendo que colocar no ftp toda hora pra testar a página.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dê permissoes, direto no arquivo e pasta, tb...

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