Pessoal to com um problemão, não consigo popular colunas que criei em meu código asp. Vou descrever o cenário;
A query faz a consulta inclusive trazendo os valores referentes ao campo.
A página asp chama uma outra página onde é implementada a query.
As colunas que inseri sáo N, Cep, DDD.
Segue código que monta as colunas do registro:
<!-- #include file="includes.asp" -->
<!-- #include file="regraAplicar.asp" -->
<%
'Controla acesso a página
call CtrlAcesso("")
'Abre conexão no banco
call AbrirConexao()
dim sSql, rs
dim sCor, sOrdena
dim sRegra
sOrdena = request("sOrder")
sRegra = trim(request("sRegra"))
if sOrdena = "" then sOrdena = "1"
%>
<html>
<head>
<title>Consulta Entidade</title>
<link href="css/padrao.css" rel="stylesheet" type="text/css">
<link href="css/padraoDados.css" rel="stylesheet" type="text/css">
<link href="css/padraoListagem.css" rel="stylesheet" type="text/css">
<link href="css/padraoFormulario.css" rel="stylesheet" type="text/css">
<script src="includes/funcoes.js" type="text/javascript"></script>
<script src="includes/ajax.js" type="text/javascript"></script>
<% if not Session("vss_invisivel") then %><script src="includes/seguranca.js" type="text/javascript"></script><%end if%>
<script language="JavaScript">
function ordena(ordem){
location.replace("relLojaBoticario.asp?sRegra=<%= sRegra %>&sOrder="+ordem+"&A042_titulo=<%=request("A042_titulo")%>");
}
function Foco() {
document.form1.sRegra.value = '<%= sRegra %>';
if('<%= sRegra %>' != '') buscarInfoAjax(document.form1.sRegra, 'strRegraInfo', 'formatarRegra()')
}
function buscaRegra(campo) {
if(campo.value != '<%= sRegra %>' && '' != '<%= sRegra %>') {
$id("divRes").style.display = 'none';
$id("divExcel").style.display = 'none';
}
else if('' != '<%= sRegra %>') {
$id("divRes").style.display = '';
$id("divExcel").style.display = '';
}
if(campo.value == '') {
$id('strRegraInfo').innerHTML = 'Selecione uma regra!'
return;
}
buscarInfoAjax(campo, 'strRegraInfo', 'formatarRegra()')
}
function formatarRegra() {
var sCamposFiltro = Array("Nome;A010_nom_ent;A", "Apelido;A010_apelido;A", "Classificação;A010_status;N","CGC/CPF;A010_cgc_cpf;A", "Palavra-Chave;A010_palavra_chave;A", "Profissão;A010_profissao;A", "Cargo;A010_cargo;A",
"Ramo de Atividade;A010_ramo_ativ;A", "Indicação;A010_indicacao;A", "Observação;A010_obs;A", "Telefone;A018_num_tel;A", "Canal;A020_dsc_canal;A", "Cidade;A004_nom_cidade;A", "Estado;A003_nom_estado;A", "Bairro;A009_bairro;A", "CEP;A009_cep;A",
"Logradouro;A009_endereco;A", "Complemento;A009_complemento;A")
for(var i = 0; i < len(sCamposFiltro); i++) {
var tmp = sCamposFiltro[i].split(";");
$id('strRegraInfo').innerHTML = ReplaceAll($id('strRegraInfo').innerHTML, tmp[1], tmp[0]);
}
}
function paraExcel() {
/**
if(!eval($id("tbResultado"))) {
alert("Sem dados para exportar! Faça um filtro primeiro!");
return;
}
var conteudo = document.form1.sRegra.options[document.form1.sRegra.selectedIndex].text + "<br/>";
conteudo+= $id("regraInfo").innerHTML;
conteudo+= $id("divRes").innerHTML;
conteudo = ReplaceAll(conteudo, '<img src="images/downp.gif" align="absmiddle">', '');
conteudo = ReplaceAll(conteudo, '<img src="images/down.gif" align="absmiddle">', '');
conteudo = ReplaceAll(conteudo, '<img src="images/upp.gif" align="absmiddle">', '');
conteudo = ReplaceAll(conteudo, '<img src="images/up.gif" align="absmiddle">', '');
excelRelatorio('<%=request("A042_titulo")%>',conteudo);
**/
var excel=window.open("","excel","height="+ (screen.height-400) +",width="+ (screen.width-100) +",left=50,top=150,resizable=yes,statusbar=no,menubar=yes,scrollbars=yes");
form1.action = "relLojaBoticarioExcel.asp"
form1.target = "excel";
form1.submit();
form1.action = "relLojaBoticario.asp";
form1.target = "";
}
</script>
</head>
<body onLoad="Foco()">
<form action="relLojaBoticario.asp?A042_titulo=<%=request("A042_titulo")%>" method="post" id="form1" name="form1">
<input type="hidden" value="" name="HTML_areaCabecalho">
<div id='excel'>
<table>
<tr>
<td width="150px">
<span class="form_texto">Regra<br></span>
<select name="sRegra" style="width: 150px;" onChange="buscaRegra(this)" class="form_campo"><% call sfOptionRegra() %></select>
</td>
<td align="left" valign="middle" style="padding-top: 15px; margin-left: 5px" rowspan="1">
<a href="#"><img onClick="document.form1.submit();" src="images/btn_pesquisar.gif" border="0"></a>
</td>
</tr>
<tr id='regraInfo'>
<td colspan="2" width="400px">
<fieldset id='strRegraInfo' class="listagem">
Selecione uma regra!
</fieldset>
</td>
</tr>
</table>
<% if sRegra <> "" then %>
<div id=divRes>
<table style="border-bottom: 0px; border-left: 0px;" width="99%" cellpadding="0" cellspacing="0" class="listagem" id="tbResultado">
<tr>
<%
dim sAlign, sCabecalho, sOrder, sWidth, i
sAlign = Array("left", "left","left", "left", "left","center", "left","left","left", "left","left","left")'Aumento de 3 lefts
sCabecalho = Array("BPCS", "Nome","Cidade", "Estado","Logradouro","N","Cep","DDD","Telefone", " Canal de Comunicação","CNPJ","Inscrição Estadual")
'sOrder = Array("1","2","3","4", "5","6", "7","8","9")
'sWidth = Array("","","","", "", "", "","", "")
sOrder = Array("1","2","3","4", "5","6", "7","8","9","12","10","11")
sWidth = Array("","","","","","","","","","","","")
for i=0 to ubound(sCabecalho)%>
<th width="<%=sWidth(i)%>" align="<%=sAlign(i)%>" <%if i = 0 then%> style="border-left: 1px solid silver"<% end if %>>
<strong><%=sCabecalho(i)%></strong>
</th>
<%Next%>
</tr>
<%
' O método que gera a consulta foi transferido para o arquivo "regraAplicar.asp" para poder ser compartilhado com outras páginas
' Ele irá retornar vetores contendo dados da consulta da regra especificada em sRegra
On error resume next
call aplicarRegra()
if err <> 0 then
call trataErro
response.End
end if
dim sClsTR
dim cont
i = 0
cont = 0
Do while i < ubound(cd_cliente)
cont = cont + 1
if sClsTR = "ls" then sClsTR = "ln" else sClsTR = "ls" end if
Dim link
link = "entidadeMan.asp?sAcao=U&nA010_cod_entidade=" & cd_cliente(i) & "&A042_titulo=" & request("A042_titulo")
%>
<tr style="cursor: pointer;" class="<%=sClsTR%>" onClick="location.href = '<%= link %>'">
<td style=" border-left: 1px solid silver; " class="form_textoCon" align="left"> <%= bpcs(i) %></td>
<td class="form_textoCon" align="left"><%= nm_cliente(i) %></td>
<td class="form_textoCon" align="left"><%= cidade(i) %></td>
<td class="form_textoCon" align="left"><%= estado(i) %></td>
<td class="form_textoCon" align="left"><%= logradouro(i) %></td>
<td class="form_textoCon" align="left"> <%= N(i) %></td>
<td class="form_textoCon" align="left"> <%= Cep(i) %></td>
<td class="form_textoCon" align="left"> <%= DDD(i) %></td>
<td class="form_textoCon" align="center"><%= telefone(i) %></td>
<td class="form_textoCon" align="left"> <%= canal(i) %></td>
<td class="form_textoCon" align="left"> <%= cnpj(i) %></td>
<td class="form_textoCon" align="left"> <%= insc_estadual(i) %></td>
</tr>
<%
%>
<% i = i + 1
Loop %>
<tr>
<td style="border: 0px; border-top: 1px solid silver; " colspan="5" align="right"><b>Total de registros: <%= cont %></b></td>
</tr>
</table>
<table bgcolor="#ffffff" border="0" cellspacing="0" cellpadding="0" width="100%">
</table>
</div>
<%
end if %>
</div>
<% if cont <> 0 then %>
<p id="divExcel" align="right">
<a href="javascript: paraExcel()" title="Exportar para Excel"><img src="images/bt_excel.gif" border="0"></a>
</p>
<% end if %>
</form>
</body>
</html>
<%
'Fecha conexão no banco
call FecharConexao()
%>
SE ALGUÉM PUDER ME AJUDAR PQ NÃO FAÇO IDÉIA OQUE ESTA ACONTECENDO!
