Ultra Insulated Panel Systems Corp.

<%@ LANGUAGE = "VBSCRIPT" %> <% 'Check if user is signed in 'if session("userlogin")="" or session("userlogin")=null then ' response.redirect("login.asp") 'end if Dim rsNews Set rsNews = Server.CreateObject("ADODB.RecordSet") rsNews.ActiveConnection = news rsNews.LockType = adLockOptimistic rsNews.CursorType = adOpenKeySet rsNews.Source = "select * from news order by id desc" 'where newssection ='news'" rsNews.Open 'Dim rsNews_currentIndex, rsNews_startIndex, rsNews_LastIndex 'rsNews_currentIndex = 1 'If Request.QueryString = "" Then 'rsNews_startIndex = 1 'Else 'rsNews_startIndex = Request.QueryString("startIndex") 'End If Dim Counter Counter = 0 While Not rsNews.EOF Counter = Counter + 1 rsNews.MoveNext Wend rsNews.Requery 'rsNews_lastIndex = Counter Mod 10 'rsNews_lastIndex = Counter - rsNews_lastIndex + 1 'rsNews_endIndex = Counter 'If rsNews_endIndex > rsNews_startIndex + 10 Then ' rsNews_endIndex = rsNews_startIndex + 10 ' End If ' If Not rsNews.EOF Then ' While Not rsNews_currentIndex = rsNews_startIndex ' rsNews.MoveNext ' rsNews_currentIndex = rsNews_currentIndex + 1 ' Wend ' End If %> Ultra Insulated Panel Systems Corp.

NEWS TITLES

<% If Not rsNews.EOF then If rsNews("newscontent") <> "" then Dim i,bgColor Dim bool_bgcolor i = 1 bool_bgcolor = "true" Do Until i = 10 or rsNews.EOF If bool_bgcolor = "true" Then bgcolor = "#D6E6F5" Else bgColor = "#A5BEDC" End If %>

" class="size11"><%=rsNews("newstitle")%> by: <%=rsNews("newsauthor")%>

<% rsNews.MoveNext i = i + 1 If bool_bgcolor = "true" Then bool_bgcolor = "false" Else bool_bgcolor = "true" End If Loop Else %>

No news in archive, please come back soon

<% End If Else %>

No news in archive, please come back soon

<% End If %>