POLODIGITALE.IT Web Design, Service Provider, Domain Registration, E-comerce, Hosting, Edisplay, siti web belluno, siti internet belluno, Realizzazione siti internet e cdrom, Pubblicita, Fabio Polo, Andrea Polo, pordenone, treviso, venezia, udine, trieste, gorizia, friuli, san vito al tagliamento, casarsa, spilimbergo, sacile, lignano, latisana, monfalcone, grado, codroipo, tolmezzo, tarvisio, portogruaro, san dona, Siti web pordenone, siti web udine, siti web friuli, siti internet pordenone, siti web udine, siti web friuli

NEWS

News are moved here: lab.polodigitale.it/blog

<% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_tiolive_STRING Recordset1.Source = "SELECT * FROM tbl_documenti WHERE CATEGORIA='NEWS' ORDER BY DATA DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 Dim Repeat1__numRows Repeat1__numRows = 1000 Dim Repeat1__index Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend Recordset1.Close() set Recordset1=nothing %>

<% set allegati2 = Server.CreateObject("ADODB.Recordset") allegati2.ActiveConnection = MM_tiolive_STRING allegati2.Source = "SELECT * FROM TBL_ALLEGATI WHERE TIPO = 'image/jpeg' AND ID_DOCUMENTO="+cstr(Recordset1.Fields.Item("ID_DOCUMENTO").Value) + "OR TIPO = 'image/pjpeg' AND ID_DOCUMENTO="+cstr(Recordset1.Fields.Item("ID_DOCUMENTO").Value) allegati2.CursorType = 0 allegati2.CursorLocation = 2 allegati2.LockType = 3 allegati2.Open() response.write "

" While ((NOT allegati2.EOF)) ' conta=conta+1 ' if conta = 1 then response.write ("allegati:
") select case allegati2.Fields.Item("tipo").Value case else IF len(allegati2.Fields.Item("FILE").Value) > 3 then response.write "

" end if end select allegati2.MoveNext() Wend response.write "

" allegati2.Close() set allegati2=nothing %> <%=(Recordset1.Fields.Item("DATA").Value)%>
<%=(Recordset1.Fields.Item("Titolo_uk").Value)%>
<%=replace((Recordset1.Fields.Item("Descrizione_uk").Value),vbCrLf,"
")%>
<% set allegati = Server.CreateObject("ADODB.Recordset") allegati.ActiveConnection = MM_tiolive_STRING allegati.Source = "SELECT * FROM TBL_ALLEGATI WHERE NOT TIPO = 'image/pjpeg' AND ID_DOCUMENTO="+cstr(Recordset1.Fields.Item("ID_DOCUMENTO").Value) allegati.CursorType = 0 allegati.CursorLocation = 2 allegati.LockType = 3 allegati.Open() conta=0 response.write("") While ((NOT allegati.EOF)) response.write("" case "application/x-zip-compressed" response.write "

" case "application/pdf" response.write "

" case "octet/stream" response.write "

" case "application/vnd.ms-excel" response.write "

" case else 'response.write "clicca qui "+allegati.Fields.Item("descrizione").Value+"" end select allegati.MoveNext() response.write("") Wend allegati.Close() set allegati=nothing response.write("

") ' conta=conta+1 ' if conta = 1 then response.write ("allegati:
") select case allegati.Fields.Item("tipo").Value case "application/msword" response.write "

"+allegati.Fields.Item("descrizione").Value+"

") %>