Ir para conteúdo

POWERED BY:

Arquivado

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

luizgodneo

Problemas ASP

Por , em ASP Clássico

Recommended Posts

luizgodneo    0

luizgodneo
Postado

Olá pessoal....

 

Eu não tenho nenhuma noção de ASP....

 

Estou tendo problemas para deixar um site funcionando...

Ele estava hospedado em um servidor e trasferi para outro só que agora o site não funciona como antes.

 

Ao abrir a página de pesquisa... aparece o seguinte erro:

 

Server object error 'ASP 0177 : 800401f3'

 

Server.CreateObject Failed

 

/inc/db.inc, line 11

 

800401f3

 

o código é este:

<%
        Dim adb, sepTextoMarcacao

        sepTextoMarcacao = "@#!@"

       'on Error Resume Next

       '900 segundos = 15 minutos
       Server.ScriptTimeOut = 900

       Set adb = Server.CreateObject("Acceleratedb.Connection")
       adb.Conf.DefaultConnectionString = "Database/Legislacao.mdb"
       adb.Conf.TempDirectory = "Temp"
       adb.Conf.HitFormat "<font color=red><b><I>«","» </b></i></font>"
       adb.Form.Capture



%>

 

 

Peço ajuda para solucionar o problema

 

Obrigado!!!

Compartilhar este post

Link para o post
Compartilhar em outros sites

retrolink    0

retrolink
Postado

Ele não esta encontrando o componente para conexão com o bd...

 

Set adb = Server.CreateObject("Acceleratedb.Connection")

 

Você terá que instalar no servidor o componente que você utiliza para conexão com o BD, como ele não esta encontrando, resulta nesse erro.

Compartilhar este post

Link para o post
Compartilhar em outros sites

retrolink    0

retrolink
Postado

Velho, eu sei que é um componente pelo server object mais pra te falar a verdade nunca vi uma conexão a um bd access ser feito desta forma, mas tenho certeza que se trata de um componente, porém o desconheço.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

este erro de de não ter o componente instalado, qual é seu servidor ?

e tem um code, que lista todos os componentes instalados no server, pegue-o no lab. de script e execute-o para ver quais tem instalado e entre em contato com o suporte do host

Compartilhar este post

Link para o post
Compartilhar em outros sites

retrolink    0

retrolink
Postado

certamente ele é um componente próprio, por isso não ira encontrar em outros servers, digo isso pois até pra achar referencias pelo nome não se acha, isso prova que ele é um componente proprio.

 

A solução é você mudar a forma da chamativa do bd, essa aqui é uma das mais utilizadas...

 

http://www.w3schools.com/ado/ado_connect.asp

Compartilhar este post

Link para o post
Compartilhar em outros sites

luizgodneo    0

luizgodneo
Postado

depois da sua dica...

mudei o código para isso

 

<%
        Dim adb, sepTextoMarcacao

        sepTextoMarcacao = "@#!@"

       'on Error Resume Next

       '900 segundos = 15 minutos
       Server.ScriptTimeOut = 900

       set adb = Server.CreateObject("ADODB.Connection")
	adb.Provider="Microsoft.Jet.OLEDB.4.0"
       adb.Open "c:\home\visbrasil\databases\Legislacao.mdb"
	adb.Conf.TempDirectory = "Temp"
       adb.Conf.HitFormat "<font color=red><b><I>«","» </b></i></font>"
       adb.Form.Capture


%>

 

e agora aparece a seguinte erro:

 

ADODB.Connection error '800a0bb9'

 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

 

/inc/db.inc, line 14

Compartilhar este post

Link para o post
Compartilhar em outros sites

luizgodneo    0

luizgodneo
Postado

Cara esse site foi criando há muito tempo atrás...

tá ai código:

 

<%Option Explicit%>
<!-- #include file="inc/expires.inc" -->
<!-- #include file="inc/db.inc" -->


