<%@LANGUAGE="VBSCRIPT"%> <% Dim NewsDetails Dim NewsDetails_numRows Set NewsDetails = Server.CreateObject("ADODB.Recordset") NewsDetails.ActiveConnection = MM_MENSHENWEB_STRING NewsDetails.Source = "SELECT * FROM Noticias" NewsDetails.CursorType = 0 NewsDetails.CursorLocation = 2 NewsDetails.LockType = 1 NewsDetails.Open() NewsDetails_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 5 Repeat1__index = 0 NewsDetails_numRows = NewsDetails_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim NewsDetails_total Dim NewsDetails_first Dim NewsDetails_last ' set the record count NewsDetails_total = NewsDetails.RecordCount ' set the number of rows displayed on this page If (NewsDetails_numRows < 0) Then NewsDetails_numRows = NewsDetails_total Elseif (NewsDetails_numRows = 0) Then NewsDetails_numRows = 1 End If ' set the first and last displayed record NewsDetails_first = 1 NewsDetails_last = NewsDetails_first + NewsDetails_numRows - 1 ' if we have the correct record count, check the other stats If (NewsDetails_total <> -1) Then If (NewsDetails_first > NewsDetails_total) Then NewsDetails_first = NewsDetails_total End If If (NewsDetails_last > NewsDetails_total) Then NewsDetails_last = NewsDetails_total End If If (NewsDetails_numRows > NewsDetails_total) Then NewsDetails_numRows = NewsDetails_total End If End If %> <% Dim MM_paramName %> <% ' *** Move To Record and Go To Record: declare variables Dim MM_rs Dim MM_rsCount Dim MM_size Dim MM_uniqueCol Dim MM_offset Dim MM_atTotal Dim MM_paramIsDefined Dim MM_param Dim MM_index Set MM_rs = NewsDetails MM_rsCount = NewsDetails_total MM_size = NewsDetails_numRows MM_uniqueCol = "" MM_paramName = "" MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName <> "") Then MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "") End If %> <% ' *** Move To Record: handle 'index' or 'offset' parameter if (Not MM_paramIsDefined And MM_rsCount <> 0) then ' use index parameter if defined, otherwise use offset parameter MM_param = Request.QueryString("index") If (MM_param = "") Then MM_param = Request.QueryString("offset") End If If (MM_param <> "") Then MM_offset = Int(MM_param) End If ' if we have a record count, check if we are past the end of the recordset If (MM_rsCount <> -1) Then If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' move the cursor to the selected record MM_index = 0 While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1)) MM_rs.MoveNext MM_index = MM_index + 1 Wend If (MM_rs.EOF) Then MM_offset = MM_index ' set MM_offset to the last possible record End If End If %> <% ' *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = -1) Then ' walk to the end of the display range for this page MM_index = MM_offset While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size)) MM_rs.MoveNext MM_index = MM_index + 1 Wend ' if we walked off the end of the recordset, set MM_rsCount and MM_size If (MM_rs.EOF) Then MM_rsCount = MM_index If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount End If End If ' if we walked off the end, set the offset based on page size If (MM_rs.EOF And Not MM_paramIsDefined) Then If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then If ((MM_rsCount Mod MM_size) > 0) Then MM_offset = MM_rsCount - (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount - MM_size End If End If End If ' reset the cursor to the beginning If (MM_rs.CursorType > 0) Then MM_rs.MoveFirst Else MM_rs.Requery End If ' move the cursor to the selected record MM_index = 0 While (Not MM_rs.EOF And MM_index < MM_offset) MM_rs.MoveNext MM_index = MM_index + 1 Wend End If %> <% ' *** Move To Record: update recordset stats ' set the first and last displayed record NewsDetails_first = MM_offset + 1 NewsDetails_last = MM_offset + MM_size If (MM_rsCount <> -1) Then If (NewsDetails_first > MM_rsCount) Then NewsDetails_first = MM_rsCount End If If (NewsDetails_last > MM_rsCount) Then NewsDetails_last = MM_rsCount End If End If ' set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount) %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% ' *** Move To Record: set the strings for the first, last, next, and previous links Dim MM_keepMove Dim MM_moveParam Dim MM_moveFirst Dim MM_moveLast Dim MM_moveNext Dim MM_movePrev Dim MM_urlStr Dim MM_paramList Dim MM_paramIndex Dim MM_nextParam MM_keepMove = MM_keepBoth MM_moveParam = "index" ' if the page has a repeated region, remove 'offset' from the maintained parameters If (MM_size > 1) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then MM_paramList = Split(MM_keepMove, "&") MM_keepMove = "" For MM_paramIndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1) If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If ' set the strings for the move to links If (MM_keepMove <> "") Then MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&" End If MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = MM_urlStr & "0" MM_moveLast = MM_urlStr & "-1" MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size) If (MM_offset - MM_size < 0) Then MM_movePrev = MM_urlStr & "0" Else MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size) End If %> [Notícias] MENSHEN - Consultoria | Formação | Sistemas de Redes | ON-LINE

Cíclo de Cursos 2008/2009

Formação Técnica Microsoft

Estimado cliente,

A MENSHEN (CPLS - Microsoft Certified Learning Solutions Center) realizará entre 18 de Agosto de 2008 e 22 de Maio de 2009 em horário laboral e nas suas instalações, os cursos técnicos que damos a conhecer no calendário disponível para download aqui.

Caso esteja interessado(a) em participar, queira por favor efectuar o(s) seu(s) registo(s) com a maior brevidade possível. O número de vagas é limitado.

Obrigado!

 


Fonte: MENSHEN, Lda. | Data: 2008-08-18

  

MENSHEN e MICROSOFT

As mais recentes certificações alcançadas pela Menshen junto da Microsoft

Caros clientes: Gostariamos de vos actualizar sobre as mais recentes certificações alcançadas pela Menshen junto da Microsoft. Com as certificações abaixo, a Menshen, é membro integrante de um grupo restrito de empresas com competências reconhecidas pela Microsoft como estando habilitadas a prestar os mais elevados níveis de serviço com base nas suas plataformas tecnológicas. Complementarmente, este nível de certificação reconhece igualmente, a existência de profissionais qualificados dentro da estrutura da empresa, bem como, a experiência comprovada na área do Licenciamento.

Janeiro 2007 - A Menshen adquiriu o estatuto de Entreprise Software Advisor “ESA”

Fevereiro 2007 - A Menshen atingiu o estatuto de Gold Partner da Microsoft nas categorias de Licensing Solutions e Networking Infrastructure Solutions.

Maio 2007 - A Menshen recebeu o Prémio da Microsoft, intitulado “ Services Partner of the Year for East and Southern Africa”. O prémio foi entregue por ocasião do evento “Microsoft Partner Summit 2007, que decorreu no Zimbabwe.

Julho 2007 - Adquirimos a certificação em Learning solutions

Entreprise Software Advisor “ESA 2.0”

Tem a proficiência comprovada pela Microsoft para a concepção e/ou execução de:

1- Licensing Delivery - experiência comprovada na satisfação das necessidades dos clientes em matéria de concepção, recomendação e aquisição de opções de licenciamento em volume para tecnologia Microsoft. Auxilio na determinação, recomendação e distribuição de soluções de licenciamento que satisfaçam as necessidades dos clientes de médias e grandes dimensões.

2- Software Asset Management - O SAM (Software Asset Management) apoia os clientes a redução significativa do custo total de propriedade de software e melhora a eficácia operacional. O SAM também pode suportar processos internos destinados a melhorar a transparência operacional e de administração nas organizações.

Programa Gold Partner da Microsoft

O programa Microsoft Gold Certified Partner é uma forma de distinguir os parceiros Microsoft, que assumiram um compromisso e desenvolveram competências numa ou mais áreas especializadas de tecnologia Microsoft, havendo actualmente 13 categorias diferentes.

Microsoft Gold Partner Licensing Solutions

Esta competência destina-se primordialmente a parceiros que se dedicam ao desenvolvimento de soluções de Licenciamento

Microsoft Networking Infrastrucure Solutions

Os parceiros da Competência Networking Infrastructure Solutions concentram-se na implementação de soluções de tecnologia baseadas no Microsoft Windows Server 2000, no Windows Server 2003 Operating Systems ou no Microsoft Small Business Server 2000 e no Small Business Server 2003.

Microsoft Gold Partner Learning Solutions

Concebida para parceiros de soluções com competência comprovada em matéria de disponibilização de soluções de formação completas de elevada qualidade destinadas a ajudar entidades individuais ou colectivas a maximizar os investimentos efectuados em tecnologias Microsoft. Os parceiros que detenham a competência Learning Solutions estão aptos a aplicar uma abordagem de formação em modo de consulta, na qual são utilizados produtos e serviços de cariz didáctico da Microsoft.

  


Fonte: MENSHEN 2007 | Data: 2007-08-13

  

Antivirus Giants Are Vulnerable

The most popular antivirus applications on the market are rendered useless by around 80 percent of new malware, according to AusCERT.

At a security breakfast hosted by e-mail security firm Messagelabs in Sydney on Wednesday, the general manager of the Australian Computer Emergency Response Team (AusCERT), Graham Ingram, told the audience that popular desktop antivirus applications "don't work".
At a security breakfast hosted by e-mail security firm Messagelabs in Sydney on Wednesday, the general manager of the Australian Computer Emergency Response Team (AusCERT), Graham Ingram, told the audience that popular desktop antivirus applications "don't work". "At the point we see it as a CERT, which is very early on -- the most popular brands of antivirus on the market … have an 80 percent miss rate. That is not a detection rate that is a miss rate. "So if you are running these pieces of software, eight out of 10 pieces of malicious code are going to get in," said Ingram. Ingram, who refused to name any specific companies, was quick to point that this was due to cybercriminals designing their Trojans and viruses to bypass detection rather than a defective product. "I am not suggesting that there is a difference in the quality of the antivirus products themselves. What is happening is that the bad guys, the criminals, are testing their malicious code against the antivirus products to make sure they are undetectable. This is not a representation of the software," said Ingram. Although less popular antivirus applications are more likely to pick up new malware, Ingram said that the average level of new malware that is undetected is 60 percent, which is "worrying". "What do most people have as protection for their client machines? I would suggest it is antivirus. You are lucky if you have antispyware. So they are attacking a machine that is protected by a piece of software that is not working. "This is the dilemma that is building up here and the success rate is becoming quite worrying," added Ingram.  


Fonte: CNet.com | Data: 2006-07-20

  

Benefícios adicionais para clientes Microsoft.

A Microsoft anunciou um conjunto de benefícios adicionais para os seus clientes que justificam uma chamada de atenção devido ao seu valor/utilidade.

Responding to changing market conditions, Virtual PC 2004 SP1 is available immediately for free download. In addition, Virtual PC 2007, which supports Microsoft Windows Vista, will be available for free in 2007. One new benefit for Windows Vista Enterprise customers is the right to install four copies of the operating system in virtual machines on a desktop for a single user. This new benefit provides unique value for customers addressing application compatibility through virtualization.
Benefícios adicionais para clientes Microsoft Caro cliente, A Microsoft anunciou um conjunto de benefícios adicionais para os seus clientes que justificam uma chamada de atenção devido ao seu valor/utilidade: Responding to changing market conditions, Virtual PC 2004 SP1 is available immediately for free download. In addition, Virtual PC 2007, which supports Microsoft Windows Vista, will be available for free in 2007. One new benefit for Windows Vista Enterprise customers is the right to install four copies of the operating system in virtual machines on a desktop for a single user. This new benefit provides unique value for customers addressing application compatibility through virtualization. Virtual PC lets you create separate virtual machines on your Windows desktop, each of which virtualizes the hardware of a complete physical computer. Use virtual machines to run operating systems such as MS-DOS®, Windows, and OS/2. You can run multiple operating systems at once on a single physical computer and switch between them as easily as switching applications—instantly, with a mouse click. Virtual PC is perfect for any scenario in which you need to support multiple operating systems, whether you use it for tech support, legacy application support, training, or just for consolidating physical computers. More information at: http://www.microsoft.com/windows/virtualpc/default.mspx http://www.microsoft.com/windows/virtualpc/evaluation/overview2004.mspx Download at: http://www.microsoft.com/windows/virtualpc/downloads/sp1.mspx Microsoft Windows Fundamentals for Legacy PCs is now available by download to Software Assurance customers. Companies who have access to the Licensing download site (Volume License / Select / Software Assurance) can get it now. Microsoft Windows Fundamentals for Legacy PCs is a Windows-based operating system designed for customers who have older computers running earlier operating systems and who are not in a position to purchase new hardware. This operating system is available only to Microsoft Software Assurance customers and helps you get the most from your older hardware, thereby reducing your total cost of ownership. This Software Assurance benefit provides improvements to security and manageability to reduce the strain on your IT team, improve end-user productivity, and close security gaps. Windows Fundamentals for Legacy PCs is based on Microsoft Windows XP Embedded Service Pack 2 (SP2), enabling you to upgrade to the security and stability of the Microsoft Windows XP platform. This eases the transition to Windows Vista Enterprise when you eventually replace your computers. Windows Fundamentals for Legacy PCs is not a general-purpose operating system. It is designed to work with the Microsoft Remote Desktop Connection client or third-party clients such as the Citrix ICA client. In addition, it allows for a limited number of workloads to be executed locally, including security software, management software, terminal emulation software, document viewers, and the .NET Framework. More information at: http://www.microsoft.com/licensing/programs/sa/benefits/fundamentals.mspx Download at: http://licensing.microsoft.com  


Fonte: www.microsoft.com | Data: 2006-07-20

  

MENSHEN On-line

Lançado o Web Site da MENSHEN

MENSHEN, Formação, Consultoria e Sistemas de Redes, já está on-line em www.menshen.net a partir de 20/07/2006
Apos quase um ano de espera, os nossos clientes finalmente já podem usufruis dos nossos serviços on-line...  


Fonte: MENSHEN IT, Lda. | Data: 2006-07-20

  

< anterior | seguinte >

 

© Copyright, Design & Produção: MENSHEN 2005. Todos os direitos reservados.

 

 

  
<% NewsDetails.Close() Set NewsDetails = Nothing %>