Platform Lab provides the best value -- for any company, anywhere -- to conduct IT test projects.

Platform Lab provides a competitive advantage to our clients by offering short term physical or remote access to IT hardware, software and massive bandwidth for all types of companies for the explicit purpose of IT testing and projects.

Clients save 50% to 96% on infrastructure by conducting their IT test projects at Platform Lab.

Do you want to gain a competitive advantage?

<% nMonth = request("month") if len(nMonth) < 1 then nMonth = 0 end if nYear = replace(request("year"), "#", "") if len(nYear) < 1 then nYear = 0 else if len(nYear) > 4 then nYear = left(nYear, 4) end if end if if cint(nMonth) = 0 and clng(nYear) = 0 then dtNow = now else dtNow = CheckLeadingZero(cint(nMonth)) & "/1/" & nYear end if response.write monthname(month(dtNow)) & " " & year(dtNow) %> Newsletter

<% dim dtNow dim objConn dim objRs Set objConn = Server.CreateObject("ADODB.Connection") Set objRs = Server.CreateObject("ADODB.Recordset") objConn.open APPLICATION("CONNECTIONSTRING") sSQL = "select eventdate, URL, title, weblink.weblinkid, durationhours, durationminutes, id, description from weblink, weblink_pgroup " sSQL = sSQL & "where weblink.weblinkid=weblink_pgroup.weblinkid and " sSQL = sSQL & "weblink_pgroup.pgroupid=" & application("PGROUPID") sSQL = sSQL & " and eventDate >= '" & checkleadingzero(month(dtNow)) & "/" & CheckLeadingZero(day(dtNow)) & "/" & year(dtNow) & " 00:00:00' " sSQL = sSQL & " and eventDate <= '" & checkleadingzero(month(dateadd("m", 2, dtNow))) & "/" & checkleadingzero(day(dateadd("m", 2, dtNow))) & "/" & year(dateadd("m", 2, dtNow)) & " 23:59:59'" sSQL = sSQL & " order by eventdate asc" objRs.Open sSQL,objConn if objRs.EOF = false then %><% do while objRs.EOF = false sTitle = objRs.Fields.item("title").value sURL = objRs.Fields.item("URL").value dtEvent = objRs.Fields.item("eventdate").value lEventId = objRs.Fields.item("id").value iDurationHours = objRs.Fields("durationhours").Value if isnull(iDurationHours) then iDurationHours = 0 end if if cint(iDurationHours) = 1 then sDuration = "01 Hr  " & CheckLeadingZero(objRs.Fields("durationminutes").Value) & " Min" else sDuration = CheckLeadingZero(iDurationHours) & " Hrs " & CheckLeadingZero(objRs.Fields("durationminutes").Value) & " Min" end if sDescription = objRs.Fields.item("description") ' Response.Write "" ' if len(sTitle) < 1 then ' Response.Write dtEvent 'else ' Response.Write sTitle 'end if 'Response.Write "
" %> <% objRs.MoveNext loop %>

<%Response.write CheckLeadingZero(Month(dtEvent)) & "/" & CheckLeadingZero(day(dtEvent)) & "/" & Year(dtEvent) nHour = cint(hour(dtEvent)) nMinutes = cint(minute(dtEvent)) if cint(nHour) > 12 then nHour = cint(nHour) - 12 sAMPM = " PM" else if cint(nHour) = 12 then sAMPM = " PM" else sAMPM = " AM" end if end if %>		<% if len(sURL) > 0 then Response.write "" end if Response.Write sTitle if len(sURL) > 0 then Response.write "" end if %>
<% Response.Write nHour & ":" & CheckLeadingZero(nMinutes) & sAMPM & " " %>		<%=replace(sDescription, vbcrlf, " ")%>

<% else Response.Write "No more events scheduled for this month

" & vbcrlf end if objRs.Close objConn.Close Set objConn = Nothing %>