Skip to main content
tags editadas
Link
adicionou 1281 caracteres ao conteúdo
Fonte Link

inserir a descrição da imagem aquiErro pós alteração do Script

Código do ValidarInput e do Select feito por ele.

   <% 
Response.Charset = "ISO-8859-1"
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache" 

dim dsAmsReference

set     objBD   = new ConectaBD 'INSTÂNCIA A CLASSE 
call    objBD.AbrirConexao


dsAmsReference  = codificar(request("dsAmsReference"))

If PAG_TOP = "" Then
    PAG_TOP = 1
End If

SQL = "EXEC PR_DRAFT_DRAF_s                                             "
SQL = SQL & " @funcao               = 'S02'                             "
SQL = SQL & ",@DS_AMS_REFERENCE     = '"&dsAmsReference&"'              "
SQL = SQL & ",@ID_CD_LOGIN  = '"&SESSION("ID_CD_LOGIN")&"' "
'response.write(SQL)
QueryToJSON(objConJson, SQL).Flush
objConJson.close
Set objConJson = Nothing
%>  

------------ SQL abaixo -----------

if @funcao = 'S02'
begin
    SELECT
        DS_AMS_REFERENCE
    FROM TB_BOOKING_BOOK
    WHERE DS_AMS_REFERENCE = @DS_AMS_REFERENCE
    ORDER BY DS_AMS_REFERENCE
end

inserir a descrição da imagem aquiErro pós alteração do Script

Código do ValidarInput e do Select feito por ele.

   <% 
Response.Charset = "ISO-8859-1"
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache" 

dim dsAmsReference

set     objBD   = new ConectaBD 'INSTÂNCIA A CLASSE 
call    objBD.AbrirConexao


dsAmsReference  = codificar(request("dsAmsReference"))

If PAG_TOP = "" Then
    PAG_TOP = 1
End If

SQL = "EXEC PR_DRAFT_DRAF_s                                             "
SQL = SQL & " @funcao               = 'S02'                             "
SQL = SQL & ",@DS_AMS_REFERENCE     = '"&dsAmsReference&"'              "
SQL = SQL & ",@ID_CD_LOGIN  = '"&SESSION("ID_CD_LOGIN")&"' "
'response.write(SQL)
QueryToJSON(objConJson, SQL).Flush
objConJson.close
Set objConJson = Nothing
%>  

------------ SQL abaixo -----------

if @funcao = 'S02'
begin
    SELECT
        DS_AMS_REFERENCE
    FROM TB_BOOKING_BOOK
    WHERE DS_AMS_REFERENCE = @DS_AMS_REFERENCE
    ORDER BY DS_AMS_REFERENCE
end
Fonte Link

Consultando dado do input no banco - ASP + SQL

Bom galera, sou mais que iniciante em ASP e JS e to me batendo aqui pra fazer algo que deve ser simples.

Eu tenho um input o qual vai ser preenchido com um valor "xxAMSxxxx/xx" e precisava validar esse valor no banco e uma vez que ele for verdadeiro, mostrar e preencher um pedaço de um form que vai ser salvo posteriormente. Tentei fazer isto mas não tive sucesso.

PS: Consegui pelo menos fazer o button dar block na div do form.

function mostraCampos() {
  if (document.getElementById("dsAmsReference").style.display === "none") {
    document.getElementById("dsAmsReference").style.display = "block";
  } else {
    document.getElementById("dsAmsReference").style.display = "none";
  }
}

<div class="input-control select novospan2 floatForm-left">
  Reserva AMS
  <input name="dsAmsReference" id="dsAmsReference" placeholder="Digite aqui a Ref" type="text">
</div>      

<% 

dim dsAmsReference 
 
dsAmsReference  = codificar(request("dsAmsReference")) 'não segura o valor


