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;	
    			}
    		});
    	}

[![inserir a descrição da imagem aqui][1]][1]Erro 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

  [1]: https://i.sstatic.net/UzzvG.png