<%@ Language=VBScript %> <% Response.Charset = "utf-8" Session.Codepage = 1252 if not IsNull(Request("idl")) and Request("idl") <> "" then Session("idl") = Request("idl") end if if IsNull(Session("idl")) or Session("idl") = "" or CInt(Session("idl")) < 1 then Session("idl") = "1" end if testo01 = "

I risultati conseguiti da ebilling S.p.A hanno permesso la creazione di sinergie realizzate con importanti partner nazionali ed internazionali.

" & _ "

Le collaborazioni instaurate hanno permesso di rafforzare le competenze tecnologiche nonchè di consolidare il posizionamento dell'impresa attraverso la costruzione di alleanze strategiche che rendono ebilling S.p.A un player di riferimento all'interno del settore della Business Communication.

" if Session("idl") = "2" then testo01 = "

The results achieved by ebilling S.p.A have made it possible to create synergies with major national and international partners.

" & _ "

Such relations have resulted in the strengthening of technological skills and the consolidation of corporate positioning through the building of strategic alliances that make ebilling S.p.A a reference player within the Business Communication industry.

" end if %> ebilling

partner

<%= testo01%>
<% Set cmdPartner = Server.CreateObject("ADODB.Command") cmdPartner.CommandType = 1 Set cmdPartner.ActiveConnection = Session("CONNECTION") cmdPartner.CommandText = "SELECT * FROM partners " Set rsPartner = Server.CreateObject("ADODB.Recordset") rsPartner.Open cmdPartner, , 1, 3 if not(rsPartner.BOF and rsPartner.EOF) then %> <% count = 0 while not rsPartner.EOF count = count + 1 %> <% rsPartner.MoveNext if count > 2 then count = 0 %> <% if not rsPartner.EOF then %> <% end if end if wend if count > 0 then while not count > 2 %> <% count = count + 1 wend end if %> <% end if rsPartner.Close %>