<% ' Costanti Microsoft ADO '---- CursorTypeEnum Values ---- Const adOpenForwardOnly = 0 Const adOpenKeyset = 1 Const adOpenDynamic = 2 Const adOpenStatic = 3 '---- LockTypeEnum Values ---- Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 '---- CommandTypeEnum Values ---- Const adCmdUnknown = &H0008 Const adCmdText = &H0001 Const adCmdTable = &H0002 Const adCmdStoredProc = &H0004 Const adCmdFile = &H0100 Const adCmdTableDirect = &H0200 'APRO IL DB set conn=server.createobject("ADODB.connection") conn.open VarConn set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.Open "select idnews,data,title,short_description from TbNews where show = true and category='Corporate news' order by data desc" , VarConn , adopenstatic, adLockReadOnly , adCmdText rsNews.pagesize = 5 %>

Search product

Home > News > Corporate news

		[products news] [corporate news] Corporate news <% if request.querystring("pagina")<>"" then %> Page <% =request.querystring("pagina")%> <% end if %> <% if not rsNews.eof then %> <% 'IMPOSTO LA VARIABILE PAGINA CHE MI PERMETTE DI STABILIRE CHE PAGINA VUOLE VISUALIZZARE L'UTENTE if request.querystring("pagina")="" then pagina = 1 else pagina = cInt(request.querystring("pagina")) end if rsNews.Absolutepage = pagina 'LOOP StrColore=0 for intCount = 1 to rsNews.pagesize 'SCRIPT PER ASSEGNARE LE FASCE DI COLORE BIANCHE E GIALLE 'se la variabile è divisibile per due, la azzero if StrColore/2=1 then StrColore=0 end if 'incremento la variabile di uno StrColore=StrColore+1 'se la variabile è 1, assegno un il giallo, altrimenti assegno il white if StrColore=1 then StrBground="#FFFFFF" else StrBground="#F7F7E6" end if %> <% rsNews.movenext if rsNews.eof then exit for next %> Corporate News   " class="testo10black"> <% = month(rsNews("data")) & "/" & day(rsNews("data")) & "/" & right(year(rsNews("data")),2)%> - <%= rsNews("title")%> <% if rsNews("short_description")<>"" then response.write " " response.write rsNews("short_description") & " " end if %>   <%' if request.querystring("pagina")="" then VarPag =1 else VarPag = request.QueryString("pagina") end if if rsNews.recordcount > rsNews.pagesize then for i=1 to rsNews.pagecount response.write "" if cint(i)=cint(VarPag) then response.write "" end if response.write i if cint(i)=cint(VarPag) then response.write "" end if response.write " | " next %> <%'RENDO ATTIVA LA FRECCIA if cint(VarPag) >= cint(rsNews.pagecount) then VarNext =1 else VarNext = VarPag+1 end if %> <% end if %>   <% else %> Corporate News   There are not news.     <% end if %>

<% set rs=nothing set rsNews=nothing set conn=nothing %>