<%@LANGUAGE="VBSCRIPT"%> <% Function return_Date(myDate) Dim myDay, myDays, myMonth, myYear myDay = left(myDate, 2) myMonth = mid(myDate, 4, 3) myYear = right(myDate, 4) Select case myMonth case "Jan" myMonth = "gen" case "Feb" myMonth = "feb" case "Mar" myMonth = "mar" case "Apr" myMonth = "apr" case "May" myMonth = "mag" case "Jun" myMonth = "giu" case "Jul" myMonth = "lug" case "Aug" myMonth = "ago" case "Sep" myMonth = "set" case "Oct" myMonth = "ott" case "Nov" myMonth = "nov" case "Dec" myMonth = "dic" End Select return_Date = myDay & "." & myMonth & "." & myYear End Function Function return_Date2(myDate) Dim myDay, myDays, myMonth, myYear myDay = right(myDate, 2) myMonth = mid(myDate, 5, 2) myYear = left(myDate, 4) return_Date2 = myDay & "." & myMonth & "." & myYear End Function %> CONFCOMMERCIO - CONVENZIONE PROGRAMMATICA: INVESTIRE SUL BEL PAESE
rssfacebook
<%=(Server.HTMLEncode(FormatDateTime(Now(),1) & " " ))%>

CONVENZIONE PROGRAMMATICA: INVESTIRE SUL BEL PAESE

ROMA, 11 OTTOBRE 2000 (Testo integrale)

  • ID doc: 960
  • Data: <%= return_Date2("20001011")%> (aggiornato il: <%= return_Date("11-Oct-2000") %>)
[indietro]
[stampa]
[info doc]
 
  • ID doc: 960
  • Data: <%= return_Date("11-Oct-2000") %>
[indietro]
[stampa]
[leggi il documento]
 
info <% var_documents_folder = "1170" %> <% Dim rs_documents_folder__MMColParam rs_documents_folder__MMColParam = "1" If (var_documents_folder <> "") Then rs_documents_folder__MMColParam = var_documents_folder End If %> <% Dim rs_documents Dim rs_documents_numRows Set rs_documents = Server.CreateObject("ADODB.Recordset") rs_documents.ActiveConnection = MM_conn_webframedb_STRING rs_documents.Source = "SELECT Top 7 ID, szTitle, szDescr, dDateCat, LNumDir, szImage FROM Documents WHERE LNumDir = " + Replace(rs_documents_folder__MMColParam, "'", "''") + " AND bHideDoc=0 AND szDocFmt<>0 ORDER BY dDateCat DESC" rs_documents.CursorType = 0 rs_documents.CursorLocation = 2 rs_documents.LockType = 1 rs_documents.Open() rs_documents_numRows = 0 %> <% Dim Repeat_documents__numRows Repeat_documents__numRows = -1 Dim Repeat_documents__index Repeat_documents__index = 0 rs_documents_numRows = rs_documents_numRows + Repeat_documents__numRows %> <% rs_documents.Close() Set rs_documents = Nothing %>
 
© Confcommercio · Imprese per l'Italia - Confederazione Generale Italiana delle Imprese, delle Attività Professionali e del Lavoro Autonomo
    <% Set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.setProperty "ServerHTTPRequest", true objXML.async = False strFile= "http://www.confcommercio.it/home/rss_articoli.asp" objXML.Load (strFile) Set AllItems = objXML.selectNodes("//channel") For I = 0 to (AllItems.Length - 1) Set Post = AllItems(I).selectNodes("item") if ((Post.Length) > 4) then n_max = 4 else n_max = (Post.Length-1) end if For J = 0 to n_max Set title = Post(J).selectNodes("title") Set description = Post(J).selectNodes("description") Set link = Post(J).selectNodes("link") Set link = Post(J).selectNodes("link") %>
  • <%=title(0).text%>
    <% If Len(description(0).text) > 150 Then %><%= Left(description(0).text,100) %> ...<% Else %><%=description(0).text%><% end if %>
  • <% Next Set title = Nothing Set description = Nothing Set link = Nothing Set Post = Nothing Set n_max = Nothing Next %>
  • leggi il giornale on-line »
    <% Set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.setProperty "ServerHTTPRequest", true objXML.async = False strFile= "http://www.confcommercio.it/home/rss_territorio.asp" objXML.Load (strFile) Set AllItems = objXML.selectNodes("//channel") For I = 0 to (AllItems.Length - 1) Set Post = AllItems(I).selectNodes("item") if ((Post.Length) > 4) then n_max = 4 else n_max = (Post.Length-1) end if For J = 0 to n_max Set title = Post(J).selectNodes("title") Set description = Post(J).selectNodes("description") Set link = Post(J).selectNodes("link") Set link = Post(J).selectNodes("link") %>
  • <%=title(0).text%>
    <% If Len(description(0).text) > 150 Then %><%= Left(description(0).text,100) %> ...<% Else %><%=description(0).text%><% end if %>
  • <% Next Set title = Nothing Set description = Nothing Set link = Nothing Set Post = Nothing Set n_max = Nothing Next %>
  • leggi il giornale on-line »
    <% Set objXML = Server.CreateObject("Microsoft.XMLDOM") objXML.setProperty "ServerHTTPRequest", true objXML.async = False strFile= "http://www.confcommercio.it/home/rss_categorie.asp" objXML.Load (strFile) Set AllItems = objXML.selectNodes("//channel") For I = 0 to (AllItems.Length - 1) Set Post = AllItems(I).selectNodes("item") if ((Post.Length) > 4) then n_max = 4 else n_max = (Post.Length-1) end if For J = 0 to n_max Set title = Post(J).selectNodes("title") Set description = Post(J).selectNodes("description") Set link = Post(J).selectNodes("link") Set link = Post(J).selectNodes("link") %>
  • <%=title(0).text%>
    <% If Len(description(0).text) > 150 Then %><%= Left(description(0).text,100) %> ...<% Else %><%=description(0).text%><% end if %>
  • <% Next Set title = Nothing Set description = Nothing Set link = Nothing Set Post = Nothing Set n_max = Nothing Next %>
  • leggi il giornale on-line »