<HTML><HEAD>
<link rel="STYLESHEET" href="css/vis.css" type="text/css">
<link rel="STYLESHEET" href="css/style.css" type="text/css">
<script Language="JavaScript" SRC="js/util.js"></Script>

<script Language="JavaScript">


var ComAcento = "ÃÄÁÀÂÉÊÍÓÔÕÙÜÇÑ";
var SemAcento = "AAAAAEEIOOOUUCN";


function StringSemAcento(text)
{
 text = text.toUpperCase();
 for (var x = 0; x < ComAcento.length; x++)
     text = text.replace(ComAcento.charAt(x),SemAcento.charAt(x));
 return text;
}


function MakeListSemAcento(value, text)
{
       this.textSemAcento = StringSemAcento(text);
}



</Script>


<script Language="JavaScript">

var fieldsText = ["DS_CONTEUDO","NU_NORMA"];


function CopyCombo(cbSource, cbTarget)
{
        // Zera target
        for (var x = 0; x < cbTarget.options.length; x++)
            cbTarget.options[x] = null;

        for (x = 0; x < cbSource.options.length; x++)
            cbTarget.options[x] = new Option(cbSource.options[x].text, cbSource.options[x].value);

        cbTarget.selectedIndex = 0;
        //cbTarget.focus();
        return true;
}

function GetFieldText(noField, obj)
{
        with (document.forms[0])
        {
         var op = "";
         var r = eval("radio" + noField);
         if (r[0].checked)
            op = r[0].value
         else if (r[1].checked)
            op = r[1].value
         else
            op = r[2].value;

         eval("_op" + noField).value = op;

         if (obj == null)
            return true;

         var s = eval("select" + noField);
         eval("_field" + noField).value = s.options[s.selectedIndex].value;
         eval("_value" + noField).value = obj.value;

         return true;
        }
}

function GetFieldSelect(noField, obj)
{
        with (document.forms[0])
        {
         var s = eval("select" + noField);
         if (obj.selectedIndex == -1)
         {
           eval("_value" + noField).value = "";
           return true;
         }
         eval("_field" + noField).value = s.options[s.selectedIndex].value;
         eval("_value" + noField).value = obj.options[obj.selectedIndex].value;
         eval("_op" + noField).value = "AND";
         if (_criterios.value != "")
            _criterios.value += " E ";
         _criterios.value += "[ " + s.options[s.selectedIndex].text + ": " + obj.options[obj.selectedIndex].text + " ]";
         return true;
         }
}


function FieldSelected()
{
        with (document.forms[0])
        {
             if (((select1.selectedIndex == select2.selectedIndex) && (select1.selectedIndex != 0))||
                ((select1.selectedIndex == select3.selectedIndex) && (select1.selectedIndex != 0)) ||
                ((select2.selectedIndex == select3.selectedIndex) && (select2.selectedIndex != 0)))
                {
                 alert('Campo já selecionado!!!');
                 return true;
                }
                else
                    return false;
        }
}