DIM ID_CD_CLIENTE,DS_AMS_REFERENCE,DS_VESSEL,DS_VOYAGE,DS_ORIGEM,DS_DESTINO,DS_ORIGEM_COLETA,DS_DESTINO_COLETA,NM_PESSOA,NR_CPF_CNPJ,DS_ENDERECO,DS_COMPLEMENTO,NM_CIDADE,NM_ESTADO,NR_CEP,NR_PREFIXO,NR_DDD,NR_TELEFONE

DIM NR_NETWEI

    objBD.SQL = "EXEC PR_DRAFT_DRAF_s @FUNCAO='S35', @DS_AMS_REFERENCE='"&dsAmsReference&"', @ID_CD_LOGIN='"&Session("ID_CD_LOGIN")&"'"
    'response.write(objBD.SQL)
    'response.end()
    objBD.executaSQlBasico                          
    if not objBD.RS.eof then 
        
        DS_AMS_REFERENCE            = objBD.RS("DS_AMS_REFERENCE")
        DS_VESSEL                   = objBD.RS("DS_VESSEL")
        DS_VOYAGE                   = objBD.RS("DS_VOYAGE")
        DS_ORIGEM                   = objBD.RS("DS_ORIGEM")
        DS_DESTINO                  = objBD.RS("DS_DESTINO")    
        DS_ORIGEM_COLETA            = objBD.RS("DS_ORIGEM_COLETA")
        DS_DESTINO_COLETA           = objBD.RS("DS_DESTINO_COLETA")
        NM_PESSOA                   = objBD.RS("NM_PESSOA")
        NR_CPF_CNPJ                 = objBD.RS("NR_CPF_CNPJ")
        DS_ENDERECO                 = objBD.RS("DS_ENDERECO")
        DS_COMPLEMENTO              = objBD.RS("DS_COMPLEMENTO")
        NM_CIDADE                   = objBD.RS("NM_CIDADE")
        NM_ESTADO                   = objBD.RS("NM_ESTADO")
        NR_CEP                      = objBD.RS("NR_CEP")
        NR_PREFIXO                  = objBD.RS("NR_PREFIXO")
        NR_DDD                      = objBD.RS("NR_DDD")
        NR_TELEFONE                 = objBD.RS("NR_TELEFONE")
        'response.write(objBD.SQL)
        'response.end()
    else
        objBD.LimpaRecordSet 
        objBD.FecharConexao
        response.Redirect("inicio.asp")         
        response.end()
    end if      
 
%>
 <!--#include file="teste-draft-js.asp"-->
<div class="input-control margBottom50 text span2 ">    
  <input type="submit" value="Validar Ref" onclick="mostraCampos();completaDraft(dsAmsReference,'<%=DS_AMS_REFERENCE%>')"/>
</div>

Abaixo o JS para completar o form.

function completaDraft(dsAmsReference) { 
            
        dataString = "acao=CPD&dsAmsReference="+dsAmsReference;
        dataString = dataString+"&dsAmsReference="+dsAmsReference;
        //alert(dataString); return false;
        $.ajax({  
            type: "POST",  
            url: cfgUrl+"draft-acoes.asp",  
            data: dataString,  
            dataType: "json",
            beforeSend: function(){
                PaginaAguardeAbre();
            },
            success: function(json) {  
                PaginaAguardeFecha();
                if( json.result.bool() ){
                    ExibeMensagem('Sucesso',"Status da processo alterado com sucesso!","",2500);
                    //$("#formFiltro").submit();
                }else{
                    ExibeMensagem('Aviso',json.erro,"",5000);                       
                }
                return false;
            },
            error:function(XMLHttpRequest, textStatus, errorThrown){
                alert(XMLHttpRequest.responseText);         
                enviaLogError(XMLHttpRequest.status, XMLHttpRequest.responseText,this.url,this.data);
                verificaLogado(XMLHttpRequest.status, XMLHttpRequest.getResponseHeader("URL_REDIRECT"));
                PaginaAguardeFecha();               
                ExibeMensagem('Erro',"Desculpe, mas ocorreu um erro. Por favor, tente novamente.","",4000);
                RequestEnviado = 0;
                return false;   
            }
        });
    }