<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_features Dim rs_features_numRows Set rs_features = Server.CreateObject("ADODB.Recordset") rs_features.ActiveConnection = MM_epweb_STRING rs_features.Source = "SELECT * FROM dbo.links WHERE link_type = 'www1' AND link_category = 'features' ORDER BY link_date DESC" rs_features.CursorType = 0 rs_features.CursorLocation = 2 rs_features.LockType = 1 rs_features.Open() rs_features_numRows = 0 %> <% Dim rs_news Dim rs_news_numRows Set rs_news = Server.CreateObject("ADODB.Recordset") rs_news.ActiveConnection = MM_epweb_STRING rs_news.Source = "SELECT * FROM dbo.articles WHERE article_cat = 'www1news' ORDER BY article_id desc" rs_news.CursorType = 0 rs_news.CursorLocation = 2 rs_news.LockType = 1 rs_news.Open() rs_news_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 6 Repeat1__index = 0 rs_features_numRows = rs_features_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 6 Repeat2__index = 0 rs_news_numRows = rs_news_numRows + Repeat2__numRows %> Execupay Home
Home Contact Us Request Info Feedback
 
Login Central
Demo Central
Search:
 
Platinum Downloads
  
Features
  
News
  • Click here to download the latest Platinum Printing Agent.
  • Click here to download the latest Platinum File Transfer Agent.
 <% While ((Repeat1__numRows <> 0) AND (NOT rs_features.EOF)) %>
" class="link1"><%=(rs_features.Fields.Item("link_name").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_features.MoveNext() Wend %> 		<% While ((Repeat2__numRows <> 0) AND (NOT rs_news.EOF)) %>
 " class="link1"><%=(rs_news.Fields.Item("article_title").Value)%>
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rs_news.MoveNext() Wend %>
 
 
<% rs_features.Close() Set rs_features = Nothing %> <% rs_news.Close() Set rs_news = Nothing %>