function DisplayField(noField, objSelect, clear)
{


        with (document.forms[0])
        {
             var nameSpan = "span" + noField;

             WriteLayer("",nameSpan);

             if (clear)
             {
              eval("_field" + noField).value = "";
              eval("_value" + noField).value = "";
              eval("_op" + noField).value = "";
              eval("_combo" + noField).value = "";
             }


             // Verifica se não é o primeiro elemento do combo
             if (objSelect.selectedIndex == 0)
                return true;

              if (FieldSelected() == true)
              {
                objSelect.selectedIndex = 0;
                objSelect.focus();
                return true;
              }



             var field = objSelect.options[objSelect.selectedIndex].value;
             // Verifica se é um campo do tipo Texto
             for (var x = 0; x < fieldsText.length; x++)
             {
                 if (fieldsText[x] == field)
                 {
                   WriteLayer('<input class="controllayout" name="' + 'field' + noField + '" size="25" onBlur="GetFieldText(' + noField + ',this)">' + '<span title="Todas as palavras."><input type="radio" name="radio' + noField + '" value="and" checked onClick="GetFieldText(' + noField + ',null)">Todas</span><span title="Qualquer uma das palavras."><input type="radio" name="radio' + noField + '" value="or" onClick="GetFieldText(' + noField + ',null)">Qualquer</span><span title="Todas as palavras na mesma sequência e adjacentes uma das outras."><input type="radio" name="radio' + noField + '" value="adj2" onClick="GetFieldText(' + noField + ',null)">Frase</span>', nameSpan);
                   eval('field' + noField).focus();
                   if (clear == false)
                      eval('field' + noField).value = eval("_value" + noField).value;
                   eval("_combo" + noField).value = "";
                   return true;
                 }
             }

             // Como não se trata de campo field, então é um combo
             eval("_combo" + noField).value = noField;
             WriteLayer('<select class="dropdown"  name="' + 'selectfield' + noField + '">', nameSpan);
             CopyCombo(eval(field), eval('selectfield' + noField));


             eval('selectfield' + noField).focus();
             if (clear == false)
                eval('selectfield' + noField).value = eval("_value" + noField).value;



             return true;

        }

}

