I GESTORI: "PRONTI AD ALTRI SCIOPERI SE NON SAREMO ASCOLTATI"
I GESTORI: "PRONTI AD ALTRI SCIOPERI SE NON SAREMO ASCOLTATI"
<%@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 - I GESTORI: "PRONTI AD ALTRI SCIOPERI SE NON SAREMO ASCOLTATI" ![info]()
![info]()
<% var_documents_folder = "1" %> <% 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 %>
- <% While ((Repeat_documents__numRows <> 0) AND (NOT rs_documents.EOF)) %>
- &type=1"><%=(rs_documents.Fields.Item("szTitle").Value) %> <% Repeat_documents__index=Repeat_documents__index+1 Repeat_documents__numRows=Repeat_documents__numRows-1 rs_documents.MoveNext() Wend %>
- tutti i documenti »
© Confcommercio · Imprese per l'Italia - Confederazione Generale Italiana delle Imprese, delle Attività Professionali e del Lavoro Autonomo
