title: Tell me the error in vbscript
body: <pre><code>&lt;script language="vbscript"&gt;
  
  Function getActivity(ID)
      Option explicit
      Response.Buffer = true
      dim conn, sql, rs,rs1,Action, UserID, strHolder,                
      Set conn = Server.CreateObject("ADODB.Connection")
      conn.open Application("Database4_ConnectionString")
      sql = ""
      sql = "Select DateShown, Title, TextBody from Activity where ActID = "&amp; ID
      set rs = Conn.Execute(sql)
      strHolder = rs("TextBody")
      If InStr(strHolder, "&lt;/font&gt;") &gt; 0 or InStr(strHolder, "&lt;/p&gt;") &gt; 0 or InStr(strHolder, "&lt;br&gt;") &gt; 0 Then
          TextBody = strHolder
      Else
          TextBody = Replace("" &amp; strHolder, chr(13) &amp; chr(10), "&lt;br&gt;")
      End if
  End Function
  &lt;/script&gt;
  </code></pre>
  
  <p>I tried using this vbscript function in html as follows but it doesn't show the expected output.I want to use the content in Text Body</p>
  
  <pre><code>&lt;div class="modal-body"&gt;  
          &lt;h4&gt;Text in a modal&lt;/h4&gt;  
          &lt;p&gt;You can add some text here too.&lt;/p&gt;
          &lt;p&gt;&lt;script type="vbscript"&gt;getActivity(216)&lt;/script&gt;&lt;/p&gt;                
      &lt;/div&gt; 
  </code></pre>
  
  <p>Please tell me where did I go wrong.</p>