function Init()
{
        window.returnValue = "";
        with (document.forms[0])
        {
             <% if Err.Description <> "" then
               Dim msg
               msg = Err.Description
               Replace msg,"'",""
               Replace msg,"""",""
             %>
             alert("<%= msg %>");
             <% end if %>

             <% if adb.Form.Value("select1") <> "" then %>
                select1.value = "<%= adb.Form.Value("select1") %>";
                DisplayField(1,select1,false);
             <% end if %>

             <% if adb.Form.Value("select2") <> "" then %>
                select2.value = "<%= adb.Form.Value("select2") %>";
                DisplayField(2,select2,false);
             <% end if %>

             <% if adb.Form.Value("select3") <> "" then %>
             select3.value = "<%= adb.Form.Value("select3") %>";
             DisplayField(3,select3,false);
             <% end if %>





             select1.focus();
             return true;
        }
}


function CapturarCriterioTexto(noField)
{
with (document.forms[0])
{

 if (eval("_value" + noField).value == "")
    return;

 if (_criterios.value != "")
    _criterios.value += " E ";

 _criterios.value += "[ ";

 var op = eval("_op" + noField).value;
 if (op == "and")
    _criterios.value += "Todas as palavras: "
 else if (op == "or")
    _criterios.value += "Qualquer palavra: "
 else
    _criterios.value += "Esta frase: ";

 _criterios.value += eval("_value" + noField).value + " ]";

}
}


function Pesquisar()
{
        with (document.forms[0])
        {

             _criterios.value = "";
             var opcao = "";
             try {
             if (_combo1.value != "")
             {
                opcao = select1.options[select1.selectedIndex].value;
                GetFieldSelect(_combo1.value, eval('selectfield' + _combo1.value))
             }
             else
                CapturarCriterioTexto(1);
             } catch(err) { };

             try {
             if (_combo2.value != "")
             {
                opcao = select2.options[select2.selectedIndex].value;
                GetFieldSelect(_combo2.value, eval('selectfield' + _combo2.value))

             }
             else
                CapturarCriterioTexto(2);
             } catch(err) { };

             try {
             if (_combo3.value != "")
             {
                opcao = select3.options[select3.selectedIndex].value;
                GetFieldSelect(_combo3.value, eval('selectfield' + _combo3.value))
             }
             else
                CapturarCriterioTexto(3);
             } catch(err) { };

             _op.value = "p";
             //action = "Progressbar.asp";
             action = "ResultadoPesqNorma.asp";
             <% if (adb.Form.Value("dlg") = "V") then %>
                target = "";
             <% elseif (adb.Form.Value("dlg") = "E")  then %>
             target="resultado";
             <% else %>
             target="_blank";
             <% end if %>
             submit();
             action = "PesqNorma.asp";
             target="";
             return false;

        }
}


function Limpar()
{
        with (document.forms[0])
        {
             select1.selectedIndex = 0;
             DisplayField(1,select1, true);
             select2.selectedIndex = 0;
             DisplayField(2,select2, true);
             select3.selectedIndex = 0;
             DisplayField(3,select3, true);
             return true;
        }
}

function Ajuda()
{
        with (document.forms[0])
        {
             //action="ComoPesquisar.asp";
             action = "Ajuda.asp";
             <% if adb.Form.Value("dlg") = "E" then %>
             target="resultado";
             <% end if %>
             submit();
             action="PesqNorma.asp";
             target="";
             return true;
        }
}




function WriteLayer(text,id)
{
       if (document.getElementById)
       {
               x = document.getElementById(id);
               x.innerHTML = text;
       }
       else if (document.all)
       {
               x = document.all[id];
               x.innerHTML = text;
       }
       else if (document.layers)
       {
               x = document.layers[id];
               text2 = '<P CLASS="testclass">' + text + '</P>';
               x.document.open();
               x.document.write(text2);
               x.document.close();
       }
}

function getObj(name)
{
 if (document.getElementById)
 {
   return document.getElementById(name).style;
 }
 else if (document.all)
 {
   return document.all[name].style;
 }
 else if (document.layers)
 {
   return document.layers[name];
 }
 else return false;
}

function Fechar()
{
window.returnValue = "";
window.close();
return true;
}


</Script>


<TITLE>Pesquisa Norma</TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
</HEAD>

<BODY text=#000000 bgColor=#ffffff onLoad="Init();HideScrollBar();" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form name="form1" method="post" action="PesqNorma.asp" onSubmit="return false;" target="">
<% if (adb.Form.Value("dlg") = "E") or (adb.Form.Value("dlg") = "V") then %>
<input type="hidden" name="MODO_EXIBICAO" value="R">
<% end if %>
<input type="hidden" name="dlg" value="<%= adb.Form.Value("dlg") %>">
<input type="hidden" name="_pg" value="ResultadoPesqNorma.asp">
<input type="hidden" name="_width" value="300">
<input type="hidden" name="_msg" value="Efetuando pesquisa, aguarde ...">
<input type="hidden" name="_field1" value="<%= adb.Form.Value("_field1") %>">
<input type="hidden" name="_value1" value="<%= adb.Form.Value("_value1") %>">
<input type="hidden" name="_op1" value="<%= adb.Form.Value("_op1") %>">
<input type="hidden" name="_combo1" value="<%= adb.Form.Value("_combo1") %>">
<input type="hidden" name="_field2" value="<%= adb.Form.Value("_field2") %>">
<input type="hidden" name="_value2" value="<%= adb.Form.Value("_value2") %>">
<input type="hidden" name="_op2" value="<%= adb.Form.Value("_op2") %>">
<input type="hidden" name="_combo2" value="<%= adb.Form.Value("_combo2") %>">
<input type="hidden" name="_field3" value="<%= adb.Form.Value("_field3") %>">
<input type="hidden" name="_value3" value="<%= adb.Form.Value("_value3") %>">
<input type="hidden" name="_op3" value="<%= adb.Form.Value("_op3") %>">
<input type="hidden" name="_combo3" value="<%= adb.Form.Value("_combo3") %>">
<input type="hidden" name="_criterios" value="">
<span id="combos" style="position:absolute;height:0;z-index:2;visibility:hidden">
<select  class="dropdown" name="CO_TIPO_NORMA">
<%

   adb.Form.DropDownFromDB "", "SELECT TB_TIPO_NORMA.DS_TIPO_NORMA, TB_TIPO_NORMA.CO_TIPO_NORMA FROM TB_TIPO_NORMA INNER JOIN TB_LEGISLACAO ON TB_TIPO_NORMA.CO_TIPO_NORMA = TB_LEGISLACAO.CO_TIPO_NORMA GROUP BY TB_TIPO_NORMA.DS_TIPO_NORMA, TB_TIPO_NORMA.CO_TIPO_NORMA", "", ""

 %></select>
<select  class="dropdown" name="CO_ORGAO_EMISSOR">
<%

   adb.Form.DropDownFromDB "", "SELECT TB_ORGAO_EMISSOR.NO_ORGAO_EMISSOR, TB_ORGAO_EMISSOR.CO_ORGAO_EMISSOR FROM TB_ORGAO_EMISSOR INNER JOIN TB_LEGISLACAO ON TB_ORGAO_EMISSOR.CO_ORGAO_EMISSOR = TB_LEGISLACAO.CO_ORGAO_EMISSOR GROUP BY TB_ORGAO_EMISSOR.NO_ORGAO_EMISSOR, TB_ORGAO_EMISSOR.CO_ORGAO_EMISSOR", "", ""

 %></select>

<select  class="dropdown" name="CO_AREA_ATUACAO">
<%

   adb.Form.DropDownFromDB "", "SELECT TB_AREA_ATUACAO.DS_AREA_ATUACAO, TB_AREA_ATUACAO.CO_AREA_ATUACAO FROM TB_AREA_ATUACAO INNER JOIN TB_INDEXACAO ON TB_AREA_ATUACAO.CO_AREA_ATUACAO = TB_INDEXACAO.CO_AREA_ATUACAO GROUP BY TB_AREA_ATUACAO.DS_AREA_ATUACAO, TB_AREA_ATUACAO.CO_AREA_ATUACAO", "", ""

 %></select>

<select  class="dropdown" name="CO_SEQ_ASSUNTO">
<%

   adb.Form.DropDownFromDB "","SELECT TB_ASSUNTO.DS_ASSUNTO, TB_ASSUNTO.CO_SEQ_ASSUNTO FROM TB_ASSUNTO INNER JOIN TB_INDEXACAO ON TB_ASSUNTO.CO_SEQ_ASSUNTO = TB_INDEXACAO.CO_SEQ_ASSUNTO GROUP BY TB_ASSUNTO.DS_ASSUNTO, TB_ASSUNTO.CO_SEQ_ASSUNTO", "", ""

 %></select>

<select  class="dropdown" name="CO_SEQ_SUBASSUNTO">
<%

   adb.Form.DropDownFromDB "","SELECT TB_SUBASSUNTO.DS_SUBASSUNTO, TB_SUBASSUNTO.CO_SEQ_SUBASSUNTO FROM TB_SUBASSUNTO INNER JOIN TB_INDEXACAO ON TB_SUBASSUNTO.CO_SEQ_SUBASSUNTO = TB_INDEXACAO.CO_SEQ_SUBASSUNTO GROUP BY TB_SUBASSUNTO.DS_SUBASSUNTO, TB_SUBASSUNTO.CO_SEQ_SUBASSUNTO", "", ""

 %></select>



<select  class="dropdown" name="CO_SEQ_TEMA">
<%

   adb.Form.DropDownFromDB "", "SELECT TB_TEMA.DS_TEMA, TB_TEMA.CO_SEQ_TEMA FROM TB_TEMA INNER JOIN TB_INDEXACAO ON TB_TEMA.CO_SEQ_TEMA = TB_INDEXACAO.CO_SEQ_TEMA GROUP BY TB_TEMA.DS_TEMA, TB_TEMA.CO_SEQ_TEMA", "", ""

 %></select>




</span>
<input type="hidden" name="_op" value="">
<table width="100%" border="0" cellspacing="0" cellpadding="0" vspace="0" hspace="0" align="center">
 <tr align="center">
   <td colspan="5"><img src="image/1x1.gif" width="1" height="10" border="0"></td>
 </tr>
 <tr align="center" >
   <td rowspan="7"><img src="image/1x1.gif" width="10" height="1" border="0"></td>
   <td width="20"><img src="image/inicio_tabela_conteudo.gif" width="20" height="24" border="0"></td>
   <td background="image/meio_tabela_conteudo.gif" align="left" class="especial" width="100%"> Índice de Assuntos </td>
   <td width="20"><img src="image/fim_tabela_conteudo.gif" width="20" height="24" border="0"></td>
   <td rowspan="7"><img src="image/1x1.gif" width="10" height="1" border="0"></td>
 </tr>
 <tr>
   <td colspan="3"><img src="image/1x1.gif" alt="" width="1" height="10" border="0"></td>
 </tr>
 <tr>
   <td colspan="3"><img src="image/cinza_cla.gif" width="100%" height="1" border="0"></td>
 </tr>
 <tr align="center" valign="top">
   <td colspan="3">
     <table  width="100%"  height="100%" cellspacing="0" cellpadding="0" vspace="0" border="0" >
       <tr>
         <td rowspan="3"><img src="image/cinza_claro_1x1.gif" width="2" height="100%" border="0"></td>
         <td rowspan="3"><img src="image/1x1.gif" width="10" height="1" border="0"></td>
         <td><img src="image/1x1.gif" width="1" height="10" border="0"></td>
         <td rowspan="3"><img src="image/1x1.gif" width="10" height="1" border="0"></td>
         <td rowspan="3"><img src="image/cinza_escuro_1x1.gif" width="2" height="100%" border="0"></td>
       </tr>
       <tr>
         <td class="conteudo" width="100%"> <p>Pesquisa Legislação Federal de Vigilância Sanitária de Medicamentos e Correlatos </p>            </td>
       </tr>
       <tr>
         <td><img src="image/1x1.gif" width="1" height="10" border="0">
           <table width="100%" border="0">
             <tr>
               <td>
                 <table width="100%" border="0" cellpadding="2" cellspacing="2" bordercolor="#FFFFFF">
                   <tr valign="bottom">
                     <td><div align="right">Campos de Pesquisa  </div></td>
                     <td>  Critérios de Pesquisa </td>
                   </tr>
                   <tr valign="bottom">
                     <td width="28%">
                       <div align="right">
                         <select  class="dropdown" name="select1" onChange="DisplayField(1,this, true);">
                           <option selected></option>
                           <option value="DS_CONTEUDO">Busca por Palavras</option>
                           <option value="CO_TIPO_NORMA">Tipo de Norma</option>
                           <option value="CO_ORGAO_EMISSOR">Órgão Emissor</option>
                           <option value="NU_NORMA">Número da Norma</option>
                           <option value="CO_AREA_ATUACAO">Área de Atuação</option>
                           <option value="CO_SEQ_ASSUNTO">Assunto</option>
                           <option value="CO_SEQ_SUBASSUNTO">Sub-assunto</option>
                           <option value="CO_SEQ_TEMA">Tema</option>
                         </select>
             : </div></td>
                     <td width="72%"> <span id="span1" style="align:left"></span></td>
                   </tr>
                   <tr valign="bottom">
                     <td width="28%">
                       <div align="right">
                         <select  class="dropdown" name="select2" onChange="DisplayField(2,this, true);">
                           <option selected></option>
                           <option value="DS_CONTEUDO">Busca por Palavras</option>
                           <option value="CO_TIPO_NORMA">Tipo de Norma</option>
                           <option value="CO_ORGAO_EMISSOR">Órgão Emissor</option>
                           <option value="NU_NORMA">Número da Norma</option>
                           <option value="CO_AREA_ATUACAO">Área de Atuação</option>
                           <option value="CO_SEQ_ASSUNTO">Assunto</option>
                           <option value="CO_SEQ_SUBASSUNTO">Sub-assunto</option>
                           <option value="CO_SEQ_TEMA">Tema</option>
                         </select>
             : </div></td>
                     <td width="72%"> <span id="span2" style="align:left"></span></td>
                   </tr>
                   <tr valign="bottom">
                     <td width="28%">
                       <div align="right">
                         <select  class="dropdown" name="select3"  onChange="DisplayField(3,this, true);">
                           <option selected></option>
                           <option value="DS_CONTEUDO">Busca por Palavras</option>
                           <option value="CO_TIPO_NORMA">Tipo de Norma</option>
                           <option value="CO_ORGAO_EMISSOR">Órgão Emissor</option>
                           <option value="NU_NORMA">Número da Norma</option>
                           <option value="CO_AREA_ATUACAO">Área de Atuação</option>
                           <option value="CO_SEQ_ASSUNTO">Assunto</option>
                           <option value="CO_SEQ_SUBASSUNTO">Sub-assunto</option>
                           <option value="CO_SEQ_TEMA">Tema</option>
                         </select>
             : </div></td>
                     <td width="72%"> <span id="span3" style="align:left"></span></td>
                   </tr>
                   <% if (adb.Form.Value("dlg") <> "E") and (adb.Form.Value("dlg") <> "V") then %>
                   <tr valign="bottom">
                     <td colspan="2">
                       <div align="center"> Modo de exibição dos resultados:
                           <INPUT TYPE="radio" NAME="MODO_EXIBICAO" VALUE="I" CHECKED>
                           Indexado  
                           <INPUT TYPE="radio" NAME="MODO_EXIBICAO" VALUE="R">
                           Por Referência Legal </div></td>
                   </tr>
                   <% end if %>
                   <tr valign="bottom">
                     <td colspan="2">
                       <div align="center"> <span title="Executar pesquisa.">
                         <input type="button" class="controllayoutbutton" name="BTPesquisar" value="Pesquisar" onClick="Pesquisar();">
                         </span>   <span title="Limpar campos do formulário.">
                         <input type="button" class="controllayoutbutton" name="BTLimpar" value="Limpar" onClick="Limpar();">
                         </span>   <span title="Dicas de como pesquisar.">
                         <input type="button" class="controllayoutbutton" name="BTAjuda" value="Como Pesquisar" onClick="Ajuda();">
                         </span>  
                         <% if adb.Form.Value("dlg") = "E" then %>
                         <span title="Fechar janela.">
                         <input type="button" class="controllayoutbutton" name="BTFechar" value="Fechar" onClick="Fechar();">
                         </span>
                         <% end if %>
                     </div></td>
                   </tr>
               </table></td>
             </tr>
           </table></td>
       </tr>
   </table></td>
 </tr>
 <tr>
   <td colspan="3"><img src="image/cinza_esc.gif" alt="" width="100%" height="1" border="0"></td>
 </tr>
 <tr>
   <td colspan="3"><img src="image/1x1.gif" alt="" width="1" height="10" border="0"></td>
 </tr>
</table>
</form></BODY></HTML>

Compartilhar este post

Link para o post
Compartilhar em outros sites

retrolink    0

retrolink
Postado

vixxiiii até as chamativas dos resultados são recuperados de forma diferente... você tem duas escolhas... voltar atrás, ir buscar o componente, ou então vai ter que fazer uma bela mudança no code... vai ter que mudar muita coisa, não sei se ta com disposição para isso.

 

A questão é que aquele componente que você estava utilizando, tem as chamativas totalmente diferente... não tem nem como aproveitar, vai ter que mudar tudooooo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

seria mais fácil e rápido você fazer da forma padrão usada no ASP

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

tem alguns host´s que até deixam, mas eles querem o fonte do componente, para saber que nada a mais estará sendo executado em background, mas dae eles podem ter o code de seu componente de graça....

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

não conheço, e não sei se alguns passaram a aceitar, o certo é você entrar em contato com alguns e verificar

mas você fazendo ele no padrão ASP usando os Componentes nativo do ASP ele fica mais fácil

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