Dynamically changing the content of a form without refreshing the page

This code allows the content of a form to be changed dynamically -- without refreshing the page. It doesn't need an ActiveX Control to be executed on the client; the execution is instead made on the server.

What this does is declare an HTML tag <script> with an empty SRC, and change the content of this SRC. This can be made by an agent. Follow these steps:

1. Create a script tag with an empty SRC:

   <SCRIPT ID="datosAct" type="text/javascript" 
   SRC="" LANGUAGE="JavaScript"></SCRIPT>
   

2. Put this code on the event of the element that is going to execute the action (button, dialog list, input, etc.).

   ----------- Event ---------------------
   
   querys = "" + window.location
   bd = querys.split("//")
   server = bd[1].split("/")
   //Call the agent with the parameters 
   for the search src= "http://" +server[0] 
   + "/" + folders + "/" + bd + 
   "/traerDatos?openagent&" + 
   this.options[this.selectedIndex].value;
   //Asign the value returned by the agent to
    the script tag defined document.
   getElementById("datosAct").src = src
   
   ----------- Event end -----------------
   

3. This code is going to call an agent (traerDatos). When it does, this agent will generate JavaScript code and pass it to the form you are using by the script tag you declare. This is an example of the agent (you must code it for your needs).

   ----------------------- Agent ----------------------------
   --------------------------
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim docContext As notesdocument
   Dim doc As notesdocument
   
   Dim nombre As String
   Dim cedula As String
   Dim param As String
   Dim codJs As String
   
   ' Read the parameters send by the URL
   Set db = session.GetDatabase
   ( "", "helptempeusuario.nsf" ) 
   Set view = db.getview("vieCedula")
   Set docContext = session.DocumentContext 
   url = docContext.Query_String(0)
   cedula = Mid( url, Instr( url, "&")+1)
   codJs = ""
   
   ' With the parameter search for the data you want 
   Set doc = view.getDocumentByKey( cedula, True ) 
   If Not doc Is Nothing Then
    nombre = docc.nombre(0)
   Else
    nombre = ""
   End If
   
   ' Now you have the data you want, so write it on your form.
   ' Call the inputs fields you want to write 
   the data and asign the values 
   ' All this JavaScript code is asigned to a string (CodJs) 
   ' You must have an input field called 'txtNomEmp'
   codJs = "document.getElementById
   ('txtNomEmp').value = '" + nombre + "';"
   ' You must have an input field called 'txtCedEmp'
   codJs = codJs + "document.getElementById
   ( 'txtCedEmp' ).value = '" + cedula + "';"
   
   ' Now you have your JavaScript Code, 
   so pass it to the script tag.
   ' This is make by a print statement.
   Print "Content-type: text/plaintext"
   ' Is very important to declare the content type as text, 
   so Domino isn't going to generate an html page.
   Print codJs
   
   ------------------------ Agent end -------------------------
   ----------------------------
   

Do you have comments on this tip? Let us know. Related information from SearchDomino.com: