<%
Dim vIdioma
vIdioma = Session("sIdioma")
'***** Connection Object
Dim DBConn
Set DBConn = Server.CreateObject("ADODB.Connection")
DBConn.Mode = adModeRead
DBConn.ConnectionString = Application("appConnectionString")
DBConn.Open
Dim RSTicker
Set RSTicker = Server.CreateObject("ADODB.Recordset")
getListBrevesTicker vIdioma,RSTicker,DBConn
printBrevesTicker(RSTicker)
%>